Supprimer lignes en VBA

[Pépette]

bonjour le forum,

C'est Pépette qui desespère d'arriver un jour à écrire deux lignes de vba qui marchent !!!

Voici mon dernier souci :
J'aimerai supprimer toutes les lignes qui contiennent la valeur 0 (zéro) ou qui sont vides dans la colonne A (colonne qui d'un extrait à l'autre n'a pas toujours le même nombre de lignes)

Merci une nouvelle fois pour votre aide.

Deux grosses bises

Pépette

 

[PascalXLD]

Bonjour

Sub Supprimer()

Dim x as integer

for x =range('A65536').end(xlup).row to 1 step -1
if range('A' & x)=0 or range('A' & x)='' then rows(x).delete
next

end sub

Bon courage

 

[Pépette]

Pascal,

Je t'avais bien dit que j'étais incapable d'aligner deux lignes en VBA, ton code le confirme.

Merci pour ta précieuse assistance.

Deux bises

Pépette

 

[Philippe]

Salut à tous les deux,

il y a la même question 2 posts plus bas dans lequel j'avais proposé ceci:

Sub efface_ligne()
Dim vcel As Range
Range('A1:Z100').Select
For Each vcel In Selection
If vcel.Value = 1 Then vcel.EntireRow.Delete
Next
End Sub


L'avantage c'est que cette routine examine l'ensemble de la plage et pas uniquement la colonne 'A' (mais c'est vrai que c'était la demande initiale)

😉

Au fait, pascal, on ne croise plus les vieux habitiués sur le forum, où sont passés Thierry, ti, celeda, papy novice, léa, brigitte et j'en oublie ???

A+
Philippe

 

[PascalXLD]

Re

Philippe je comprends pas trop ta question sur les 'vieux' habitués car si tu regardes hier tu verras que Thierry a posté au moins 20 fois Celada une dizaine et pour TI je crois qu'avec la version 2 de veriti il est un peu pris mais on le voit régulièrement; Brigitte a posté 7 fois hier et Léa avait expliqué qu'après être venue pendant quelques temps sur le forum elle repartait pour son boulot

Bonne journée à toi