ProblemeMacro

patouman

XLDnaute Occasionnel
Bonjour a tous,

j'ai une erreur qui apparait pour ma macro
ci dessous en particulier la partie en rouge.
Quelqu'un aurait peut etre la gentillesse de m'eclairer ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:AC7")) Is Nothing Then Target = UCase(Target)
End Sub


Merci par avance
 

Chris401

XLDnaute Accro
Je n'arrive pas à reproduire ton erreur.
Peux-tu essayer :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C4:AC7")) Is Nothing Then Target = UCase(Target)
Application.EnableEvents = True
End Sub
Cependant, si tu as juste OUI ou NON dans tes cellules, je ne vois pas l'intérêt d'un code.
 

Discussions similaires

Statistiques des forums

Discussions
312 909
Messages
2 093 488
Membres
105 742
dernier inscrit
BTyBGT