Bonjour,
Etant novice en VBA, je viens solliciter votre aide pour la résolution d’un problème.
Dans le classeur ci-joint, je souhaiterais réaliser les opérations suivantes à l’aide d’une macro :
Dans ma feuille 1 (BDD) j’ai une base de données.
A partir de cette base de données, je souhaiterais afficher dans la feuille 2 (Résultats) - (sans filtres apparents) les lignes concernant les villes (colonne C) Paris, Lyon, Marseille et dont le nom de structure (colonne D) ne commence pas par un asterix (*). Sur cette nouvelle feuille, je souhaiterais également supprimer les colonnes E et G.
L’idée étant de pouvoir actualiser mon tableau (Feuille 2) chaque fois que ma BDD sera mise à jour en feuille 1 en exécutant une macro.
Merci d’avance .
A ce stade, mon code est le suivant :
Sub Résultats()
Sheets(1).Range("A4:G20").Copy Sheets(2).Range("A4")
Sheets(2).Range("A4:G20").AutoFilter Field:=3, Criteria1:=Array("Paris", "Lyon", "Marseille"), Operator:=xlFilterValues
Sheets(2).Range("A4:G20").AutoFilter Field:=4, Criteria1:="<>*~**"
Range("E:E,G:G").Delete Shift:=xlToLeft
End Sub