Sub MacroTest()
MsgBox UBound(Split(Range("A1")))
End Sub
Sub MacroTest2()
Dim Espaces
Espaces = Len(Range("A1").Text) - Len(VBA.Trim(Range("A1").Text))
MsgBox Espaces
End Sub
En reprenant la macro du message numéro 6Hello,
J'ai opté pour le code du message 6 (c'est vrai que le 3 comptait tous les espaces).
Fab
For i = 1 To 7
Range("H" & i) = Len(Range("B" & i).Text) - Len(VBA.Trim(Range("B" & i)Text))
Next i
Hello,
J'ai opté pour le code du message 6 (c'est vrai que le 3 comptait tous les espaces).
Je n'ai pas réussi à utiliser la Formule esp.
J'ai essayé :
Code:For i = 1 To 7 Range("H" & i) = esp("B" & i) Next i
Bonne fin d'après-midi.
Fab