MAJ d'une cellule avec msgbox

Bonjour à tous :)
j'ai un petit soucis en vba

en faite j'ai un tableau excel et dans la cellule F12 je dois encoder une heure (ex: 07:00) et ce que j'aimerai c'est que des que j'ai encodé la valeur, une boite genre msgbox s'ouvre et me demande à quoi correspond l'heure encoder. si par exemple je met VA (vac annuel) J'aimerai qu'il m'indique dans la cellule F21 VA et qu'il me recopie les 07:00 dans la cellule F19.

Voici le bout de code que j'ai pour l'instant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

'****************************************************************************************************** Private Sub worksheet_selectionchange(ByVal target As Range) '****************************************************************************************************** Dim A1 Dim Msg, Style, Title, Help, Ctxt, Response   If target.adress = Range("F12").adress Then Worksheets(Feuil1).Range("F12").Select A1 = Worksheets(Feuil1).Range("F12").Value Stop Msg = "Veuillez remplir, la cellule commentaire svp" ' Définit le message. Style = vbYesNo ' Définit les boutons. Title = "Les heures assimilées" ' Définit le titre. Help = "DEMO.HLP" ' Définit le fichier d'aide. Ctxt = 1000 ' Définit le contexte de la rubrique.   ' Affiche le message. Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' L'utilisateur a choisi Oui. nvlleheure = Hour(Now()) nvlleminute = Minute(Now()) nvlleseconde = Second(Now()) + 15 waitime = TimeSerial(nvlleheure, nvlleminute, nvlleseconde) Application.Wait waittime   Else: Exit Sub ' L'utilisateur a choisi Non.   End If     End If   End Sub

---

Merci d'avance pour votre aide :)

Bonjour,
Premièrement quand tu donne un code utilise les balise code
Comment baliser le code -> Sélection du code + 1 clic sur # en mode d'édition
Démonstration

Je pense que ce que tu cherche est une input box
exemple

Code:

---

1 2 3 4 5

dim rep as string rep=inputbox("Ici tu poses ta question") if rep="" then exit sub range("F12")=rep range("f19")=waitime

---

Une remarque déclarer les variable c'est bien leur donner un type c'est mieux ;)

Merci je vais tester et je reviens dire quoi :)

dire "quoi" tu peux le faire directement, tu pourrais de préférence nous dire ce qu'il en est. :mouarf:
(désolé je ne résiste jamais à la tentation vis à vis de cette expression local et vu les barbarisme alsacien que je me traine je ferais mieux de me taire :oops:)

lol
Me revoila :)
Bizarrement rien ne se passe, quand j'encode les 07:00 dans la cellule F12, il ne lance pas l'inputbox pour que je puisse dire à quoi elle correspond

mais faut tout te faire? :P
événement de la feuille de calcul change

tapé a la volé il faudra peut être corrigé les faute de frappe

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) dim rep as string if not intersect(target, range("F12")) is nothing and target.count=1 and target<>""then rep=inputbox("Ici tu poses ta question") if rep="" then exit sub range("F21")=rep end if end if end sub

---

a mettre dans le code de la feuille