Majuscule 1er mot
#1
Aspirant XLPages

Inscription: 19/11/2011

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 13-12-2022 14h33

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

Edité par tactic6 le 13/12/2022 15:24:58
Hors Ligne
Rapport   Haut 

Re: Majuscule 1er mot
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-12-2022 19h56

Bonsoir tactic6, le Forum,

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

Sub MajusculePremiereLettre_Et_MinusculesPourLeReste()
Dim myRange As Range, R As Range

    Set myRange = [c15:c52]
   
    For Each R In myRange
        R.Value = UCase(Left(R.Value, 1)) & LCase(Mid(R.Value, 2))
    Next R

    'MsgBox ("Fin de traitement")
End Sub
  

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,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: Majuscule 1er mot
#3
Aspirant XLPages

Inscription: 19/11/2011

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 14-12-2022 10h52

Merci tout simplement parfait

Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes