Boucle qui ne fonctionne pas

Bonsoir je veux créer une boucle mais celle ci ne fonctionne pas, la macro X s'exécute qu'une seule fois alors qu'il devrait s"executer tant qu'on est inférieur à range S89.... voici mon code:

Dim Compteur2 As Integer
Compteur2 = Range("T7").Value
Do While Compteur2 < Range("S89").Value
With Sheets("Structure")
 .Range("B1").Value = Compteur2
 End With
Run ("macroX")
Compteur2 = Compteur2 + .Range("T7").Value
Loop


Y a t il une erreur dans la structure??

Cordialement

Tu as une erreur dans ton code, un point en trop, ce qui provoque une exception et arrete l'execution :

Compteur2 = Compteur2 + .Range("T7").Value


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

Exacte j'ai mal recopié mon code je m'en était rendu compte mais cela ne change rien j'ai toujours le même souci.... je comprends pas!!

Ben, à part cette erreur, moi je n'ai pas de problème, ça marche bien!


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

ça marche pas  avec les range("...") je suis obliger de mettre des valeurs numérique pour les comparaison pour que ça marche!! pourtant mes cellules ne sont pas vide...

Salut,

As-tu fais un debugage pas-à-pas en placant des espions ?
Il y a surment une lecture ou un cast qui se fait mal.

__________
  Kenji

Effectivement il y avait un with en trop dans la macroX, ducoup mais cellules ne renvoyaient pas aux bonne reference!!! Maintenant c'est bon! Merci