Effacer des lignes

[guenfood]

Bonjour,

Comment puis-je faire par code pour que dans mon classeur, toutes les lignes dans lesquelles la case de la colonne G qui contiennent '*' soient supprimées ?

Merci d'avance pour votre aide.

 

[Jacques87]

Bonjour

Tu construis une macro qui aura pour code

Dim I As Integer

For I = 1 To Range('G65530').End(XlUp).Row
If Range('G' & I).Value = '*' Then Rows(I).Delete Shift:=xlUp
Next I

Bon courage

 

[porcinet82]

Salut guenfood,

Tiens avec la macro qui suit tes lignes devraient etre supprimées.

Sub sup_ligne()
Dim i As Byte

For i = 1 To Range('G65536').End(xlUp).Row 
    If Cells(i, 7).Value = '*' Then
        Rows(i).Delete
        i = i - 1
    End If
Next i
End Sub

@+

Edition: Et une bosse, une

Message édité par: porcinet82, à: 12/01/2006 12:14

 

[Robert]

Bonjour Guenfood, Jacques, Porcinet, bonjour le forum,

Pour éviter toute confusion avec le Next (puisqu'une ligne a été effacée), je propose la même chose mais en partant du bas du tableau et en remontant....

Sub Macro1()
For I = Range('G65530').End(XlUp).Row to 1 Step -1
If Range('G' & I).Value = '*' Then Rows(I).Delete Shift:=xlUp
Next I
End Sub