Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
Application.EnableEvents = False
Target = UCase(Target)
fin:
Application.EnableEvents = True
End Sub
1. je ne trouve pas visualiser le code (je travaille sous mac)
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
On Error GoTo fin
Application.EnableEvents = False
Target = UCase(Target)
fin:
Application.EnableEvents = True
End Sub
Aarf.. peut être... mais perso jamais vu... mais pas tout vu non plus....OK. Mais il n'existe pas une mise en forme conditionnelle pour mettre en majuscule?