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