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

Question

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

Ivan-hoe · Answer

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...

[vba excel] macro initiales nom

1 réponse

Discussions similaires