un problème de caractère et d'espace...

[dame et roi]

Bonsoir à tous🙂,

J'ai un petit problème à vous soumettre: J'ai dans la colonne A des noms et prénoms avec entre les deux de multiple espaces (5, parfois 20 caractères d'espace entre les deux!).
Je souhaiterai supprimer automatiquement à l'aide d'une macro ces espaces et mettrent automatiquement chaque prénom de la cellule axx dans la colonne Bxx (prénom).
Il y a des centaines de lignes à faire sur une vingtaine de feuilles. Manuellement, ca serait trop long à faire. Il y a certainement une solution.

Je possède excel 2000.

Pouvez vous svp, m'écrire le code dans le fichier ci joint. Je vous remercie par avance.

A bientôt,
amicalement,

 

[Guillaumega]

Re : un problème de caractère et d'espace...

bonjour,

Peut-être avec la formule suivante ?

=SUPPRESPACE(A1)

où en A1 tu as une cellule avec trop d'espaces

Bien à toi,
Guillaumega

 

[mromain]

Re : un problème de caractère et d'espace...

bonjour dame et roi,


voici un essai :

Sub test()
Dim tabStr() As String, texte As String, i As Integer
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    texte = Range("A" & i).Text
    While InStr(texte, "  ") <> 0
        texte = Replace(texte, "  ", " ")
    Wend
    tabStr = Split(texte)
    Range("A" & i) = tabStr(0)
    Range("B" & i) = tabStr(1)
Next i
End Sub

a+

 

[tototiti2008]

Re : un problème de caractère et d'espace...

Bonjour dame et roi,

donc tu as mauvais caractère et tu manques d'espace ? 😉

Blague à part, y a-t-il au moins 2 espaces entre NOM et PRENOM ?

 

[JHA]

Re : un problème de caractère et d'espace...

Bonjour à tous,

Une méthode parmi d'autres, en formule


JHA

 

[tototiti2008]

Re : un problème de caractère et d'espace...

Bonjour Guillaumega, Bonjour mromain, Bonjour JHA,

une autre proposition par formule :

en B2 :

=SUPPRESPACE(GAUCHE(A2;CHERCHE("  ";A2)))

en C2 :

=SUPPRESPACE(DROITE(A2;NBCAR(A2)-NBCAR(B2)))

 

[dame et roi]

Re : un problème de caractère et d'espace...

Bonsoir à tous🙂,

Merci pour vos réponses et le temps passé dessus. Vous avez été très performant. pas moi!!
C'est génial. on en apprend tous les jours...
ca fonctionne.

merci encore.
amicalement,