Deux calendriers dans un même projet

Bonjour à tous,

J'aurai souhaiter pouvoir utiliser 2 calendriers dans le même projet.

Depuis quelques jours je suis en train de me prendre la tête, car j'ai de dates à remplir 2 textbox .

Le 1er ça colle impeccable, mais le 2ème me donne une erreur.

Il y t-il quelqu'un sur le forum qui pourra m'aider SVP.

Merci d'avance

Amicalement

Noel

PJ : Calendar.xls

Bonjour,

Le bouton 16 utilise fm_Calendrier

Le bouton 17 devrait utiliser userform1

Donc :

Sub Bouton17_Cliquer()

Load UserForm1

If IsDate(Target) Then UserForm1.Tag = Target Else UserForm1.Tag = Date

UserForm1.Show 0 ': Cancel = True

End Sub

Espérant avoir bien compris

Gelinotte

Bonjour Gelinotte,

Je te remercie, d'attirer mon attention sur l'Userform1 qui devrait remplacer fm_Calendrier. J'ai rectifié mon erreur que lorsque j'avais fait un copier-coller je ne suis plus revenu sur le texte.

Par contre quand je clique sur 2ème bouton sur la feuille, il me donne bien l'Userform1, il m'affiche bien la date du jour, mais quand je clique sur un des boutons de date rien ne se passe bien entendu il n'affiche pas dans le textbox1 la date choisie si ce n'est que la date du jour. De plus il me donne une erreur d’exécution '380' en stipulant :

"Impossible de définir la propriété ListIndex. Valeur de propriété non valide."

Cette erreur est sélectionnée dans le ModClas_Calendrier à la dernière ligne

".CalendrierMiseAjour GroupBoutonJourCalendrier.Caption & " " & .CbMois.ListIndex + 1 & " " & .CbAnnee.Value".

Je n'arrive pas à me sortir de là.

Je ne sais pas si je me suis bien fait comprendre, fais un essai et tu verras.

Merci de ton aide

Amicalement

Noel

Re Gelinotte,

C'est bon j'ai trouvé la solution.

Il fallait créer un 2ème module de classe

Merci encore

@+

Amicalement

Noel