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