Copier filtrer coller

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 Sub

Je 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.

Rechercher des sujets similaires à "copier filtrer coller"