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

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

Tedd2210

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

Pièces jointes

  • Test macro.xlsm
    10.7 KB · Affichages: 10

Tedd2210

XLDnaute Nouveau
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
VB:
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
 

Discussions similaires

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