Majuscule obligatoire

skoobi

XLDnaute Barbatruc

• 17 Décembre 2008

• #2

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):

Code:

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

End Sub

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 17 Décembre 2008

• #3

Re : Majuscule obligatoire

Merci pour ta réponse, cela marche suuuuper

 

Vote positif 0 Vote négatif

emp06bis

XLDnaute Junior

• 17 Décembre 2008

• #4

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 17 Décembre 2008

• #5

Re : Majuscule obligatoire

Pour A12:A22:

Code:

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 17 Décembre 2008

• #6

Re : Majuscule obligatoire

Bonsoir emp06bis, skoobi,

Une autre solution possible :

Code:

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.

 

Vote positif 0 Vote négatif