Maronnier Sup Ligne avec condition

[ConseilRestauration]

Bonjour à tous,
il y a déjà des posts concernant ce type de question, mais à chaque fois, c'est un peu un cas particulier...

Voilà mon pb :
J'ai un fichier 1000 ligne de matériel avec différentes familles :

j'ai besoin d'effacer avec une macro toutes les lignes de matériel qui sont égale à 0 en quantité. Mais je dois conserver les lignes vierges qui séparent les familles...

voilà mon idée :
analyse par ligne la colonne "libellé", si est nul alors passe a la ligne suivante
si ligne suivant la colonne libéllé est nul (et là j'ai du texte), alors regarde la colonne "quantité" si = 0 alors supprime ligne sinon passe à la ligne suivante.

Le souci c'est que je n'arrive pas à traduire ça en VBA...
Merci pour vos posts et votre temps 😉
pierre

 

[Cousinhub]

Re : Maronnier Sup Ligne avec condition

Bonjour,
une petite précision :
la quantité est-elle issue d'une formule, ou un zéro (0) rentré dans la cellule ou une cellule vide?
dans quelle colonne?

 

[WDAndCo]

Re : Maronnier Sup Ligne avec condition

Bonjour à tous,
il y a déjà des posts concernant ce type de question, mais à chaque fois, c'est un peu un cas particulier...

Voilà mon pb :
J'ai un fichier 1000 ligne de matériel avec différentes familles :

j'ai besoin d'effacer avec une macro toutes les lignes de matériel qui sont égale à 0 en quantité. Mais je dois conserver les lignes vierges qui séparent les familles...

voilà mon idée :
analyse par ligne la colonne "libellé", si est nul alors passe a la ligne suivante
si ligne suivant la colonne libéllé est nul (et là j'ai du texte), alors regarde la colonne "quantité" si = 0 alors supprime ligne sinon passe à la ligne suivante.

Le souci c'est que je n'arrive pas à traduire ça en VBA...
Merci pour vos posts et votre temps 😉
pierre

Bonjour le Forum

Dim li As Long
Dim x As Long

li = Range("I65536").End(xlUp).Row

For x = li To 2 Step -1
If Cells(x, libellé).Value <> "" and Cells(x, quantité).Value = 0 Then
Rows(x).Delete
End If
Next x

 

[ConseilRestauration]

Re : Maronnier Sup Ligne avec condition

bonjour bhbh,

mon fichier est transfert dans un autre classeur avec un copier colle valeur. Il n'y a donc pas de formules mais il peut y avoir zero comme rien (cellule vide)...

je n'avais pas pensé à ce point mais c'est clair qu'il a une grande importance!!!
merci