ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Error 13 on many trim with cells started with + (https://www.excelbanter.com/excel-programming/348327-error-13-many-trim-cells-started.html)

pcouas

Error 13 on many trim with cells started with +
 
pcouas
16 déc 18:46 afficher les options

Groupes de discussion : microsoft.public.fr.excel
De : "pcouas" - Rechercher les messages de cet
auteur
Date : 16 Dec 2005 09:46:48 -0800
Local : Ven 16 déc 2005 18:46
Objet : Excel Error 13 on Trim Function on many + text cells
Répondre | Répondre à l'auteur | Transférer | Imprimer | Message
individuel | Afficher l'original | Retirer | Signaler un cas
d'utilisation abusive

Hi,


I have many cells where text begin whith +
First cell is well redirect on error label, but not second + error why
?


Regards
Philippe


For Each c In Selection.Cells
q = c.row
On Error GoTo suite1
If c.row c.SpecialCells(xlLastCell).row Then
Exit For
Else
c.value = RTrim(c.value)
End If
GoTo suite2
suite1:
' pour gerer les erreurs sur les colonnes converties en type cellules
sans valeurs,commence par un +
If c.HasFormula Then c.value = "'" + c.FormulaR1C1
'Err.Clear


suite2:
Next c


Bernie Deitrick

Error 13 on many trim with cells started with +
 
Try changing

suite1:

to

suite1:
Resume Point1
Point1:

HTH,
Bernie
MS Excel MVP


"pcouas" wrote in message
ps.com...
pcouas
16 déc 18:46 afficher les options

Groupes de discussion : microsoft.public.fr.excel
De : "pcouas" - Rechercher les messages de cet
auteur
Date : 16 Dec 2005 09:46:48 -0800
Local : Ven 16 déc 2005 18:46
Objet : Excel Error 13 on Trim Function on many + text cells
Répondre | Répondre à l'auteur | Transférer | Imprimer | Message
individuel | Afficher l'original | Retirer | Signaler un cas
d'utilisation abusive

Hi,


I have many cells where text begin whith +
First cell is well redirect on error label, but not second + error why
?


Regards
Philippe


For Each c In Selection.Cells
q = c.row
On Error GoTo suite1
If c.row c.SpecialCells(xlLastCell).row Then
Exit For
Else
c.value = RTrim(c.value)
End If
GoTo suite2
suite1:
' pour gerer les erreurs sur les colonnes converties en type cellules
sans valeurs,commence par un +
If c.HasFormula Then c.value = "'" + c.FormulaR1C1
'Err.Clear


suite2:
Next c



pcouas

Error 13 on many trim with cells started with +
 
I have resolved problem
Thanks



All times are GMT +1. The time now is 07:14 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com