Incrémenter (IMPUTBOX) une BDD en fonction d'un bouton

Bonjour à tous,

J'aimerai que lorsque l'on clique sur le bouton smiley "TRES SATISFAIT" il y est un nombre 1 qui s'affiche dans la BDD sur la colonne B avec la date du click. Et ainsi faire la même chose pour "SATISFAIT" et "PAS SATISFAIT".

J'ai crée une ImputBox pour que l'on puisse avoir le nom, prénom et la société, mais je n'arrive pas à garder les données inscrites dans cette ImputBox.

Vous trouverez ci-dessous le fichier Excel

Je vous remercie pour votre aide.

Julie s.

bonjour,

un essai

Sub messagesatisfaction()
 Dim resultat As String, DL As Long, Col As Integer, msg As String

 With Worksheets("BDD")
 DL = .Range("A" & Rows.Count).End(xlUp).Row + 1

 resultat = InputBox("Pouvez-vous s'il vous plaît, nous indiquer votre nom, prénom et votre société?", "Informations satisfaction") 'La variable reçoit la valeur entrée dans l'InputBox

 If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
    'MsgBox resultat
    Select Case Right(Application.Caller, 1) 'en fonction N°image
        Case 5
            msg = "TRES SATISFAISANT"
            Col = 2
        Case 4
            msg = "SATISFAISANT"
            Col = 3
        Case 3
            msg = "PAS SATISFAISANT"
            Col = 4
    End Select

    .Cells(DL, 1) = Date
    .Cells(DL, Col) = msg
    .Cells(DL, 5) = resultat

 End If

End With
End Sub

cette macro doit être affectée à chaque image

A+

Bonjour

edit : oups Désolé Algoplus, je n'ai pas vérifié que quelqu'un avait posté. Solution identique. Donc j'ai retiré le fichier

Cordialement

Bonjour Dan, pas de souci ...

Bonjour à tous,

Merci beaucoup c'est tout à fait ce que j'ai demandé Savez-vous si c'est possible de modifier la mise en forme de l'imputbox ? (taille, couleurs...)