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

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

I have resolved problem
Thanks