augmenter les possibilités d'une mise en forme conditionnelle
Le
Twistal
Bonjour à tous,
c'est ma première visite si je m'explique mal n'hésitez pas à demander
une reformulation!
Ma question est:
est-il possible d'augmenter les possibilités d'une mise en forme
conditionnelle?
si oui comment?
je m'explique: par exemple si je mets en forme une cellule je peux choisir
de faire un cadre double. (c'est d'ailleurs l'instruction .LineStyle =
xlDouble dans VBA)
mais je n'ai pas cette possibilité dans le cas d'une MEF conditionnelle.
J'ai esssayé de contourné la chose en modifiant la macro moi-même et en
insérant la ligne précédente de code au bon endroit mais VBA me dit:
"impossible de définir la proprieté linestyle, etc.."
dans le même ordre d'idée je crois qu'on est limité à 3 conditions sur Excel
pour une MFE, y a t il un moyen d'en mettre plus (via VBA par ex)?
Merci de votre réponse!
C.
c'est ma première visite si je m'explique mal n'hésitez pas à demander
une reformulation!
Ma question est:
est-il possible d'augmenter les possibilités d'une mise en forme
conditionnelle?
si oui comment?
je m'explique: par exemple si je mets en forme une cellule je peux choisir
de faire un cadre double. (c'est d'ailleurs l'instruction .LineStyle =
xlDouble dans VBA)
mais je n'ai pas cette possibilité dans le cas d'une MEF conditionnelle.
J'ai esssayé de contourné la chose en modifiant la macro moi-même et en
insérant la ligne précédente de code au bon endroit mais VBA me dit:
"impossible de définir la proprieté linestyle, etc.."
dans le même ordre d'idée je crois qu'on est limité à 3 conditions sur Excel
pour une MFE, y a t il un moyen d'en mettre plus (via VBA par ex)?
Merci de votre réponse!
C.
Poser une question
voici un exemple, tu peut mettre autant de "Case" désiré.
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A1:A10"))
If Not isect Is Nothing Then
With Target
For Each b In .Borders
b.LineStyle = xlNone
Next
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 0
End With
Select Case Target
Case 1 To 4, 7 To 9, 11
Selection.Font.ColorIndex = 3
Case "a", "b"
Target.Interior.ColorIndex = 33
Case "c"
With Target.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
End Select
End If
End Sub
isabelle
ça devrait aller avec ce que tu m'as donné.