Discussion :

[e08b753z]

Bonjour,
Je suis Hyper debutant en VBA
Je veux creer une procedure en VBA qui selectionne une plage de donnée et supprime les lignes avec une condition sur une colonne.
Si quelqu'un a une idée de comment je peux faire.
Cordialement

[Daniel.C]

Bonjour,

Je te livre un code simple, mais qui peut se révéler lent s'il y a beaucoup de lignes à supprimer. Dans cet exemple, on supprime les lignes si les cellules de la colonne A contiennent "toto". Retiens qu'en cas de suppression, il faut toujours partir de la dernière cellule vers la première :

Code :

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

1
2
3
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Cells(i, 1) = "toto" Then Cells(i, 1).EntireRow.Delete
Next i

[Philippe Tulliez]

Bonjour,

Si quelqu'un a une idée de comment je peux faire.

Commence par utiliser l'enregistreur de macro.

[MMichel5962]

Bonjour
Moi j'ai fait cette macro pour supprimer les lignes avec condition

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
23
24
25
26
27
28
Public Lig As Integer
Sub Macro11()
 
Dim Ong As String
Dim Col, x As Integer
'Application.ScreenUpdating = False
Lig = 3
Col = 4
 
While Cells(Lig, Col) <> ""
x = Lig + 1
 
While Cells(Lig, Col) = Cells(x, Col)
 
If Cells(x, 12) = 0 Then
Rows(x).Select
Selection.Delete Shift:=xlUp
Else: x = x + 1
End If
 
Wend
Lig = x
 
Wend
 
Range("A1").Select
 
End Sub