augmenter les possibilités d'une mise en forme conditionnelle
2 réponses
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)?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Twistal,
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
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.
bonjour Twistal,
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
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)?
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
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.
Twistal
merci beaucoup Isabelle, ça devrait aller avec ce que tu m'as donné.
bonjour Twistal,
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
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.
merci beaucoup Isabelle,
ça devrait aller avec ce que tu m'as donné.
bonjour Twistal,
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
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 beaucoup Isabelle, ça devrait aller avec ce que tu m'as donné.
bonjour Twistal,
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
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)?
