[vba excel] macro initiales nom
Résolu/Fermé
A voir également:
- [vba excel] macro initiales nom
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Macro word - Guide
- Nom de l'adresse ✓ - Forum Réseaux sociaux
1 réponse
Ivan-hoe
Messages postés
433
Date d'inscription
dimanche 17 février 2008
Statut
Membre
Dernière intervention
17 octobre 2008
309
25 mai 2008 à 22:31
25 mai 2008 à 22:31
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 !
A suivre...
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...
26 mai 2008 à 23:30