petit pb de synthaxe pr mon code (colorer une cellule!)

petit pb de synthaxe pr mon code (colorer une cellule!) - VB/VBA/VBS - Programmation

Marsh Posté le 17-01-2013 à 16:11:12    

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 :
  1. Option Explicit
  2. Dim sh as Range
  4. For i = 2 To 20 Step 4
  5.     For j = Asc("B" ) To Asc("N" ) Step 4
  6.         sh = ActiveSheet.Cells(i, j - 64)
  7.         With sh
  8.             If .Value > 1000# Then
  9.                 .Interior.ColorIndex = 3
  10.                 .Offset(-1, 0).Interior.ColorIndex = 4
  11.             Else
  12.                 .Interior.ColorIndex = xlColorIndexNone
  13.                 .Offset(-1, 0).Interior.ColorIndex = xlColorIndexNone
  14.             End If
  15.         End With
  16.     Next j
  17. 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

Reply

Marsh Posté le 17-01-2013 à 16:11:12   

Reply

Marsh Posté le 17-01-2013 à 16:42:36    

Bonjour,
 
Set Sh = ActiveSheet.Cells(i, j - 64)
 
;)

Reply

Marsh Posté le 17-01-2013 à 16:51:32    

trop fort!
ah ce vba, un coup c'est comme ci, un coup c'est comme ça....  :cry:  
 
merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed