garder les 4 première lettre du premier mot et la totalité du 2eme mot

[rtt61]

bonjour,

j'ai dans une feuille des cellules b3 a b32 ou sont notés le nom et le prenom de personne

je voudrais un code VBA qui ne fasse apparaitre dans chaque cellule que les 4 premieres lettre du nom et la totalité du prenom (le nom et le prenom sont separé par un espace)

je vous remercie de votre aide

 

[sixair]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

Bonjour,

oups je réalise que j'avais pas lu "en VBA"...
Une formule qui prend en compte les noms de moins de 4 lettres:

=GAUCHE(GAUCHE(B3;CHERCHE(" ";B3));4) & STXT(B3;CHERCHE(" ";B3);NBCAR(B3))

Y'a pu qu'a traduire en VBA...au boulot

 

[Victor21]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

Bonjour.

Toujours par formule, avec le nom avant le prénom :

=STXT(B3;1;4)&" "&DROITE(B3;NBCAR(B3)-CHERCHE("§";SUBSTITUE(B3;" ";"§";NBCAR(B3)-NBCAR(SUBSTITUE(B3;" ";"")))))

Ne tient pas compte des noms de moins de 4 lettres.

 

[st007]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

J'aime pas le vba moi ....

une formule, c'est chouette

=GAUCHE(B3;4)&" "&(DROITE(B3;NBCAR(B3)-TROUVE(" ";B3)))

 

[sixair]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

La même en VBA

Sub NomPrenom()
For i = 3 To 32
Nom = Left(Left(Cells(i, 2), InStr(Cells(i, 2), " ") - 1), 4)
Prenom = Mid(Cells(i, 2), InStr(Cells(i, 2), " "), Len(Cells(i, 2)))
Cells(i, 3) = Nom & Prenom
Next
End Sub

 

[sixair]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

Ajout, pour info
j'ai testé la formule de st007 ,
bien, sauf pour prénom court
Je connait un certain "Jo Wu" et là ça coince...

 

[st007]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

Bonjour sixair,

très bon boulot, juste, il demandait dans la même cellule (colonne B)

édit pour sixair :
=GAUCHE(B3;SI(TROUVE(" ";B3)<4;TROUVE(" ";B3);4))&" "&(DROITE(B3;NBCAR(B3)-TROUVE(" ";B3)))

 

[R@chid]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

Bonjour,

Ajout, pour info
j'ai testé la formule de st007 ,
bien, sauf pour prénom court
Je connait un certain "Jo Wu" et là ça coince...

=GAUCHE(B3;MIN(4;TROUVE(" ";B3)-1))&" "&DROITE(B3;NBCAR(B3)-TROUVE(" ";B3))

@ + +

 

[sixair]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

Tu chipotes St007,

suffit de remplacer

Cells(i, 3) = Nom & Prenom

par

Cells(i, 2) = Nom & Prenom

et pis c'est mis "apparaitre dans chaque cellule", pas précisé laquelle!

En plus j'ai pas mes lunettes...

 

[rtt61]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

bonjour,a tous

merci de toutes vos reponses,
il manquait une precision,
le resultat de ce code VBA doit etre dans la même cellulle
plus clairement
il faut dans les B2 a B35 que lorsqu'une personne note le nom entier et le prenom d'une personne, le resultat dans les cellule B2 a B35 montre les 4 premier lettre du nom et la totalité du prenom

merci de vos reflexions

 

[st007]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

bonjour,

j'ai dans une feuille des cellules b3 a b32 ou sont notés le nom et le prenom de personne

je voudrais un code VBA qui ne fasse apparaitre dans chaque cellule que les 4 premieres lettre du nom et la totalité du prenom (le nom et le prenom sont separé par un espace)

je vous remercie de votre aide

attention rtt61, tu veux maintenant B2:B35

sixair va encore dire que je chipotte ....

 

[rtt61]

Re : garder les 4 première lettre du premier mot et la totalité du 2eme mot

bonjour,

non, c'est une erreur de frappe,les plages sont bien de B3 à B32