P
pcouas
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
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