supprimer lignes si cellulle vide ou à zéro

[Boa73]

Bonjour,

Je recherche le moyen de supprimer des lignes dans un tableau avec designation et quantités.
Je voudrais pouvoir supprimer ces lignes de l'affichage et de l'impression si la cellule quantité est vierge ou égale à zéro.

A l'aide de deux boutons macro je voudrais pouvoir les supprimer avec un bouton et les remettre avec l'autre.

Voir mon exemple de fichier il contient que 80 lignes la version définitive aura 1000 lignes et je voudrais après action sur le bouton supprimer lignes vides, que les lignes 19,28,32,51,63, (celles qui n'ont pas de quantité soient supprimées)

En cliquant sur le bouton remettre ligne vides qu'elles reviennent à l'écran.

Merci d'avance de votre aide,

Cordialement,
Boa73

 

[Dull]

Re : supprimer lignes si cellulle vide ou à zéro

Salut Boa73, le Forum

Essayes ces quelques ligne de codes qui devrais pouvoir te convenir

Option Explicit
Dim i As Integer

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = Range("B65536").End(xlUp).Row To 4 Step -1
    If IsEmpty(Cells(i, 1)) Then Rows(i).RowHeight = 0
Next i
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Range("B1:B65536").RowHeight = 12.75
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[Boa73]

Re : supprimer lignes si cellulle vide ou à zéro

Merci bien Dull,

C'est ça mais juste un petit problème, la dernière ligne du tableau ne fonctionne pas. Peu importe le nombre de lignes totales (80 ou 1000).
Si on enleve la quantité de la dernière ligne, en colonne A et après avoir clicquer sur supprimer lignes la désignation de cette ligne en colonne B ne disparait pas.

Merci d'avance de votre aide.
Cordialement,
Boa73

 

[Dull]

Re : supprimer lignes si cellulle vide ou à zéro

Re Boa73, le Fil

Désolé j'ai fait l'essai sur le fichier que j'ai envoyé et cela fonctionne

j'avais justement essayé avec une donnée manquante sur la dernière cellule non vide de la colonne B et effectivement l'essai n'était pas concluant: c'est pourquoi j'ai changer de fichier et de code à 10:07.

Au pire des cas, remet ton fichier avec le code, pour voir de quoi il y retourne

Bonne Journée

 

[Staple1600]

Re : supprimer lignes si cellulle vide ou à zéro

Bonjour à tous , Dull (😉 )


Pourquoi pas tout simplement 😕

Sub masquervides()
Range([A2], [A65536].End(xlUp)).AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd, Criteria2:="<>"
End Sub

Sub voirtout()
ActiveSheet.ShowAllData
ActiveSheet.AutoFilterMode = False
End Sub

 

[Boa73]

Re : supprimer lignes si cellulle vide ou à zéro

Merci bien Dull,
Tout fonctionne

Excuse moi Staple 1600 (JM) mais j'ai pas testé le tien, mais merci quand même

Cordialement
Boa73

 

[Boa73]

Re : supprimer lignes si cellulle vide ou à zéro

Juste une dernière chose,entre deux manip sur les boutons supprimer ou remettre lignes si je fais un aperçu avant impression, la manip suivante sur un des deux boutons fonctionne mais rame (2mn au lieu de quelques secondes sans l'aperçu sur la version finale fichier complet 26 colonnes et 950 lignes)

Peut-on y faire quelques chose ?

Merci d'avance de vos réponses,

Cordialement,
Boa73

 

[Staple1600]

Re : supprimer lignes si cellulle vide ou à zéro

Re

Boa73
Tu as tout le temps du reste de ta vie pour tester cette macro pourtant 😀
(et tu verras que tu n'es même pas obligé d'utiliser de macro, si tu testais et comprenais ma macro )

En attendant d'avoir l'avis de Dull 😉 à ma question, bonne soirée à tous.