Bonjour,
Dans un formulaire de saisie avec Excel, je voudrais obliger certaines cellules à se mettre en majuscule
Mon code ne fonctionne pas
Pouvez-vous me corriger svp
En vous remerciant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A4, G25, J14, K7,")) Is Nothing Then
    If Not IsEmpty(Target) Then
      Target.Value = UCase(Target.Value)
    End If
  End If
End Sub