Affichier le total avec sa date

bonjour cher senpai !

j'ai besoin de votre aide encore une fois

j'ai un tableau ou j'ai des données journalières, et je veux afficher un message ou il me donne le cumulé avec sa date, donc la date de la dernierère donnée.

help !

C'est ça que tu veux ?

Private Sub CommandButton1_Click()
    Dim Var1 As Variant
    Dim Var2 As Variant
    Dim result As String
    Dim ligne, i

    Set Var1 = Sheets("feuil2").Range("c368")
    Var1 = FormatNumber(Var1, 1)

    Variable1 = Var1

    ' RECHERCHE DE LA DERNIERE DATE
    For i = 2 To 367
        If Cells(i, 3) <> 0 Then ligne = i
    Next
    result = MsgBox("Le total cummulée est de: " & Variable1 & " à la date du : " & Cells(ligne, 1))
End Sub

exactement ça merci!

désolé de réouvrir le sujet mais j'aimerais savoir quand il sagit de cellules avec des formules sa marche pas, dans le fichier que je j'ai joint la colonne "C" c'est des chiffres sans liaison, quand on a une liaison le code ne marche pas

c'est bon fallait rajouter:

val(cells)

par contre quand j'ai placé le bouton dans une autre feuille sa bug :'(

une suggestion?

Envoie le fichier avec le bouton et le message d'erreur du bug ou le bug que ça produit, à quelle ligne s'il y en a une et comment activer le bug

Voila le code

Private Sub CommandButton1_Click()

    Dim Var1 As Variant
    Dim Var2 As Variant
    Dim result As String
    Dim ligne, i

    Set Var1 = Sheets("feuil2").Range("c368")
    Var1 = FormatNumber(Var1, 1)
        Variable1 = Var1

    ' RECHERCHE DE LA DERNIERE DATE
   Sheets("feuil2").Select
   For i = 2 To 367
        If Val(Cells(i, 3)) <> 0 Then ligne = i
    Next
result = MsgBox("Le total cummulée est de: " & Variable1 & " à la date du : " & Cells(ligne, 1))

End Sub

et le fichier joint j'ai mis le bouton dans la feuil1

sur la feuil2 sa marche bien

Tu n'as pas besoin de mettre ton MsgBox dans un String pour l'afficher.

Ni de sélectionner ta feuille pour avoir ses données.

Voici ce que ça donne pour la feuille 1

Private Sub CommandButton1_Click()
    Dim total
    Dim ligne, i

    total = Sheets("Feuil2").Range("C368")

    ' RECHERCHE DE LA DERNIERE DATE
    For i = 2 To 367
        If Sheets("Feuil2").Range("C" & i) <> 0 Then ligne = i
    Next
    MsgBox "Le total cummulée est de: " & total & " à la date du : " & Sheets("Feuil2").Range("A" & ligne)
End Sub 

ahh merci c'est beaucoup plus simple