Rapport de message :*
 

Majuscule 1er mot

Titre du sujet : Majuscule 1er mot
par tactic6 le 13/12/2022 14:33:52

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