SUPPRIMER LIGNES TABLEAU EN VBA EN PASSANT PAR UN FILTRE

Charles78 · 24 Novembre 2019

Bonjour,

Je souhaite supprimer des lignes d'un tableau à partir de la ligne 2 si la cellule en colonne H contient OUI (à savoir que le OUI est obtenu suite à une formule). Quand je me retrouve avec des lignes dont la cellule en colonne H contient OUI et d'autres contiennent NON, cela fonctionne car ça supprime bien toutes les lignes dont la cellule en colonne H contenait OUI et je me retrouve bien qu'avec les lignes dont les cellules en colonne H contiennent NON. Idem si je me retrouve avec que des lignes dont la cellule en colonne H contient NON, ça fonctionne aussi car ça ne me supprime pas les lignes.

En revanche, si je me retrouve qu'avec des lignes dont la cellule en colonne H contient OUI, les lignes ne sont pas supprimées et c'est bien là le problème.

Ci-dessous mon code:

VB:

 For i = Range("A65536").End(xlUp).Row To 2 Step -1
            If Cells(i, 8) Like "*OUI*" Then Rows(i).Delete
        Next i

Aussi, je pense que pour être plus rapide je souhaiterais un code VBA (avec la syntaxe If Then Else) qui indique la condition suivante: Si "toute" la Colonne C à partir de la ligne 2 (donc ne pas prendre en compte l'en-tête) a ses cellules vides, alors il faut supprimer toutes les lignes du tableau. Je ne vois pas comment je peux formuler ce code étant débutant en VBA (j'insiste bien sur le fait que toutes les cellules de la colonne C doivent être vides).

Merci beaucoup pour votre aide.

Staple1600 · 24 Novembre 2019

Re

Pour infos:
Le mien également.
Comme le code du message#11 permettait de s'en rendre compte...

Charles78 · 24 Novembre 2019

Charles78 à dit:
Fanfan,

Ta solution fonctionne ! Merci beaucoup !!!

Merci.

Bonsoir Fanfan,

En fait les lignes ne se suppriment pas mais elles sont masquées. Y-a-t-il un moyen de vraiment les supprimer ?

Merci

Charles78 · 24 Novembre 2019

Staple1600 à dit:
Re

Pour infos:
Le mien également.
Comme le code du message#11 permettait de s'en rendre compte...

Staple,

Je vais tester également ce code mais j'aimerais bein vous joindre mn fichier mais ça m'indique à chaque fois qu'il est trop volumineux.

Merci.

Staple1600 · 24 Novembre 2019

Re

Charles78
Je suis invisible ou quoi?
Faire le test avec le message#11
puis lancer la macro SupprLignes
Les lignes sont supprimées (et pas masquées)

Charles78 · 24 Novembre 2019

Staple1600 à dit:
Re

Charles78
Je suis invisible ou quoi?
Faire le test avec le message#11
puis lancer la macro SupprLignes
Les lignes sont supprimées (et pas masquées)

Bonsoir Staple,

Effectivement ton code en message #3 fonctionne sur ton fichier que j'ai pu créer grâce à ton code en message #11 mais je ne comprends pas pourquoi ton code en message #3 ne fonctionne pas sur mon fichier.

Merci.

Staple1600 · 24 Novembre 2019

Re

