Suppression de lignes avec conditions multiples en VBA

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

Malgré mon acharnement concernant ma recherche de mon problème, je n'y arrive pas...

J'ai quatre colonnes (numéro ; libelle ; code ; montant)

C'est un tableau de 32 lignes dans mon exemple et bien entendu, je peux avoir des lignes vides (exemple les lignes 6 et 23).

Ma requête est :

Si la cellule de la première colonne n'est pas 6 ou 7 (y compris vide) et bien je supprime la ligne entière sinon rien (ou passe à la ligne suivante)

Voici mon début de requête mais cela ne marche pas ....
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub suppr () Application.ScreenUpdating = False Sheets("Feuil5").Select Dim nbligne As Long nbligne = Range("A1").CurrentRegion.Rows.Count For I = nbligne To 1 Step -1 If Not Cells(nbligne, 1).Value = "6" Or Cells(nbligne, 1).Value = "7" Then Selection.EntireRow.Delete End If Next I Application.ScreenUpdating = True End Sub
Et voici mon tableau :

Pièce jointe 313659

Merci pour votre aide

PS : Première fois que j'utilise le Forum :?

bonsoir
n'oublier pas de baliser ton code
essayez ça :

Code:

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 1) <> 6 And Cells(i, 1) <> 7 Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

22/09/2017, 15h41
MolikDLuffy

[QUOTE=BENNASR;9634754]bonsoir
n'oublier pas de baliser ton code
essayez ça :

Bonsoir BENNASR,

Cela marche bien à part que la première ligne a été également supprimée..

De plus, qu'est ce que vous entendez par baliser mon code?

Merci encore pour votre rapidité

pour s'arrêter à la ligne 2 il suffit de changer 1 par 2 ce qui donne :

Code:

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
             If Cells(i, 1) <> 6 And Cells(i, 1) <> 7 Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

A l'ouverture du discussion et Quand tu écris un code cliquer en haut sur (#)

22/09/2017, 15h59
MolikDLuffy

Merci beaucoup

Bonne fin de journée
22/09/2017, 16h17
RyuAutodidacte

Bonjour,

ou aussi sans boucle en utilisant une simple formule puis un tri :

Code:

=SI(OU($A2=6;$A2=7;$A2="");0;1)

Cf. ce post : https://www.developpez.net/forums/d1...e/#post9205474

Edit : j'ai inversé le 0 et le 1 à la fin du si, c'est corrigé !