ProblemeMacro

[patouman]

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]

Bonsoir

Quel est le message d'erreur ?

 

[patouman]

Bonsoir chris,
ci joint le message d'erreur

 

[Chris401]

Je n'arrive pas à reproduire ton erreur.
Peux-tu essayer :

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.

 

[patouman]

Merci Chris
grace a ta correction ca fonctionne

pour le reste, je n'ai pas que des oui et non, la macro est surtout pour que toute saisie soit en majuscules

cordialement