Discussion :

[MaximeIndustrie]

Bonjour,

Débutant sur VBA, je souhaiterai supprimer des lignes selon plusieurs critères pour les cellules colonne L :

- Valeur cellule colonne L > 0 = Supprimer la ligne
- Valeur cellule colonne L est vide = Supprimer la ligne

Je souhaiterai que le vba traite l'ensemble des lignes qui est variable pouvant aller jusqu'à 2000-2500.

Cordialement.

[Trystan441]

Bonjour,

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
17
18
19
20
21
22
Sub Test()
 
dim i as long, Ligne as long
dim WsTest as worksheet
 
set wstest=workbooks("TEST").worksheets("TEST")
 
'On cherche le numéro de la dernière ligne non vide dans la colonne A
ligne=wstest.cells(rows.count,1).end(xlup).row
 
'Boucle sur chaque ligne du tableau
for i = 1 to ligne
 
if wstest.cells(i,12)="" or wstest.cells(i,12)>0 then
 
wstest.rows(i).delete 'Suppression de la ligne si l'une des conditions ci-dessus est remplie
 
end if
 
next i
 
end sub

[MaximeIndustrie]

Bonjour,

Je tenais tout d'abord à vous remercier pour votre réponse rapide. Cependant, je n'arrive pas à aller au bout de ce code qui entre en "débogage" à la ligne 6 ci-dessous :

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
17
18
19
20
Sub Test()
 
Dim i As Long, Ligne As Long
Dim WsTest As Worksheet
 
Set WsTest = Workbooks("TEST").Worksheets("TEST")
 
Ligne = WsTest.Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 1 To Ligne
 
    If WsTest.Cells(i, 12) = "" Or WsTest.Cells(i, 12) > 0 Then
 
        WsTest.Rows(i).Delete
 
    End If
 
Next i
 
End Sub

[Trystan441]

Je ne l'ai pas précisé mais il faut changer les noms "TEST" par le nom du classeur et de la feuille :

Code :

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

1
2
3
4
5
6
 
workbooks("TEST").worksheets("TEST")
 
'devient
 
workbooks("LeNomDuClasseur").worksheets("LeNomDeLaFeuille")

[MaximeIndustrie]

Le code est presque terminé, cependant il reste une erreur dans la ligne 12 ci-dessous.
De plus, je tenais à vous remercier pour l'aide accordé.

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
17
18
19
20
21
Sub Test()
 
Dim i As Long, Ligne As Long
Dim WsTest As Worksheet
 
Set WsTest = Workbooks("Copie stock v2").Worksheets("TEST")
 
Ligne = WsTest.Cells(Rows.Count, 1).End(xlUp).Row
 
For i = 1 To Ligne
 
    If WsTest.Cells(i, 12) = "" Or WsTest.Cells(i, 12) > 0 Then
        WsTest.Rows(i).Delete
 
    End If
 
Next i
 
Cordialement.
 
End Sub

[Trystan441]

Quelle est cette erreur ?