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

[totow]

Bonjour a toi !

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

[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 …

[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

[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