Microsoft 365 Mémoriser une valeur qui change tous les jours dans un autre tableau

Bonjour Dréa et bienvenu sur XLD,
Avec des formules vous ne pourrez pas mémoriser des données passées.
J'ai bien peur qu'il vous faille passer par du VBA qui ira copier les valeurs en "dur". Si le VBA ne vous reboute pas.
Mai sans fichier test, difficile d'en dire plus.

sylvanu à dit:

Bonjour Dréa et bienvenu sur XLD,
Avec des formules vous ne pourrez pas mémoriser des données passées.
J'ai bien peur qu'il vous faille passer par du VBA qui ira copier les valeurs en "dur". Si le VBA ne vous reboute pas.
Mai sans fichier test, difficile d'en dire plus.

Cliquez pour agrandir...

Bonjour et merci de me répondre!
Je ne suis pas du tout contre le VBA, j'ai essayé, mais débutant juste, je n'y parvient pas.
Je vous joint mon fichier.
En fait, les seules cellules qui sont remplies, sont : B9, F9, J9.... et alimentent le reste des tableaux des différentes feuilles.
Là où je bloque, c'est que ces cellules sont remplies tous les jours et renvoyées dans les tableaux correspondant des autres feuilles, mais dès que le jour change les données disparaissent de tous mes tableaux!
Suis-je assez claire ?

Bonjour Dréa,
Un essai en PJ avec :
la macro s'exécute lorsqu'on remplit une cellule de la ligne 9.
A noter que sous chaque bouton j'ai mis le nom de la feuille concernée pour simplifier ( et en police blanche ), donc si vous rajoutez un bouton pensez aussi à rajouter le nom.
Si la date n'est pas trouvée dans la feuille alors j'émets un message d'alerte.

sylvanu à dit:

Bonjour Dréa,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 2 Then Exit Sub
    If Not Intersect(Target, Range("A9:AH9")) Is Nothing Then
        On Error GoTo Fin
        If Target = "Nombre" Or Target = "" Then Exit Sub       ' Exit si Cellule non concernée
        NomFeuille = Cells(7, Target.Column) ' Les noms de feuilles sont cahchées sous les boutons en police blanche
        With Sheets(NomFeuille)
            Ind = Application.Match([DateEnCours], .[B:B], 0)   ' Récupére la ligne de la feuille concernée où se trouve la date courante
            .Cells(Ind, "C") = Target                           ' Ecrit la valeur sur cette ligne colonne C
        End With
    End If
Exit Sub
Fin:
MsgBox "Date non trouvée dans la feuille " & NomFeuille         ' Message si date non trouvée dans la feuille
End Sub

la macro s'exécute lorsqu'on remplit une cellule de la ligne 9.
A noter que sous chaque bouton j'ai mis le nom de la feuille concernée pour simplifier ( et en police blanche ), donc si vous rajoutez un bouton pensez aussi à rajouter le nom.
Si la date n'est pas trouvée dans la feuille alors j'émets un message d'alerte.

Cliquez pour agrandir...

Merci énormément, bonne journée!!