[Macro] copier/coller dans un tableau sous la bonne date

[LeFusk]

Bonjour,

Dans ma Feuille1 j'ai un petit questionnaire.
Les réponses aux questions 1, 2 et 3 sont contenues dans les cellules K5, K15 et K24.

Je souhaite copier/coller ces réponses dans la feuille2 de mon classeur sous la colonne correspondant au jour sélectionné dans le questionnaire.

La cellule D2 de la Feuille1 contient la date à laquelle à été réalisé le questionnaire.

J'ai essayé de créer cette macro moi-même en m'inspirant de ces deux posts mais sans succès...
Copier une cellule vers une autre feuille en fonction d'une date [Forums - Espace Débutants] : myDearFriend! Excel Pages
VLOOKUP Function In Macro Code

Pouvez-vous m'aider?

PS: nouveau compte car mdp oublié et email plus accessible mais je suis là depuis 2007 ;-)

 

[Yohan]

Re : [Macro] copier/coller dans un tableau sous la bonne date

tiens teste si cela te conviens

 

[phlaurent55]

Re : [Macro] copier/coller dans un tableau sous la bonne date

Bonjour Lefusk,

voir fichier joint, j'ai réorganisé la feuille 2

à+
Philippe

Edit: Bonjour Yohan

 

[Robert]

Re : [Macro] copier/coller dans un tableau sous la bonne date

Bonjour le fil, bienvenu Le Fusk, bonjour le forum,

J'envoie quand même, même si les réponses données sont très similaires...

Public Sub Macro1()
Dim d As String 'déclare la variable d (Date)

d = Range("D2").Value 'définit la variable d
With Sheets("Sheet2") 'prend en compte l'onglet "Sheet2"
    For Each cel In .Rows(1).Cells 'boucle sur toutes les cellules cel de la ligne 1
        If cel.Value = d Then 'condition : si la cellule cel est égale à d
            .Cells(2, cel.Column).Value = Range("K5").Value 'place la réponse à la question 1
            .Cells(3, cel.Column).Value = Range("K15").Value 'place la réponse à la question 2
            .Cells(4, cel.Column).Value = Range("k24").Value 'place la réponse à la question 3
            Exit For 'sort de la bouble
        End If 'fin de la condition
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Sheet2"
End Sub

 

[LeFusk]

Re : [Macro] copier/coller dans un tableau sous la bonne date

Merci Yohan, Phlaurent55 et Robert pour votre aide!
J'ai appris des choses en lisant vos propositions.
Je vais utiliser le dernière code, c'est le plus aligné avec ma problématique.
Bonne journée!