Bonjour,
Après avoir lu plusieurs sujets s'en rapprochant me voilà avec une macro qui fonctionne(merveille) quand je la lance manuellement mais que je n'arrive pas a transformer en automatique à l'activation d'une feuille.
Pour l'instant ma macro est la suivante, elle copie colle les données du premier onglet ("A REMPLIR") et filtre dans la feuille AAA a partir d'un critère fixe présent dans AAA.
Sub damn()
'
' Macro5 Macro
'
Sheets("A REMPLIR").Select
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("AAA").Select
Rows("7:7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("4:1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
"AAA!Criteria"), Unique:=False
End Sub
L'objectif est qu'a l'activation d'AAA la macro mette a jour la feuille. La macro sera ensuite répétée sur les différentes feuilles en changeant le critère de filtre.
J'ai essayé ceci :
Private Sub Worksheet_Activate()
' Macro5 Macro
'
Sheets("A REMPLIR").Select
Rows("3:3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("AAA").Select
Rows("7:7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Rows("4:1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range( _
"AAA!Criteria"), Unique:=False
End Sub
Mais elle bug dès la première sélection de ligne.
Merci de votre aide