XL 2013 Copier des valeurs dans un tableau selon la date du jour

[Tedd2210]

Bonjour,

Je suis nouveau et je commence a me lancer dans les macros sur Excel et j'aurais besoin d'un peux d'aide pour faire une macro.

Voici mon problème :
J'ai une première feuille où je renseigne des données de la journée et ces données me donne des résultats.
Et ces résultats je voudrais les copiers sur une autre feuille en appuyant sur un bouton situer sur ma deuxième feuille
Mon objectif est d'avoir un historique de mes résultats.

J'ai mis un fichier de test du fichier que je renseigne.

Si vous pouvez m'aider,
Merci

 

[M12]

Bonjour,
Un test

 

[Tedd2210]

Je viens de tester et cela fonctionne parfaitement,

Merci, beaucoup.

Est-ce que ça serait possible d'avoir une petite explication de la macro pour que je puisse mieux comprendre

Merci

Sub Transfert()
  Dim i%, j%, Plage As Range, Dc%
  Dim Ws As Worksheet, Wd As Worksheet
  Set Ws = Sheets("Feuil1")
  Set Wd = Sheets("Feuil2")
  Dc = Wd.Cells(2, Columns.Count).End(xlToLeft).Column
    For i = 2 To Dc
      If Ws.Range("C3").Value = Wd.Cells(2, i).Value Then
        Wd.Range(Wd.Cells(3, i), Wd.Cells(10, i)).FormulaArray = WorksheetFunction.Transpose(Ws.Range(Ws.Cells(18, 3), Ws.Cells(18, 10)))
      End If
    Next i
End Sub

 

[M12]

Re,
A voir avec explications dans la macro

 

[Tedd2210]

Re,

Merci beaucoup pour ton aide