Effacer ou supprimer ligne

[Christophe]

Bonjour,

J e cherche une solution pour effacer des lignes sans informations insérées parmi des lignes qui en contienent !
Il faut donc ensuite décaler vers le haut les lignes qui restent (avec les infos)

 

[Gérard DEZAMIS]

Bonsoir Christophe

Le 14/5 ZON en réponse à Mouad écrivait :

"Salut, tu peux d'inspirer de ce qu'a fait Pias dans le fil juste avant toi

Sub Masqueliste()
Dim Cell As Range
For Each Cell In Range("A8:A500") ' à adapter
If Cell = 0 Then Rows(Cell.Row).Hidden = True
’ pour les supprimer =>Rows(Cell.Row).entirerow.delete
Next Cell
End Sub

Je crois que toi aussi tu peux t'inspirer de ce travail bien fait !
@+
GD

 

[Christophe]

Bonjour Gérard,

Merci pour cette info qui de plus fonctionne !
C'est génial !!!

Par contre je dois la relancer plusieurs fois de suite pour etre sûr que ttes les liges sont effacées !
Ne faudrait il pas une petite fomule en plus ? (je suis débutant et c la premiere fois que je vais sur ce genre de forum ! Désolé !)

Merci D'avance

Christophe

 

[Pascal76]

Salut christophe

Non pour la supression il faut juste boucler à l'envers de la ligne du bas vers le haut.

du Genre

Sub Suppliste()

For x=range("A65536").end(xlup).Row to 1 step -1
If range("A" & x) = 0 Then Rows(x).entirerow.delete 'adapter la condition
Next

End Sub

Bon courage

Pascal

 

[Christophe]

Merci pour ces conseils avisés !!
j'ai gagné bcp de tps grace a vous

Mille merci !