VBA - récupérer la 1er lettre des mots d'une cellule
Bonjour,
je sollicite votre expertise pour trouver le code qui me permettra de récupérer la 1er lettre de chaque mot contenus dans une même cellule.
Exemple :
Feuil 1 - cellule A2 j'ai : Jean Bernard
je voudrais récupérer JB pour le coller en feuil 2 - cellule C5
Autre exemple avec : Jean Bernard David - récupérer JBD
J'ai vu qu'il y avait des codes pour récupérer la 1er lettre, la dernière, supprimer les espaces...., mais je n'ai pas résussi à voir comment utiliser pour mon cas.
D'avance merci de votre aide.
Bonjour
Peut-être avec cette fonction (à mettre dans un module), à condition que les premières lettres de chaque noms et prénoms soient en majuscules et les autres en minuscules
Public Function majuscules(zone)
Dim sel As Object
Dim i As Integer
Application.Volatile
For Each sel In zone
For i = 1 To Len(sel)
If Asc(Mid(sel, i, 1)) > 64 And Asc(Mid(sel, i, 1)) < 91 Then
majuscules = majuscules & Mid(sel, i, 1)
End If
Next i
Next sel
End FunctionA tester (prends la premiere lettre des mots, minuscule ou majuscule)
melch a écrit :A tester (prends la premiere lettre des mots, minuscule ou majuscule)
Merci à tous pour vos propositions et votre réactivité.
J'ai incorporé le code de Melch à ma macro est c'est nickel.
Grand merci