Excel-VB erreur d'execution 424
mohasi
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
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
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:
- Excel-VB erreur d'execution 424
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
