supprimé des lignes

Bonjour,

Oui, bien sûr.

Tu vérifies chaque cellule et si elle est vide ou égale à 0 tu supprimes la
ligne.

Avec une boucle, cela sera très facile.

--
Patrick

"Érico" <hahaha@videotron.ca> wrote in message
news:uTcQhpi1EHA.1652@TK2MSFTNGP11.phx.gbl...

Bonjour,

Est-ce possible d'avoir une macro pour faire supprimer des lignes qui
n'ont
aucune valeurs ou "zéro" de A1 à L10?

Merci

Érico de montréal

Pour supprimer chaque ligne (entière) de la plage A1:L10 si elle contient au
moins un zéro ou "un vide" :

Sub zzzz()
For i = 10 To 1 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(i, 12)), 0) Or _
Application.CountIf(Range(Cells(i, 1), Cells(i, 12)), "") Then
Rows(i & ":" & i).Delete
End If
Next
End Sub

AV

Merci.....


Érico



"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23qZ9bkj1EHA.2316@TK2MSFTNGP15.phx.gbl...

Pour supprimer chaque ligne (entière) de la plage A1:L10 si elle contient
au

moins un zéro ou "un vide" :

Sub zzzz()
For i = 10 To 1 Step -1
If Application.CountIf(Range(Cells(i, 1), Cells(i, 12)), 0) Or _
Application.CountIf(Range(Cells(i, 1), Cells(i, 12)), "") Then
Rows(i & ":" & i).Delete
End If
Next
End Sub

AV