| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 15/03/2010 à 20:08 | picflute | Pb macro VBA pour supprimer ligne | Merci qd meme, mais ca m'aide pas: mon script ne marche tjs pas et ca m'explique pas pourquoi le delete ne fonctionne pas ds mon fichier. Faire le ménage ds mon fichier? je veux bien mais explique moi un peu ce que tu veux dire. Désolé mais c'est pas évident pour moi. Pour info, ce fichier vient d'u... |
| 15/03/2010 à 15:56 | picflute | Pb macro VBA pour supprimer ligne | Merci mais je voudrais plutot un script automatique sans bouton alors j'ai essaye d'adapter ton code au mien mais ca revient a ce que j'avais déjà essayer je crois: Sub Macro2() ActiveSheet.ShowAllData Selection.AutoFilter Field:=19, Criteria1:="0,0" 'filtre deslignes Range("a5:a" & Lg).Name = "Acti... |
| 15/03/2010 à 09:55 | picflute | Pb macro VBA pour supprimer ligne | En fait ,plus généralement, je voudrais pouvoir effacer les lignes que j'affiche apres n'importe quel filtre. Toutes les solutions que je vois sont les memes, mais soit m'efface la ligne de filtrage ou alors ne me les efface pas. Voici mon excel en piece jointe. Pour info, quelqu'un m'a parlé d'une... |
| 15/03/2010 à 09:42 | dubois | VBA Supprimer plage filtrée dans une BD | Nad, j'ai essayé ton code: meme resultat: lignes non effacées. Claude, j'y vais de ce pas. Merci... |
| 12/03/2010 à 15:37 | picflute | Pb macro VBA pour supprimer ligne | Je croyais avoir trouvé une macro qui effacait les lignes filtrées mais a la fin du script, je verifie et: les lignes sont justes masquees mais pas efface du fichier. Ou est mon erreur? Selection.AutoFilter Field:=19, Criteria1:="0,0" Range([A5],[A5].End(XlDown)).Select Selection.Spe... |
| 12/03/2010 à 14:56 | dubois | VBA Supprimer plage filtrée dans une BD | Je n'arrive pas a faire fonctionner le code proposé. Ds mon exemple, mon filtrage est situé ligne 4 et les lignes a effacées commence en A5. J'ai essaye 2 choses mais rien ne marche: Selection.AutoFilter Field:=19, Criteria1:="0,0" Range("a5",[a65536].End(xlUp).Address).SpecialCells(xlCellTy... |