Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Copier une cellule suite macro sur un tableau externe

Chounoé

XLDnaute Nouveau
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.
 

Pièces jointes

  • Classeur1.xlsm
    414.1 KB · Affichages: 2

vgendron

XLDnaute Barbatruc
Bonjour

essaie avec ce code
VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…