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.