Excel-VB erreur d'execution 424

Fermé
mohasi Messages postés 19 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 9 juin 2011 - 7 nov. 2008 à 01:52
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 7 nov. 2008 à 08:10
Bonjour,
Je souhaite mettre en place un calendrier qui donne le jour d'une date choisie, mais quand fini mon programme à l'exécution j'ai toujours un message ""Erreur d'execution 424 Objet requis"" . Si quelqu'un peut m'aider je serai ravi et reconnaissant. Le fichier est en pièce joint

Merci d'avance
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Value = Year(Date)
UserForm1.ListBox1.Clear


'UserForm1.ListBox1.Value = Mois(Month(Date))
For i = 1 To 12
UserForm1.ListBox1.AddItem Mois(i)
Next i
Calendrier UserForm1.ListBox1.ListIndex.Value + 1, UserForm1.TextBox1.Value
UserForm1.Show
End Sub

Private Sub TextBox1_AfterUpdate()
Calendrier UserForm1.ListBox1.ListIndex.Value + 1, UserForm1.TextBox1.Value
End Sub

Private Sub ListBox1_Click()
Calendrier UserForm1.ListBox1.ListIndex.Value + 1, UserForm1.TextBox1.Value
End Sub

A voir également:

2 réponses

Réponse 1 / 2
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 244
7 nov. 2008 à 06:12
bonjour

calendier ??? une macro ???

comment et ou est elle définie si s'en est une ...
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
7 nov. 2008 à 08:10
Bonjour à vous deux,
Le fichier est en pièce joint

Où ??
A+
0