[vba excel] macro initiales nom [Résolu/Fermé]

Signaler
-
 jeremac -
Bonjour,


J'ai une colonne A de noms,prenoms
ex : Dupont, marc
je voudrais transformer avec une macro toute la colonne avec leurs initiales seulement

merci de votre aide

1 réponse

Messages postés
433
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
17 octobre 2008
301
Salut jeremac,
la procédure ci-dessous (avec la fonction associée) devrait répondre à ta question.
A toi d'adapter les séparateurs dans les fonctions Split et Join.
Remarque : ça ne marchera pas forcément pour les prénoms composés !

Sub TestInitiales()
Dim Cellule As Object
For Each Cellule In Range("A1:A10")
    Cellule.Value = Initiales(Cellule.Text)
Next Cellule
End Sub

Function Initiales(Nom As String)
Dim Tableau, i As Integer
Tableau = Split(Nom, ", ")
For i = 0 To UBound(Tableau)
    Tableau(i) = UCase(Left(Tableau(i), 1))
Next i
Initiales = Join(Tableau, ".")
End Function

A suivre...
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

merci bcp , j'ai testé ça marche nikel