N
nono
Guest
bonjour,
j ai une macro qui marche tres bien, c est la suivante :
Dim i&, a%
With ActiveSheet
For i = 1 To 46
Select Case .[L1].Offset(i).Value
Case Is <= 1: a = 3
Case 2 To 29: a = 30
Case 30 To 59: a = 5
Case 60 To 89: a = 53
Case Is >= 90: a = 2
End Select
With .Shapes(i).Fill
.ForeColor.SchemeColor = a
.Visible = (a <> 0)
End With
Next
End With
cependant si je la met sur la feuille 2 et que mes donnees sont sur la feuille 1 , qu ai je besoins de faire sur ma macro pour lui dire que "les regles " doivent se faire a partir le feuille 1 sur la feuille 2.
Merci
j ai une macro qui marche tres bien, c est la suivante :
Dim i&, a%
With ActiveSheet
For i = 1 To 46
Select Case .[L1].Offset(i).Value
Case Is <= 1: a = 3
Case 2 To 29: a = 30
Case 30 To 59: a = 5
Case 60 To 89: a = 53
Case Is >= 90: a = 2
End Select
With .Shapes(i).Fill
.ForeColor.SchemeColor = a
.Visible = (a <> 0)
End With
Next
End With
cependant si je la met sur la feuille 2 et que mes donnees sont sur la feuille 1 , qu ai je besoins de faire sur ma macro pour lui dire que "les regles " doivent se faire a partir le feuille 1 sur la feuille 2.
Merci