Error 13 on many trim with cells started with +

pcouas
16 d=E9c 18:46 afficher les options

Groupes de discussion : microsoft.public.fr.excel
De : "pcouas" <[email protected]> - Rechercher les messages de cet
auteur
Date : 16 Dec 2005 09:46:48 -0800
Local : Ven 16 d=E9c 2005 18:46
Objet : Excel Error 13 on Trim Function on many + text cells
R=E9pondre | R=E9pondre =E0 l'auteur | Transf=E9rer | 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 =3D c.row
On Error GoTo suite1
If c.row > c.SpecialCells(xlLastCell).row Then
Exit For
Else
c.value =3D 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 =3D "'" + c.FormulaR1C1
'Err.Clear=20


suite2:=20
Next c

Try changing

suite1:

to

suite1:
Resume Point1
Point1:

HTH,
Bernie
MS Excel MVP


"pcouas" <[email protected]> wrote in message
news:[email protected]...
pcouas
16 déc 18:46 afficher les options

Groupes de discussion : microsoft.public.fr.excel
De : "pcouas" <[email protected]> - 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

I have resolved problem
Thanks