Discussion :

[apt]

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 :

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

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.

[pijaku]

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

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

Code :

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

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 :

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

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

[apt]

Bonjour pijaku,

Merci de m'avoir répondu.

En PJ un exemple.

[apt]

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 :

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

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 :

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

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 :

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

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 :

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

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

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

Merci d'avance.

[Paritec]

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

[jfontaine]

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/

[apt]

Bonjour Papou, jFontaine,

Merci Papou pour le code et jFontaine pour le lien.

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"