Discussion :

[lafafmentvotre]

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 :

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

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 :

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

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

[ucfoutu]

Bonsoir,

Code :

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

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 ...

[lafafmentvotre]

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

Help please

[ucfoutu]

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).

[lafafmentvotre]

Je comprends pas tout et surtout ne sait comment faire.

[JackOuYA]

Bonsoir,

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

[ucfoutu]

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

Un petit projet avec 2 boutons de commande :

Code :

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

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.

[lafafmentvotre]

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

[JackOuYA]

en restant dans ton idée avec gotfocus ..

dans ta feuille :

Code :

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

1
2
3
4
Private Sub TextBox1_GotFocus()
 UserForm1.Show
 TextBox1 = UserForm1.Calendar1.Value
End Sub

dans ton userform :

Code :

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

1
2
3
Private Sub Calendar1_Click()
  Hide
End Sub

[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 .

[JackOuYA]

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 ... tu peu dormir tranquille

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

[ucfoutu]

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

[lafafmentvotre]

Bonjour et merci pour vos réponses

Ca marche nickel

Super