Majuscule obligatoire

[emp06bis]

Bonjour,
Peut on m'aider
J'aimerais savoir si il est possible d'obliger à écrire en majuscule dans une cellule définie ?
Merci

 

[skoobi]

Re : Majuscule obligatoire

Bonjour,

voici une macro événementielle qui change le texte en majuscule après modification de la cellule définie (A1 ici):

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then [A1].Value = UCase([A1].Value)

End Sub

 

[emp06bis]

Re : Majuscule obligatoire

Merci pour ta réponse, cela marche suuuuper

 

[emp06bis]

Re : Majuscule obligatoire

Maintenant, si je souhaite paramétrer plusieurs cellules différentes, type de a12 à a22 et de b5 à b8, peut on m'aider de nouveau. merci

 

[skoobi]

Re : Majuscule obligatoire

Pour A12:A22:

If Not Intersect(Target, Range("A12:A22")) Is Nothing Then Target.Value = UCase(Target.Value)

 

[Papou-net]

Re : Majuscule obligatoire

Bonsoir emp06bis, skoobi,

Une autre solution possible :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cel In Range("A12:A22 , B5:B8").Cells
  cel.Value = UCase(cel.Value)
Next

End Sub

Espérant avoir aidé.

Cordialement.