mettre en majuscule ou minuscule automatiquement

[zumye]

bonjour
est il possible que certaine cellule soit toujours en minuscule et d'autre en majuscule. apparaement la mise en forme conditionnel ne le fais pas.
merci

 

[Pierrot93]

Re : mettre en majuscule ou minuscule automatiquement

Bonjour Zumye

regarde le code ci dessous, macro événementielle à placer dans le module de la feuille concernée (click droit sur l'onglet => visualiser le code) :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static x As Boolean
If Target.Count > 1 Then Exit Sub
    If x = False Then
        x = True
        'majuscule
        If Target.Address = "$A$1" Then Target.Value = UCase(Target.Value)
        'minuscule
        If Target.Address = "$A$2" Then Target.Value = LCase(Target.Value)
        x = False
    End If
End Sub

bon après midi
@+

 

[Pierrot93]

Re : mettre en majuscule ou minuscule automatiquement

Re

pour tester des plages de cellules :

Private Sub Worksheet_Change(ByVal Target As Range)
Static x As Boolean
If Target.Count > 1 Then Exit Sub
    If x = False Then
        x = True
        'majuscule
        If Not Intersect(Target, Range("A1:B12,C1,F1")) Is Nothing Then Target.Value = UCase(Target.Value)
        'minuscule
        If Not Intersect(Target, Range("A13:B24,C13,F13")) Is Nothing Then Target.Value = LCase(Target.Value)
        x = False
    End If
End Sub

@+

 

[zumye]

Re : mettre en majuscule ou minuscule automatiquement

merci bcp cela fonctionne bien