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 : Sélectionner tout - Visualiser dans une fenêtre à part
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