Erreur run-time control array

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
Pièce jointe 233055

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:

---

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

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