Supprimer des lignes si des colonnes ont des cellules vides

Question

Il faudrait que je supprime des lignes si plusieurs colonnes comportent des cellules vides (Colonnes AK - AS) J'avais un code mais il ne fonctionne pas et je n'y connait presque rien en VBA: Sub efface_vide() Dim l As Long For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 If Cells(l, "AK").Value = "" _ And Cells(l, "AL").Value = "" _ And Cells(l, "AM").Value = "" _ And Cells(l, "AN").Value = "" _ And Cells(l, "AO").Value = "" _ And Cells(l, "AP").Value = "" _ And Cells(l, "AQ").Value = "" _ And Cells(l, "AR").Value = "" _ And Cells(l, "AS").Value = "" _ =&gt;(Le débogage s’arrête après then) ThenCells(l,1).EntireRow.Delete Next l End Sub Voilà merci d'avance...

rvtoulon · Accepted Answer

Tu dis: donc je vérifie si le résultat de ces cellules = 0 ou rien (je dis résultat car ces cellules ne sont pas vides elles contiennent des formules , ce qui n'est pas pareil) j'efface la ligne entière un essai avec ton fichier: la difficulté pour toi c'est que tu as des formules dans tes cellules, donc voici ton fichier avec une macro qui fonctionne. Lance ta macro en faisant Ctrl+Maj+T...

FINDRH · Answer

Un bout de fichier anonymisé serait nécessaire, les images sont inexploitables. Un moyen détourné: tu copies ta colonne A en AT et tu la nommes tri en T2: =SI(NB.VIDE(AK2:AS2)&gt;1;2;1) recopier cette formule vers le bas ou sur une zone définie avec le rang de la dernière ligne Figer les valeurs de la colonne puis tri sur la colonne chercher 2 et supprimer de la ligne ainsi repérée à la fin du tableau Peut être pas assez "in" mais ça marche parfaitement et ça s'enregistre et se modifie très vite Cordialement FINDRH...

FINDRH · Answer

Ci joint une version macro selon le principe du message précédent A Tester, avec ctrl Maj T Cordialement FINDRH...

FINDRH · Answer

Quelle version d'Excel si &gt;= 2007 il faut activer les macros Fichiers==&gt;Options ==&gt; centre de gestion de la confidentialité ==&gt;Paramètres du centre de gestion de la confidentialité==&gt;Paramètre des macros==&gt; Cocher activer toutes les macros OK Enregistrer? Fermer et ré ouvrir le fichier Cordialement FINDRH...

Myta35 · Answer

Il faut enregistrer au format xlsm , sinon bye-bye les macros Mytå...

FINDRH · Answer

Quand on joint le mauvais fichier on se cache à mille lieues sous terre au lieu de prodiguer des conseils inutiles! Mille excuses A tester Cordialement FINDRH...