Calendrier pour TextBox intégrés dans un Frame

Version imprimable

Bonjour,
Je souhaite utiliser le calendrier conçu par M. Jacques Boisgontier dans un formulaire. Le message d'erreur "Propriété ou méthode non gérée par cet objet". Après recherches, l'erreur serait due au fait que les zones concernées (DateRéception et DateRdv) soient intégrées dans un Frame. Comment adapter le code pour cibler ces 2 zones contenues dans le frame (frFiche) et saisir une date via le calendrier ?
Code:

1 2 3 4 5 6 7 8 9 10 11 Function pression(no_cellule) Dim K, décal décal = Weekday(DateSerial(Year(mois_courant), Month(mois_courant), 1), vbMonday) - 1 raz_tot affiche_calendrier (mois_courant) Me("texte" & no_cellule).BackColor = 65535 Début = no_cellule c = UserForms(UserForms.Count - 2).ActiveControl.Name UserForms(UserForms.Count - 2).Controls(c) = DateSerial(Year(mois_courant), Month(mois_courant), Début - décal) Unload Me End Function

1 pièce(s) jointe(s)

Bonjour,

Le calendrier recherche le contrôle actif du formulaire appelant qui donne le Frame au lieu du TextBox
La solution consiste à ne pas utiliser de TextBox dans un Frame.
Au lieu d'utiliser un Frame, utiliser la procédure Cadre(x,y,largeur,hauteur,couleur)
(cf exemple en PJ)

Cadre 20, 40, 150, 170, vbWhite

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Cadre(x, y, largeur, hauteur, couleur)
    Set lab = Me.Controls.Add("Forms.Label.1")
    lab.Caption = ""
    lab.Top = y
    lab.Left = x
    lab.Height = 1
    lab.Width = largeur
    lab.BackColor = couleur
    Set lab = Me.Controls.Add("Forms.Label.1")
    lab.Caption = ""
    lab.Top = y + hauteur
    lab.Left = x
    lab.Height = 1
    lab.Width = largeur
    lab.BackColor = couleur
    Set lab = Me.Controls.Add("Forms.Label.1")
    lab.Caption = ""
    lab.Top = y
    lab.Left = x
    lab.Height = hauteur
    lab.Width = 1
    lab.BackColor = couleur
    Set lab = Me.Controls.Add("Forms.Label.1")
    lab.Caption = ""
    lab.Top = y
    lab.Left = x + largeur
    lab.Height = hauteur
    lab.Width = 1
    lab.BackColor = couleur
 End Sub

Boisgontier

re
humm.... je connais bien certaine parties du code de ce calendrier ;)
et pour ce que je connais pas
voir ces deux la si on peut pas en faire qu'une

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub raz_tot()
  Dim i
  For i = 1 To 37
    Me("texte" & i).BackColor = vbWhite
    Me("texte" & i).Caption = ""
 Next i
 For i = 1 To 35 Step 7
   Me("texte" & i + 5).BackColor = vbGreen
   Me("texte" & i + 6).BackColor = vbGreen
 Next i
End Sub
Private Sub raz()
   Dim i
   For i = 1 To 37
     If Me("texte" & i).BackColor = 65535 Then
       Me("texte" & i).BackColor = vbWhite
     End If
   Next i
   For i = 1 To 35 Step 7
   Me("texte" & i + 5).BackColor = vbGreen
   Me("texte" & i + 6).BackColor = vbGreen
 Next i
End Sub

une suffirait a mon avis l'ors du changement de mois ou d'année ;)