VBA jcomprends pas ce code

Bonjour,

Je pense que tu fais référence à ce fil :

https://forums.commentcamarche.net/forum/affich-19796996-fonction-vba

Dans ce code, tu effaces toutes les lignes visibles à l'issue d'un filtre....(sans supprimer ces lignes)

Et la ligne suivante supprime le filtre automatique, et par conséquence, ré-affiche toutes les données

Bonne journée

Merci, si jpeux mpermettre moi dans mes dossiers clients j'ai rien de la ligne 43 à 100, et le code il marche pas dans mon cas mais c le meme cas de figure.
Quand je supprime les lignes vides le code il marche très bien, mais le reponsable de cabinet il veut pas ca comme ca donc comme j'arrive pas à voir pourquoi ton code il marche pas avec ces lignes vide jveux intégrer
ce code(ci-dessous) pour copier le range A1:A6(sur chaque nouveille feuille client) à partir de la ligne 100 mais j'ai le code erreur '''Next sans For''' alors que le For je l'ai bien?????
Ce code moi j'lai mis en dernier c peut etre ca la problème???

For Each Feuille In Sheets
If Feuille.Name <> "clients_confidentielle" Then
Rows("43:100").Select
Selection.Insert Shift:=xlDown
Range("A1:AC6").Select
Selection.Copy
Range("A100").Select
ActiveSheet.Paste

Next Feuille

Bonjour,

"Next sans For" implique que dans votre code, le programme n'atteint pas le "Next".

Normal :

À l'Intérieur du [ For .. Next ], il y a un IF sans Enf IF

  
For Each Feuille In Sheets   

    If Feuille.Name <> "clients_confidentielle" Then   

        Rows("43:100").Select   
        Selection.Insert Shift:=xlDown   
        Range("A1:AC6").Select   
        Selection.Copy   
        Range("A100").Select   
        ActiveSheet.Paste   

    End If  

Next Feuille  

Lupin

J'ai mis le End If Ca marche pas quand meme

mon adresse c'est ines0091@hotmail.fr si quelqu'un veut bien m'aider jpeux envoyer le fichier par mail
SVPPPPPPPPPPPPPPP