A
Anynoor
Guest
Bonjour,
Je suis novice en VB sur excel, je suis en train d'essayrer de créer un macro pour extraire les données de ma BD selon certins critères.
Mais je bloque sur la fonction indirect()
Au niveau de CriteriaRange:=Range('r8')
A savoir R8 = A1:F2 ou A1F3 ou A1:F4.... selon le nombre de lignes de critères.
J'aimerais que le champ CriteriaRange soit dynamique, ça fonctionne bien si je rentre : indirec(r8), mais dès que je veux automatiser cette donnée, elle garde la dernière valeur.
Voici mon code :
Sheets('Données extraits').Select
Cells.Select
Selection.EntireRow.Hidden = False
Range('A2:F6').Select
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range('D10').Select
Range('BD').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('r8'), CopyToRange:=Range('A10'), Unique:=False
Rows('1:9').Select
Range('A9').Activate
Selection.EntireRow.Hidden = True
End Sub
Merci pour votre aide
Bonne soirée
Je suis novice en VB sur excel, je suis en train d'essayrer de créer un macro pour extraire les données de ma BD selon certins critères.
Mais je bloque sur la fonction indirect()
Au niveau de CriteriaRange:=Range('r8')
A savoir R8 = A1:F2 ou A1F3 ou A1:F4.... selon le nombre de lignes de critères.
J'aimerais que le champ CriteriaRange soit dynamique, ça fonctionne bien si je rentre : indirec(r8), mais dès que je veux automatiser cette donnée, elle garde la dernière valeur.
Voici mon code :
Sheets('Données extraits').Select
Cells.Select
Selection.EntireRow.Hidden = False
Range('A2:F6').Select
Selection.Sort Key1:=Range('B2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Range('D10').Select
Range('BD').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('r8'), CopyToRange:=Range('A10'), Unique:=False
Rows('1:9').Select
Range('A9').Activate
Selection.EntireRow.Hidden = True
End Sub
Merci pour votre aide
Bonne soirée