Macro pour changement de casse automatique

Bonjour

Je suis assez débutant.

Je souhaite créer une macro pour passer en majuscule les données texte entrées dans n'importe quelle cellule des colonnes C et D de ma feuille Excel.

Cette macro doit se déclencher automatiquement à la validation de la cellule.

Merci d'avance pour votre aide.

Salut Abougor,

à coller dans le module de la feuille concernée.

Private Sub Worksheet_Change(ByVal Target As Range)
'
Application.EnableEvents = False
'
If Not Intersect(Target, Range("C:D")) Is Nothing Then Target = UCase(Target)
'
Application.EnableEvents = True
'
End Sub

A+

Merci beaucoup

Cela fonctionne parfaitement.

Bonjour,

Pour éviter de planter Excel, prendre quelques précautions.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Range("C:D")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub