[E-03] Calendrier dans textbox

Bonjour

Je suis sous excel 2003.
Je souhaiterais lorsque je clique dans une textbox dans ma feuille excel, qu'un userform soit lancé avec le contrôle calendrier 11, sur la date du jour et que lorsque je clique sur une date du calendrier, cette dernière soit insérée dans mon textbox.

Voici le code qui appelle le userform :

Code:

---

1 2 3 4

Private Sub TextBox13_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UserForm1.Show End Sub

---

et celui qui "devrait" remplir mon textbox (car je vais avoir plusieurs textbox qui feront appel à mon userform) :

Code:

---

1 2 3 4 5 6 7

Private Sub Calendar1_Click() ActiveControl.Value = Calendar1.Value End Sub Private Sub UserForm_Initialize() Calendar1.Value = Now End Sub

---

Je ne suis pas un pro, pourriez-vous m'aider svp ?

Merci beaucoup

Bonsoir,

Code:

---

1 2	Private Sub Calendar1_Click() ActiveControl.Value = Calendar1.Value

---

Et quel est, selon toi, le contrôle actif, lorsque tu cliques sur Calendar1 ? ;)
Car il est certain que si j'ouvre le tiroir N° 1 pour en regarder le contenu, son contenu est égal à celui du tiroir que j'ai ouvert ...

Le but de demander est que je suis une grosse quiche en VBA Excel mais que j'aime apprendre..............

Help please

Tu peux mettre dans une variable globale le contrôle actif (au moment de ton click sur ta textbox) et.... au moment du click sur ton calendar, mettre à jour cette variable...(et ce sera ta textbox).

Je comprends pas tout et surtout ne sait comment faire.

Bonsoir,

As tu essayé le contrôle Microsoft Date Picker...?

Bon...
Je ne vais surtout pas t'écrire ton code, mais t'apprendre à pêcher...

Un petit projet avec 2 boutons de commande :

Code:

---

1 2 3 4 5 6 7 8

Private toto As Object Private Sub Command1_Click() Set toto = ActiveControl End Sub   Private Sub Command2_Click() toto.Caption = "tu comprends, maintenant ?" End Sub

---

Lance, click sur Command1 puis sur command2
Observe, analyse, comprends et sers-t-en ...
C'est facile à comprendre.

Oui j'ai regardé mais le calendrier 11 m'intéresse plus.
Le but étant d'avoir des textbox vides et qu'elles soient alimentées en fonction de mon userform avec le controle calendrier 11.
Est ce impossible ?
Si non, comment faire ?

Merci

en restant dans ton idée avec gotfocus ..

dans ta feuille :

Code:

---

1 2 3 4

Private Sub TextBox1_GotFocus() UserForm1.Show TextBox1 = UserForm1.Calendar1.Value End Sub

---

dans ton userform :

Code:

---

1 2 3

Private Sub Calendar1_Click() Hide End Sub

---

Bonsoir, JackOuYA,

J'essaierai demain, mais, à première "vue de nez", ce que tu as écrit ressemble fort à une boucle d'affichage sans fin ...
Je te dirai demain...
Bonne nuit .

Citation:

---

Envoyé par ucfoutu

Bonsoir, JackOuYA,

J'essaierai demain, mais, à première "vue de nez", ce que tu as écrit ressemble fort à une boucle d'affichage sans fin ...
Je te dirai demain...
Bonne nuit .

---

pas sous 2007 ...:roll: tu peu dormir tranquille :mouarf:

j'ai testé .. : tu comprends maintenant ?

Bonjour,
Cela marche en effet sans boucle (contrairement à ce qui se passerait si l'on passait d'un userform à un autre) dès lors que l'on passe d'une feuille à un UserForm (il n'y a pas de nouveau gotfocus dans la textbox de départ alors qu'il y en aurait un si la textbox se trouvait dans un userForm et non sur une feuille).
Un petit inconvénient à signaler : si l'itilisateur s'aperçoit immédiatement qu'il s'est trompé, il lui faut quitter la textbox et y rentrer pour accéder à nouveau à UserForm1

Bonjour et merci pour vos réponses

Ca marche nickel

Super