[XL-2003] Calendrier et Textbox

Calendrier et Textbox

Bonjour,
J'essaye de faire entrer deux dates, sélectionnées l'une après l'autre, sur un calendrier type Calendar ou MonthView. Sur mon Userform j'ai disposé 2 Textbox (début, fin) que je veux remplir en cliquant sur le calendrier ... j'arrive à mettre une date en faisant : Textbox1 = calendar1.value par exemple - en rajoutant Textbox2, c'est plus compliqué.

Quelqu'un saurait me sortir de ma galère...
Merci d'avance pour votre aide ;)

une piste
utilise une variable publique,

Code:

public guid as byte

ensuite

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
private sub textbox1_enter()
guid=1
end sub
 
private sub textbox2_enter()
guid=2
end sub
 
private sub textbox1_exite()
guid=0
end sub
 
private sub textbox2_exit()
guid=0
end sub
 
private sub calendar1_click()
if guid=1 then
  textbox1.value = calendar1.value
elseif guid=2 then
   Textbox2.value = calendar1.value
else
   msgbox "Selectionner le textbox"
endif
end sub

1 pièce(s) jointe(s)

Si ça peut aider