Bonjour à tous,
Je me permets de solliciter de nouveau votre précieuse aide pour mes débuts en VBA.
Je suis actuellement bloquée sur une problématique. J'ai plusieurs onglets : un onglet "Data" et plusieurs onglets "Endroit 1", "Endroit 2", "Endroit 3"...
Je souhaite créer un bouton que l'on placerait dans chacun des onglets "Endroit x".
L'objectif est le suivant : si, dans l’onglet Data, colonne H=nom de l'onglet actif et valeur colonne K>31 alors je souhaite extraire les données de l’onglet Data pour les coller dans un nouvel onglet Extraction.
J'ai donc commencé la macro suivante, en utilisant Advanced Filter:
J’ai essayé ma macro mais j’ai un souci de syntaxe. Je pense que c’est lié aux deux critères mais je ne vois pas comment les formuler autrement.
Pouvez-vous m’aider ?
Merci beaucoup
Toline
Je me permets de solliciter de nouveau votre précieuse aide pour mes débuts en VBA.
Je suis actuellement bloquée sur une problématique. J'ai plusieurs onglets : un onglet "Data" et plusieurs onglets "Endroit 1", "Endroit 2", "Endroit 3"...
Je souhaite créer un bouton que l'on placerait dans chacun des onglets "Endroit x".
L'objectif est le suivant : si, dans l’onglet Data, colonne H=nom de l'onglet actif et valeur colonne K>31 alors je souhaite extraire les données de l’onglet Data pour les coller dans un nouvel onglet Extraction.
J'ai donc commencé la macro suivante, en utilisant Advanced Filter:
Code:
Sub Extraction1mois()
Dim DernLigne As Long
DernLigne = Sheets("Data").Range("A1048576").End(xlUp).Row
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Name = "Extraction"
Sheets("Data").Range("A1:K" & DernLigne).AdvancedFilter(Action:=xlFilterCopy, CriteriaRange:=Sheets("Data").Range("A1:K2"),Field:=8, Criteria:= ActiveWorkbook.ActiveSheet.Name, Field:=11, Criteria1:=">=31",CopyToRange:=Sheets("Extraction").Range("A1:K1"), Unique:=False)
End Sub
J’ai essayé ma macro mais j’ai un souci de syntaxe. Je pense que c’est lié aux deux critères mais je ne vois pas comment les formuler autrement.
Pouvez-vous m’aider ?
Merci beaucoup
Toline