Discussion :

[colgeo]

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[colgeo]

Merci je vais tester et je reviens dire quoi

[Krovax]

dire "quoi" tu peux le faire directement, tu pourrais de préférence nous dire ce qu'il en est.
(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 )

[colgeo]

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

[Krovax]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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