Discussion :

[meumeu73.1]

Bonjour à tous,

je fais une recherche avec le code suivant et je veux que lorsqu'il trouve 1 il supprime la ligne, mais j'ai un problème, je n'y arrive pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
x = Cells(1, 1)
    For x = 3 To 3
        For y = 10 To 15000
            If Cells(y, x).Value = 1 Then
 
                Cells(y, x).Select
                rows.Delete Shift:=xlUp
 
            End If
        Next y
    Next x

par avance merci pour votre aide.


meumeu73

[ouskel'n'or]

Code :

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

1
2
3
4
5
    For x = 3 To 3
        For y =15000 to  10 step - 1
            If Cells(y, x).Value = 1 Then rows(y).Delete Shift:=xlUp
        Next y
    Next x

Si tu pars de la 1ère ligne vers la dernière, chaque fois qu'une ligne sera effacée ton code saute la suivante.
Si tu pars de la dernière vers la première, y - 1 correspondra bien à la ligne située au-dessus de la ligne effacée.
Et donc, deux corrections pour le prix d'une seule
Bonne journée

[meumeu73.1]

je teste.

[meumeu73.1]

Super merci beaucoup, bonnée également