Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
Svp gentelmans comment corriger ce code pour que cette calendrier fonctionne
Des que j'ouvre le projet s'affichera un message d'erreur :
Control array element '43' doesn't exist
Merci beaucoup d'avance pour l'aide
Cordialement
MADA
calendar.zip

[ProgElecT]

Salut

Plutôt que de mettre un fichier ZIP en pièce jointe, tu aurais dût mettre juste la Sub Form_Load() en indiquant le N° de ligne ou l'erreur se produit.

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
Private Sub Form_Load()
    LoadSkins
    SelectDate DateSerial(Year(Date), Month(Date), 1)
    temps.Caption = Time
 
    'compteur I pour parcourir les jours
 
    Dim i As Integer
    i = 0
    'tant que le CcLblday n'a pas la valeur du jour on incrémente i jusqu’à obtenir la valeur
 'While CcLblDay(i).Caption <> Mid(Date, 1, 2)
 While Val(CcLblDay(i).Caption) <> Val(Mid(Date, 1, 2))
    i = i + 1
Wend
    'on appel le controle et on le sélectionne
    Call CcLblDay_Click(i)
 
End Sub

l'erreur: Control array element '43' doesn't exist ----> Élément de tableau de contrôle « 43 » n’existe pas
Dans le code la variable i (numérique), évolue de 0 à 9,10 ..... et plus, alors que Mid(Date, 1, 2) évolue de "01", "02", .... à "31" au plus, d’où l'obligation de faire une comparaison numérique.

Pour information, il existe un composant calendrier tout fait: Contrôles communs Microsoft Windows-2 6.0, MonthView, Library MSComCtl2, mscomct2.ocx

[MADA BLACK]

Bonsoir ProgElect
Gentelman .. je suis vraiment desole ..j'ai mis un fichier Zip j'ai cru qu'il faut voir la Form1
Merci beaucoup pour l'explication et pour la super correction et votre serviabilite
Maintenant ca fonctionne tres tres bien
Tres gentil de votre part
Parfaitement resolu
Amicalement
MADA