Pour le savoir, faudrait qu'on puisse voir ton fichier
(ou plutôt une copie allégée de celui-ci qui reproduit la structure et les formules de l'original (sans données confidentielles)
Une trentaine de lignes suffiraient pour faire le test.
NB: Tu peux aussi zipper le classeur avant de l'envoyer.

Charles78 · 24 Novembre 2019

Charles78 à dit:
Bonsoir Fanfan,

En fait les lignes ne se suppriment pas mais elles sont masquées. Y-a-t-il un moyen de vraiment les supprimer ?

Merci

Bonsoir Fanfan,

Aussi sur ton code il y a les deux conditions en même temps mais par rapport à ma demande je souhaitais avoir deux codes différents dont un pour supprimer les lignes dont la cellule en colonne H contient OUI et un autre code (pour que ce soit plus rapide pour moi) de supprimer les lignes du tableau si toute la colonne C est vide à partir d ela ligne 2 bien sûr. En pièces jpointes les deux fichiers avec vos codes respectifs.

Staple1600 · 24 Novembre 2019

Re

Charles78
Tu disais dans ton premier message

Je souhaite supprimer des lignes d'un tableau à partir de la ligne 2 si la cellule en colonne H contient OUI (à savoir que le OUI est obtenu suite à une formule)

Or dans le fichier que tu viens de joindre, pas de formule en colonne H !!!

Par conséquent, c'est normal que mon code ne fonctionne pas.
(puisque il a écrit en se basant sur le fait qu'il y avait des formules en colonne H)

Charles78 · 24 Novembre 2019

Charles78 à dit:
Bonsoir Fanfan,

Aussi sur ton code il y a les deux conditions en même temps mais par rapport à ma demande je souhaitais avoir deux codes différents dont un pour supprimer les lignes dont la cellule en colonne H contient OUI et un autre code (pour que ce soit plus rapide pour moi) de supprimer les lignes du tableau si toute la colonne C est vide à partir d ela ligne 2 bien sûr. En pièces jpointes les deux fichiers avec vos codes respectifs.

Désolé voilà les deux bons fichiers.

Merci.

Staple1600 · 24 Novembre 2019

Re

Charles78
Normalement, avec cette petite modif cela doit fonctionner, non?

VB:

Sub SupprLignes()
Dim dl&, f As Worksheet
Set f = Sheets("PRODUCTION")
 dl = f.Cells(Rows.Count, "F").End(3).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
  With f.Cells(2, f.Columns.Count).Resize(dl - 1)
    .Formula = "=IF(H2=""OUI"",""$"",0)"
    .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
    .Clear
  End With
Application.Calculation = xlCalculationAutomatic
End Sub

Charles78 · 24 Novembre 2019

Staple1600 à dit:
Re

Charles78
Tu disais dans ton premier message

Or dans le fichier que tu viens de joindre, pas de formule en colonne H !!!

Par conséquent, c'est normal que mon code ne fonctionne pas.
(puisque il a écrit en se basant sur le fait qu'il y avait des formules en colonne H)

Staple,

Les deux fichiers avec vos codes respectifs et la formule en colonne H. En fait les fichiers initialement envoyés étaient après l'exécution d'une première macro pour mettre en forme le tableau de l'onglet "PRODUCTION". Maintenant, vous avez les fichiers avec la 1ère macro en incorporant vos codes.

Merci.

Staple1600 · 24 Novembre 2019

Re

J'ai modifié la macro en conséquence
Voir mon message précédent
Vous avez testé cette nouvelle macro?

Charles78 · 24 Novembre 2019

Staple1600 à dit:

Re

Charles78
Normalement, avec cette petite modif cela doit fonctionner, non?

VB:

Sub SupprLignes()
Dim dl&, f As Worksheet
Set f = Sheets("PRODUCTION")
dl = f.Cells(Rows.Count, "F").End(3).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
  With f.Cells(2, f.Columns.Count).Resize(dl - 1)
    .Formula = "=IF(H2=""OUI"",""$"",0)"
    .SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
    .Clear
  End With
Application.Calculation = xlCalculationAutomatic
End Sub

Staple,

Oui effectivement ça fonctionne !!!! Les lignes sont bien supprimées et non masquées.

Aussi, si ce n'est pas trop demandé, peux-tu voir pour un code dans la cas où je souhaite supprimer les lignes du tableau mais cette fois si la colonne C est vide et toujours à partir de la ligne 2 ?

Merci infiniment à vous deux pour votre aide.

Staple1600 · 24 Novembre 2019

Re

Essaies cette macro

VB:

Sub Suppr_LignesVides_COLC()
Dim dl&, f As Worksheet
Set f = Sheets("PRODUCTION")
dl = f.Cells(Rows.Count, "F").End(3).Row
Application.ScreenUpdating = False
f.Range("C2:C" & dl).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Charles78 · 24 Novembre 2019

Staple1600 à dit:

Re

Essaies cette macro

VB:

Sub Suppr_LignesVides_COLC()
Dim dl&, f As Worksheet
Set f = Sheets("PRODUCTION")
dl = f.Cells(Rows.Count, "F").End(3).Row
Application.ScreenUpdating = False
f.Range("C2:C" & dl).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Staple,

En pièce jointe le fichier (pour le coup pas besoin de formule) mais j'ai un message d'erreur sur la dernière ligne.

VB:

f.Range("C2:C" & dl).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Merci.

SUPPRIMER LIGNES TABLEAU EN VBA EN PASSANT PAR UN FILTRE

Charles78

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Charles78

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Charles78

XLDnaute Nouveau

Pièces jointes

Discussions similaires