S
Slow
Guest
Un peu d'aide pour un "And" récalcitrant.
Je voudrais, à l'aide d'une macro et après une sélection et un click sur un bouton, mettre les cellules en différentes couleurs en fonction de de la valeur quelles contiennent.
Par exemple : de 1 à 99: fond Turquoise (code 8), de 100 à 250: fond Marron (code 53) et fonte blanc (code 2) etc. Et ceci pour 7 plages de valeurs ce qui dépasse la possibilité de MFC.
J'ai commencé un petit programme mais je ne sais pas délimiter la borne supérieure, je voudrais écrire : Case Is > s1 And ??< s2 mais je suis bloqué VBA me réclame une "Expression" à l'endroit des points ? et je ne sais pas quoi mettre.
Grand merci à qui voudra bien m'aider.
PS Ci-dessous le programme en question.
----------------------------------------------
Sub mise_en_forme_cellules()
Dim s1 As Integer
Dim s2 As Integer
Dim s3 As Integer
Dim s4 As Integer
Dim s5 As Integer
s1 = 1 ' modifier ici les valeurs des seuils
s2 = 100
s3 = 250
s4 = 500
s5 = 750
s6 = 1000
For Each cell In Selection
Select Case cell.Value
Case Is > s1 And ??? < s2 'concerne s1
With cell.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 0
Case Is > s2 'concerne s2
With cell.Interior
.ColorIndex = 53
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 2
Case Is > s3 'concerne s3
With cell.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 0
Case Is > s4 'concerne s4
With cell.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 0
Case Is > s5 'concerne s5
With cell.Interior
.ColorIndex = 11
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 2
End Select
Next
End Sub
Je voudrais, à l'aide d'une macro et après une sélection et un click sur un bouton, mettre les cellules en différentes couleurs en fonction de de la valeur quelles contiennent.
Par exemple : de 1 à 99: fond Turquoise (code 8), de 100 à 250: fond Marron (code 53) et fonte blanc (code 2) etc. Et ceci pour 7 plages de valeurs ce qui dépasse la possibilité de MFC.
J'ai commencé un petit programme mais je ne sais pas délimiter la borne supérieure, je voudrais écrire : Case Is > s1 And ??< s2 mais je suis bloqué VBA me réclame une "Expression" à l'endroit des points ? et je ne sais pas quoi mettre.
Grand merci à qui voudra bien m'aider.
PS Ci-dessous le programme en question.
----------------------------------------------
Sub mise_en_forme_cellules()
Dim s1 As Integer
Dim s2 As Integer
Dim s3 As Integer
Dim s4 As Integer
Dim s5 As Integer
s1 = 1 ' modifier ici les valeurs des seuils
s2 = 100
s3 = 250
s4 = 500
s5 = 750
s6 = 1000
For Each cell In Selection
Select Case cell.Value
Case Is > s1 And ??? < s2 'concerne s1
With cell.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 0
Case Is > s2 'concerne s2
With cell.Interior
.ColorIndex = 53
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 2
Case Is > s3 'concerne s3
With cell.Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 0
Case Is > s4 'concerne s4
With cell.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 0
Case Is > s5 'concerne s5
With cell.Interior
.ColorIndex = 11
.Pattern = xlSolid
End With
cell.Font.ColorIndex = 2
End Select
Next
End Sub