Utilisation de variables dans Cells()

Bonjour a tous,

Je me retrouve avec un petit soucis qui, je pense est tout bête, cependant après de longue minute de recherche je ne trouve pas solution :?

Voici mon petit bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim fin, ligne As Integer Dim droite As Range fin = 2 ligne = 8 Do While Range("H" & fin).Interior.Color = Range("H2").Interior.Color fin = fin + 1 Loop Set droite = Range("H" & fin) Do While Not Cells(fin, ligne).Interior.Color = Range("A500").Interior.Color ligne = ligne - 1 Loop Range("droite: Cells(fin, ligne)").Select

---

La ligne en Rouge correspond a l'endroit ou j'ai l'erreur:

"Erreur d'execution '1004':

Erreur definie par l'application ou par l'objet"


Merci beaucoup de votre attention ! :D

Code:

---

Do While Cells(fin, ligne).Interior.Color <> Range("A500").Interior.Color

---

Bonjour, bonjour !

C'est juste un problème de logique, de conception : ne soustraire que si la variable ligne est supérieure à 1 ‼



_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Bonjour a toi !

Et merci de la rapidité de la réponse, mais malheureusement toujours la même erreur :(

Bonjour Marc,
je n'y est même pas pensé!

Effectivement marc ! je pense que c'est la solution, je teste ca de suite :P

Pour éviter l'erreur ou une boucle sans fin, sortir de la boucle quand ligne vaut 1 avant la soustraction ou 0 après …




_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Code:

---

1 2	ligne = ligne - 1 if ligne =0 then exit do

---

Sans oublier la ligne de code n°17 ! Soit dit en passant, sélectionner est souvent inutile …

Merci beaucoup de votre aide, le soucis semble être réglé !

Cependant je me retrouve encore avec la même erreur mais cette fois ci sur la ligne 7, alors que je n'ai absolument rien changé sur cette ligne
Je ne comprends pas comment c'est possible 8O


Pour info le select est simplement la pour que je vérifie que ma macro arrive bien sur la cellule désirée, il va disparaître des que tout ceci sera fonctionnel ;)



EDIT: L'erreur apparaissant sur la ligne 7 est en fait : "Erreur d'execution 1004:
La methode 'Range' de l'objet '_Global' a echoué"

RE-EDIT: Excusez moi mais l'erreur se situe en fait sur la ligne 17, un petit bug de mon Excel me l'a fait afficher sur la mauvaise ligne, merci :)

En gros mon problème se situe sur la ligne 17, avec l'erreur citée dans le post précédent

je pense que c'est plutôt un erreur de syntaxe dans les paramètres de mon range qu'autre chose, des idées ? :P

C'est la même problématique et pourtant déjà signalée dans mon précédent post ‼

Que vaut donc la variable ligne lors de l'erreur ?

Sinon remplacer Exit Do par Exit Sub !


_____________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

J'ai peur de ne pas saisir, lorsque je mets ce code dans ma boucle:

Code:

---

1 2 3 4 5

If ligne > 1 Then ligne = ligne - 1 Else Exit Do End If

---

Ligne = 1 dans la fenêtre espion lors de l'erreur et bien sur toujours la même erreur :/


Et j'ai encore du code a exécuter après, le Exit sub n'est pas ce qu'il me faut

Trouvé ! Le probleme venait simplement des guillemets que j'avais mis dans mon range ligne 17

Merci beaucoup de votre aide et a bientot ! :D