XL 2019 Changement de casse( 1ere lettre en majuscule) dans plusieurs colonnes

[Patrick.75019]

Bonsoir a tous

je veux changer la 1ere lettre du mot en majuscule dans une colonne
pour ce faire , Patrick Toulon avait fat ce code qui fonctionne tres bien, mais maintenant je voudrais que ca fonctionne également dans d’autres colonnes

Par exemple [A3:A33])_ [G3:G33]) _[[I3:I33]) mais je ne sais pas comment rajouter dans le code

Merci de votre aide

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [F3:F33]) Is Nothing Then Target.Value = Application.Proper(Target.Value)
Application.EnableEvents = True
End Sub

 

[Patrick.75019]

Ca fonctionne nickel😉
je te remercie et je te souhaite une bonne fin de soirée
@ bientot

 

[job75]

Bonsoir Patrick.75019,

J'ai refais [Edit : refait] mon message.

La solution de patricktoulon ne fonctionne pas dans tous les cas de figure, utilisez plutôt :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A3:A33,F3:G33,I3:I33])
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Target In Target.Areas 'si entrées multiples
    Target = Application.Proper(Target.Value)
Next
Application.EnableEvents = True
End Sub

A+

 

[Patrick.75019]

Private Sub Worksheet_Change(ByVal Target As Range) Set Target = Intersect(Target, [A3:A33,F3:G33,I3:I33]) If Target Is Nothing Then Exit Sub Application.EnableEvents = False For Each Target In Target.Areas 'si entrées multiples Target = Application.Proper(Target.Value) Next Application.EnableEvents = True End Sub

 

[Patrick.75019]

Merci Job75

merci job75
Effectivement ca ne fonctionnait pas dans mon application , mais ca fonctionnait sur une feuille d'un classeur vierge
et je ne comprenais pas pourquoi ?
Maintenant tout est ok
Donc un grand merci ,
@+bonne fin de journée et a bientôt pour de nouvelles aventures