vba majuscule minuscul pb pour mettre formule

[zumye]

bonjour
je rencontre ce problème avec ce vba:

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("I19:O3000")) Is Nothing Then Target.Value = UCase(Target.Value)
If Not Intersect(Target, Range("Z116: Z3000")) Is Nothing Then Target.Value = UCase(Target.Value)
'minuscule
If Not Intersect(Target, Range("P19:Y3000")) Is Nothing Then Target.Value = LCase(Target.Value)
If Not Intersect(Target, Range("B68:E68")) Is Nothing Then Target.Value = LCase(Target.Value)
x = False

End If
End Sub

cela me permet que certaine cellule soit tjs en minuscule et d'autres en majuscule

cela marche tres bien, sauf que sur ces cellules lié a ce vba je ne peux plus rentrer de formule

comment faire?
merci

 

[wilfried_42]

Re : vba majuscule minuscul pb pour mettre formule

Bonjour

ceci n'est qu'un exemple, adapte les plages

    If Not Intersect(Range("A1:C10"), Target) Is Nothing Then
        If Target.Formula = Target.Value Then Target = UCase(Target)
    End If

 

[skoobi]

Re : vba majuscule minuscul pb pour mettre formule

Bonjour,
Si j'ai bien compris, il ne faut pas utiliser la propriété "Value" mais "Formulalocal":


Target.Formulalocal= UCase(Target.Formulalocal)
Target.Formulalocal= LCase(Target.Formulalocal).

Autre chose, tu peux regrouper les conditions comme ceci:

If Not Intersect(Target, Range("I19:O3000")) Is Nothing [B]And _[/B]
Not Intersect(Target, Range("Z116: Z3000")) Is Nothing Then Target.Value = UCase(Target.Value)
.........
If Not Intersect(Target, Range("P19:Y3000")) Is Nothing [B]And _[/B]
Not Intersect(Target, Range("B68:E68")) Is Nothing Then Target.Value = LCase(Target.Value)

Edit: suis en retard moi, salut Wilfried 🙂