Discussion :

[jean30]

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

[patricktoulon]

re
bonsoir

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(Range("A4, G25, J14, K7"), Target.Cells(1)) Is Nothing Then
        If Not IsEmpty(Target) Then
            Target.Value = UCase(Target.Value)
        End If
    End If
End Sub

[jean30]

Bonsoir Patrick,
Super sympa et fonctionnel à 100%
Peux-tu m'expliquer Target.Cells(1) Stp

un bug si j'efface la saisie suite erreur :
On Error Resume Next 'J'ai trouvé : avant ligne ci-dessous
Target.Value = UCase(Target.Value) surligné en jaune

[unparia]

Bonjour
Je suggère la simplicité, les protections et la non prise en compte de ce qui est inutile -->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case Target.Address(0, 0)
     Case "A4", "G25", "J14", "K7" '-->> on les connaît, ces addresses
       Application.EnableEvents = False '---->> pour éviter de relancer alors qu'on mùodifie
       Target.Value = UCase(Target.Text) ' j'utilise la propriété text
       Application.EnableEvents = True ' --->> on remet les choses en place
    End Select
 End Sub

[patricktoulon]

re

Peux-tu m'expliquer Target.Cells(1) Stp

au cas ou target serait une plage de cellule on prend la 1

cela dit unparia a raison puisque les cellules cibles sont connues un simple case suffit c'est plus explicit je reconnais

[jean30]

Bonjour et merci à vous
Bon dimanche