Copier valeurs en fonction valeur cellule

Bonjour,

Je rencontre un problème avec la macro que j'ai créée.

Je cherche à copier les valeurs présentes dans la feuille "FI-Récap" dans la feuille "FI-Avancement" si la semaine présente dans les différentes colonnes de la ligne 4 est égale à la semaine affichée en "C1".

Quand je lance ma macro elle me copie les valeurs voulues dans l'ensemble du tableau et je ne comprends pas pourquoi.

Pouvez-vous m'aider là-dessus ?

Merci d'avance

GuiGui8731

Salut GuiGui,

Voici un essai avec ce code :

Sub Test()

With Worksheets("FI-Avancement")
    semaine = "S" & Evaluate("WEEKNUM(TODAY(),2)")
    .Range("C1").Value = semaine
    .Range("C4:AJ4").value = sheets("CAPA Prév.").range("C90:AJ90").value
    If .FilterMode Then .ShowAllData
    col = Application.Match(semaine, .Rows(4), 0)
    .Columns(col).Rows("6:10").Value = Worksheets("FI-Récap").Range("E6:E10").Value
End With

End Sub

Cdlt,

Bonjour 3GB,

Merci pour ton code. Celui-ci marche parfaitement.

GuiGui8731