forcer la majuscule

[kinel]

bonjour à tous

afin de forcer la majuscule sur deux colonnes j'ai trouvé ce code sur un autre fil. d'après ce que j'ai pu lire il devrait fonctionner pourtant chez moi ça bug ;
j'ai placé ce code au début du code de la feuille concernée.
il me met un message d'erreur sur le flag en disant valeur non définie !!!😕

merci de votre aide
Kinel

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub

If Not Intersect(Target, Range("b5:b1000")) Is Nothing Then
Application.EnableEvents = False
flag = True
Target.Value = Evaluate("PROPER(""" + Target.Value + """)")
End If

If Not Intersect(Target, Range("a5:a1000")) Is Nothing Then
Application.EnableEvents = False
flag = True
Target.Value = UCase(Target.Value)
End If


Application.EnableEvents = True

End Sub

 

[vbacrumble]

Re : forcer la majuscule

Bonjour

Ajouter en début de code (après la ligne ci-dessous)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim flag as Boolean

Devrait t'aider 😉

 

[kinel]

Re : forcer la majuscule

bonjour vbacrumble et merci beaucoup

comme quoi le bonheur tient à bien peu de chose ! 😉

Kinel