Report de données

[AURACLE68]

Bonjour à tous amis Excelliens,

Je reviens sur ce forum dans l'espoir de trouver les petits doigts magiques qui viendront solutionner mon probléme suivant.

Tous les jours (sauf les week-end !) sur une feuille je viens copier des données relatives à des encours, et je n'arrive pas à dire à Excel au moyen d'une macro qu'il doit reporter ces données sur feuille en respectant la date du jour à reporter.

Ex. aujourd'hui nous sommes le 17/02, Excel doit me reporter ces données vers l'onglet "Reporting" du tableau vert à la ligne 21 (fichier joint) , demain nous serons le 18/02 j'aurais d'autre données, excel devra me les reporter dans ce même tableau sans écraser les données de la veille

Ca ressemble à copier coller élaboré dont je n'ai pas la maitrise

Merci d'avance à tous ceux qui prendront le temps pour résoudre ce problème

 

[Papou-net]

Re : Report de données

Bonjour AURACLE68,

Tu crées un bouton de commande (Barre d'outils Contrôles de préférence) sur ta feuille DONNEES, tu double-cliques sur celui-ci et tu tapes les lignes suivantes :

Private Sub CommandButton1_Click()
DateJour = Day(Date)
Set J = Feuil2.Range("F:F").Find(DateJour, LookIn:=xlValues, lookat:=xlWhole)
LgJour = J.Row
With Feuil1
  Feuil2.Cells(LgJour, 7) = .Cells(8, 6)
  Feuil2.Cells(LgJour, 8) = .Cells(9, 6)
  Feuil2.Cells(LgJour, 9) = .Cells(8, 7)
  Feuil2.Cells(LgJour, 10) = .Cells(9, 7)
  Feuil2.Cells(LgJour, 11) = .Cells(8, 8)
  Feuil2.Cells(LgJour, 12) = .Cells(9, 8)
End With
End Sub

Espérant avoir répondu.

Cordialement.

 

[phlaurent55]

Re : Report de données

Bonjour auracle,

Voir fichier joint

à+

Edit: Bonjour Papou-net......................meilleur que moi au sprint 😀

 

[AURACLE68]

Re : Report de données

Je viens de recevoir 2 solutions et je vous en remercie sincerement. BRAVO et MERCI

 

[AURACLE68]

Re : Report de données

Oups, j'ai oublié de vous dire, ... c'est exactement ce qu'il me fallait. BRAVO à vous 2 deux et merci surtout d'avoir répondu aussi vite.