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

Patrick.75019 · 27 Novembre 2019

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 · 27 Novembre 2019

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

job75 · 27 Novembre 2019

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 :

VB:

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 · 28 Novembre 2019

job75 à dit:
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 · 28 Novembre 2019

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

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

Patrick.75019

XLDnaute Occasionnel

Patrick.75019

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Patrick.75019

XLDnaute Occasionnel

Patrick.75019

XLDnaute Occasionnel

Discussions similaires