Discussion :

[flyhb]

voila je voudrai supprimeer les ligne d 'un tableau lorsque les colonne A et B sont vides??

merci bcp

[fring]

Bonjour,

1ère possibilité : A et B = vide

Code :

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

1
2
3
4
5
6
Sub A_et_B()
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" And Cells(i, 2) = "" Then Rows(i).Delete
Next
End Sub

2ème possibilité : A ou B = vide

Code :

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

1
2
3
4
5
6
Sub A_ou_B()
Dim i As Integer
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" Or Cells(i, 2) = "" Then Rows(i).Delete
Next
End Sub

[flyhb]

merci mais cela marche pour les premiere ligne mais pas pour toute la feuille comment faire merci

[fring]

Si si ça doit fonctionner...c'est que ta colonne A contient bcp moins d'éléments que les autres colonnes.

Remplace

Code :

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

Cells(Rows.Count, 1).End(xlUp).Row

Par

Code :

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

Cells.SpecialCells(Type:=xlCellTypeLastCell).Row

[flyhb]

parfait c bon ca *merci