Discussion :

[Vdk_sven]

Bonjour a tous ,

je débutent dans vba donc .... pas facile

Je desirerais supprimé des lignes contenant "x" dans la colonne A.
cela j ai trouver... voici

Code :

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

1
2
3
4
5
Sub supprimé_21_lignes()
For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(lin, 1) = "x" Then Rows(lin).Delete Shift:=xlUp
Next lin
End Sub

Maintenant je voudrait limiter la suppression de ces lignes a 21 à chaque fois que je clic sur mon bouton.

ESt- ce que quelqu un pourrai m aider svp

Merci

PS : je suis pas un habitué des forums donc si j ai oublié quelque chose pardonnez moi.

[Thautheme]

Bonjour VDK, bonjour le forum,

Tu as juste oublié de baliser le code avec le bouton #...
Si j'ai bien compris, essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
Sub supprimé_21_lignes()
Dim I As Byte
 
For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
    If I = 21 Then Exit Sub
    If Cells(lin, 1) = "x" Then Rows(lin).Delete Shift:=xlUp
    I = I + 1
Next lin
End Sub

[Vdk_sven]

Bonjour Thautheme

Tout d'abord merci pour ton aide.

J ai essaié ton code mais il n'efface que 3 lignes a la fois .
J 'essaie de comprendre pourquoi .
Si tu as une idée ... Merci a toi

[Marc-L]

Bonjour,

Robert, une p'tite optimisation pour les lignes de la plage utilisée :

Code :

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

1
2
3
4
5
6
7
    With ActiveSheet.UsedRange
        For lin& = .Rows.Count To 1 Step -1
 
            If .Cells(lin, 1) = …
 
        Next
    End With

[Vdk_sven]

Bonjour Marc L

Voila Ca y est ca fonctionne , je touche plus a rien lol

J ai modifier le "21" en "38"

J avoue que je sais pas trop bien ce que j ai fait mais ca marche ...

Merci encore pour votre aide

[keygen08]

Bonjour
s'il faut supprimé 21 ligne a chaque fois que x est trouvé alors

Code :

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

1
2
3
4
5
6
Sub supprimé_21_lignes()
 
For lin = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
    If Cells(lin, 1) = "x" Then Rows(lin & ":" & lin + 20).Delete Shift:=xlUp
Next lin
End Sub

[Vdk_sven]

bonjour keygen08

Merci pour ton code et pour le petit bouton résolu