Copier filtrer coller
s
Bonjour à tous,
Après plusieurs jours de recherche sans solutions je commence à désespérer.
Voici ma problématique:
J'ai deux classeurs et je souhaite:
- Copier une info dans le classeur 1
- Ouvrir le classeur 2
- Filtrer le classeur 2 selon une variable du classeur 1
- Coller la valeur de mon info sur la ligne obtenue comme résultat du filtre.Voilà où réside mon principal problème!
Voici ce que j'ai obtenue jusqu'à présent. J'ai réussi à filtrer selon une variable mais pas à coller mon info sur la ligne correspondante (qui elle aussi sera variable).
Dim valeur As String
valeur = Range("K2").Value
Range("G36:K36").Select
Selection.Copy
Workbooks.Open Filename:="Classeur 2.xlsx"
ActiveSheet.Range("$C$4:$C$568").AutoFilter Field:=1, Criteria1:=valeur
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$2:$A$13").AutoFilter Field:=1
Windows("Classeur 1 .xlsm").Activate
End SubJe pensais faire une recherche du numéro de la ligne correspondant au résultat du filtre pour ensuite l'utilisée pour dire où je veux coller mais je ne sais pas comment faire.
Quelqu'un peut-il m'aider?
Y-a-t-il une solution plus simple pour résoudre mon problème?
Merci d'avance pour toute l'aide que vous pourrez m'apporter.