Discussion :

[ncl98]

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 :

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

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

[boisgontierjacques]

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 :

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

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

[patricktoulon]

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 :

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

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