Discussion :

[totow]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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

[totow]

Bonjour a toi !

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

[Invité]

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

[totow]

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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

[totow]

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


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

[totow]

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 ?

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[totow]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[totow]

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

Merci beaucoup de votre aide et a bientot !