Double clique cellule msg box avec saisie de données

Bonjour ,

Est'il possible lors d'un double clique sur ma cellule F12 , une msg box s'ouvre avec par exemple

"Combien de [Résultats de la case C12] avez vous reçus ? " Est juste en dessous on peut écrire un chiffre.

Je vous remercie d'avance.

Cordialement

Bonjour,

Une piste à adapter. A mettre dans le module de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Column <> 6 Or Target.Row < 12 Then Exit Sub

    Target.Value = ""

    MsgBox "Combien de " & Target.Offset(, -3).Value & " avez vous reçus ? "

End Sub

Bonjour,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim prd$, n
    If Target.Row < 12 Or Target.Column <> 6 Then Exit Sub
    prd = Target.Offset(, -3)
    If prd <> "" Then
        n = Application.InputBox("Combien de " & prd & " avez-vous reçus ?", "Entrées", Type:=1)
        If n > 0 Then Target = n
    End If
    Cancel = True
End Sub

Cordialement.

Merci beaucoup pour vos réponses juste un détail encore j'aimerais que le chiffre qu'on rentre dans la txtbox s’additionne avec le chiffre deja existant dans la cellule.

Cordialement

...Target = Target + n

Tu aurais pu trouver ça tout seul !

Mais cela ne paraît pas très logique en termes de fiabilisation des données saisies.

Cordialement.

Merci , Si je veut faire pour la cellule G également , je doit modifier quoi dans les lignes de codes ?

Cordialement

Résume et confirme tout ce que tu veux, au total en définitive, tout se fait dans la même procédure !