Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006
-
5 juil. 2006 à 18:01
Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006
-
6 juil. 2006 à 13:33
Bonjour,
Voila le code que j'ai mis ne veut pas me donner la position du caractere espace ... si je le met en dur direct dans la fonction cela fonctionne mais quand je vais chercher ce texte dans une cellule et la plus rien.
Si quelqu'un à une idée merci d'avance
Sub space()
Dim iPos As Integer
Dim copier As Strin
Dim nom As String
For compteur = 5 To 1239 Step 2
nom = Range("C" & compteur)
iPos = InStr(nom, " ")
MsgBox iPos
Next compteur
End sub
la box me renvoi tjs zéro alors que le contenu de la cellule est bien présente
merci
Pinzut77
Messages postés21Date d'inscriptionmercredi 5 juillet 2006StatutMembreDernière intervention17 juillet 2006 6 juil. 2006 à 12:24
Encore merci Julien c'est vraiment formidable ! Une dernière pour la route ... Est il possible d'enlever les espaces superflu ? Genre ceux à la fin des cellules (il y a desfois un espace qui traine) et ceux entre les mots comme M. Francois PIGNON où il peut y avoir jusqu'a 3 espaces entre le prénom et le nom .. Merci ^^