Discussion :

[MolikDLuffy]

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 :

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
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 :




Merci pour votre aide

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

[BENNASR]

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

Code :

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

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

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

[BENNASR]

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

Code :

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

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 (#)

[MolikDLuffy]

Merci beaucoup

Bonne fin de journée

[RyuAutodidacte]

Bonjour,

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

Code :

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

=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é !