Microsoft 365 Copier une cellule suite macro sur un tableau externe

[Chounoé]

Bonjour, je viens vers vous car je n'arrive pas à faire ce que je veux.
J'aimerai que lorsque je clique sur le bouton de la macro, ca me copie automatiquement la date sur la bonne colonne de la feuille "Récap" du produit sélectionné sur la feuille "Accueil". J'ai réussi à la faire basiquement avec pomme de terre, voir le fichier.
je suppose qu'il faut faire des variables ou autre chose

Merci à vous.

 

[vgendron]

Bonjour

essaie avec ce code

Sub Macro1()
    Article = Range("C5") 'on récupère l'article
    Jour = Range("C7") 'on récupère le jour
    
    With Sheets("Récap") 'dans la feuille "Récap"
        Set trouve = .Range("A1:G1").Find(Article, lookat:=xlWhole) 'on cherche l'article dans la plage A1:G1
        If Not trouve Is Nothing Then 'si on le trouve
            col = trouve.Column 'on récupère le numéro de colonne
            .Cells(.Rows.Count, col).End(xlUp).Offset(1, 0) = Jour 'on ajoute le jour sur la première cellule vide de la colonne
        End If
    End With
End Sub

 

[Chounoé]

Merci à toi vgendron ça marche nickel