Insertion d’une date calendrier dans un TextBox ou cellule

Bonsoir à tous,

Dans une application j’ai un calendrier dans un USF sous le nom CalFrm.

Par un premier bouton j’appelle une macro qui me fait afficher CalFrm pour insertion de la date choisie dans une cellule.

Par un deuxième bouton, j’appelle un USF qui contient un TextBox1 et TextBox2 pour m’afficher les dates choisies (Date1 et Date2) depuis le même USF CalFrm

Alors comment écrire un code pour différencier l’insertion de la date choisie depuis l’USF CalFrm dans la cellule pour le premier bouton ou dans le TextBox1, TextBox2 pour le deuxième bouton ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() 'Bouton OK du calendrier If frm = 1 Then PersoFrm.ActiveControl.Value = Calfrm.Calendar1.Value Else 'Place the date from the calendar into the cell Sheets("BD").[H10].Value = Calfrm.Calendar1.Value Unload Me End If Unload Me End Sub

---

Merci d’avance.

Bonjour,
Deux boutons = deux actions = deux codes...

J'avoue ne pas avoir tout saisi à la problématique...

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() 'Bouton OK du calendrier If frm = 1 Then PersoFrm.ActiveControl.Value = Calfrm.Calendar1.Value Else 'Place the date from the calendar into the cell Sheets("BD").[H10].Value = Calfrm.Calendar1.Value Unload Me End If Unload Me End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton2_Click() If frm = 1 Then PersoFrm.ActiveControl.Value = Calfrm.Calendar1.Value Else 'Place the date from the calendar into the textbox TextBox1.Value = Calfrm.Calendar1.Value Unload Me End If Unload Me End Sub

---

Après, sans savoir ce que tu veux faire ni à quoi correspondent : frm, PersoFrm, il est difficile de t'en dire davantage...

Bonjour pijaku,

Merci de m'avoir répondu.

En PJ un exemple.

:P

Bonsoir,

Une solution m'a été proposée !

On récupère toujours la date sélectionnée du calendrier, après on l'insère selon le bouton qui a fait appel au calendrier :

Si c'était le bouton 1 (écriture dans la feuille) le code sera :

Code:

---

1 2 3 4 5

Sub Journalier() CalFrm.Show Sheets("BD").[H10].Value = CalFrm.Calendar1.Value Unload CalFrm End Sub

---

Si c'était depuis un TextBox on écrira :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CalFrm.Show TextBox1.Value = CalFrm.Calendar1.Value Unload CalFrm End Sub   Private Sub TextBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CalFrm.Show TextBox2.Value = CalFrm.Calendar1.Value Unload CalFrm End Sub

---

Seulement il reste, comment définir le control actif avant l'appel du calendrier:

Code:

---

1 2 3

Dim Nom As String Nom = PersoFrm.Controls("Frame1").ActiveControl.Name PersoFrm.Controls(Nom).Value = CalFrm.Calendar1.Value

---

parce que cette ligne déclenche une erreur :

Code:

---

Nom = PersoFrm.Controls("Frame1").ActiveControl.Name

---

Citation:

---

Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie

---

Merci d'avance.

Bonjour Apt le forum
tu aimes bien te compliquer la vie, ton fichier en retour, avec les modifs, par contre j'aimerais bien connaître l'utilité du bouton valider dans l'userform perso??
a+
papou:lol:

Bonjour,

Si le but est d'aider l'utilisateur à la saisie d'une date dans une cellule, regardes cette contribution
http://www.developpez.net/forums/d44...de-calendrier/

Bonjour Papou, jFontaine,

Merci Papou pour le code et jFontaine pour le lien.

Citation:

---

Envoyé par Paritec

par contre j'aimerais bien connaître l'utilité du bouton valider dans l'userform perso??

---

Il sert à lancer le filtre élaboré avec les critères renseignés dans l'USF.

Dans ce fil :

http://www.developpez.net/forums/d12...ore-laide-usf/

l'exemple fourni montre l'utilité du bouton "Valider"