Macro qui supprime les formules et conserve les valeurs

Bonjour,

J'ai fait une formule qui permet d'aller chercher l'info dans la feuille "Données", pour remplir les autres feuilles. Il y'a en plusieurs.

le soucis est que je dois actualiser les données chaque jour. Pour terminer ce job, j'ai besoin de votre aide pour concevoir une macro qui puisse selon la date que l'on indique (JJ/mm/aaaa), copier les valeurs de cette ligne et les coller afin que l'on puisse dans la feuille Données renseigner la date du jour suivant et que les chiffres se complète dans les autres feuilles.

Pour vous faciliter la tâche, j'ai fait un exemple (cf annexe).

La feuille Synthèse indique juste les différentes données de chaque feuille.

Merci d'avance

Diogo

Bonjour

Code à essayer

Sub test()
Dim dlg As Integer
Dim i As Byte
For i = 3 To Sheets("données").Range("A" & Sheets("données").Rows.Count).End(xlUp).Row
On Error Resume Next
If IsNumeric(Sheets(i - 2).Name) Then
    With Sheets(i - 2)
        dlg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        Sheets("Données").Range("A1").Copy .Range("A" & dlg)
        Sheets("Données").Range("B" & i & ":D" & i).Copy .Range("B" & dlg)
    End With
End If
Next
End Sub

Si ok, merci de cloturer le fil en cliquant sur la case à cocher à coté du bouton Editer

Crdlt

bonjour

  ' Sheets (i - 2)  nous parlon de feuill avec index = i - 2 valeur numerique, je veux dire :
  ' Sheets (i - 2) ==> Sheets (1),Sheets (2), Sheets (3) est Déférent de :
  ' Sheets ("1"),Sheets ("2"), Sheets ("3")

regarder ca :

Dim txt As String  ==> stoque au format texte 

 Sub test()
    Dim txt As String
    Dim i As Integer
    Dim nb As Integer
    Dim C  
    nb = Sheets("Données").Range("A" & Rows.Count).End(xlUp).Row
    For L = 3 To 5
    txt = Sheets("Données").Range("A" & L).Value
    Set C = Sheets(txt).Range("A" & 2 & ":A" & nb).Find(Sheets("Données").Range("A1"))
    If Not C Is Nothing Then
    Sheets(txt).Range("B" & C.Row & ":D" & C.Row).Value = Sheets("Données").Range("B" & L & ":D" & L).Value
    End If
    Next
    End Sub