Bonjour à tous

Voici une macro qui met la premier lettre du 1er mot en majuscule
 

Sub MajusculePremiereLettre()
 

Dim myRange As Range
Dim myArray As Variant
Dim i As Long

Set myRange = [c15:c52]
myArray = myRange.Value


For i = 1 To UBound(myArray, 1)
        myArray(i, 1) = UCase$(Left$(myArray(i, 1), 1)) & _
        LCase$(Right$(myArray(i, 1), Len(myArray(i, 1)) - 1))

Next

myRange = myArray

''MsgBox ("Fin de traitement")

  End Sub

Cela fonctionne tres bien si toutes les les lignes de la plage selectionnée sont remplies mais si on a une ligne vide erreur 5

Y a t'il moyen de dire a excel si ligne vide tester la suivante ?

Merci

Mise à jour ça ne fonctionne plus du tout pourquoi j'en sais rien

Bonsoir tactic6, le Forum,

Tu devrais pouvoir utiliser quelque chose comme ça, peut-être :

Nb : je me suis permis de renommer ta procédure car, visiblement, tu ne fais pas qu'imposer la première lettre en majuscule, tu imposes également tout le reste en minuscules (et ça fait une nuance qui peut avoir son importance).

Bien cordialement,

Merci tout simplement parfait