bonjour,
désolé je débute avec excel et j'ai du mal à me faire à son fonctionnement. Qnn serait-il assez sympa pour m'expliquer pourquoi mon code ne fonctionne pas : (il devrait colorier certaines cellules selon la valeur du contenu)
Code :
- Option Explicit
- Dim sh as Range
- For i = 2 To 20 Step 4
- For j = Asc("B" ) To Asc("N" ) Step 4
- sh = ActiveSheet.Cells(i, j - 64)
- With sh
- If .Value > 1000# Then
- .Interior.ColorIndex = 3
- .Offset(-1, 0).Interior.ColorIndex = 4
- Else
- .Interior.ColorIndex = xlColorIndexNone
- .Offset(-1, 0).Interior.ColorIndex = xlColorIndexNone
- End If
- End With
- Next j
- Next i
|
en gros ça balaie les cellules de B2 à N20. Si je n'utilise pas sh mais écrit directement 'with ActiveSheet.Cells(i, j - 64)' déjà y'a une amélioration, il y a bien une valeur dans .value. J'ai essayer en mettant sh.select, pas mieux et d'autres trucs, bref je n'arrive pas à trouver la combinaison gagnante!
merci
