djevandro76
XLDnaute Nouveau
Bonjour, je suis en train de realiser une application en vba sous excel et j'utilise un userform.
j'ai creer cet userfirm il y a quelques jours mais depuis ce matin j'ai un erreur (Erreur d'execution '424' objet requis) qui apparait lorsque je lance le code suivant :
Public Sub initialisUserform1()
'initialise le combobox1 avec les differentes équipes,(valeurs rentrées manuellement)
UserForm1.ComboBox1.Clear l'erreur apparait ici
UserForm1.ComboBox7.Clear
UserForm1.ComboBox4.Clear
With UserForm1.ComboBox1
.AddItem "equipe 1"
.AddItem "equipe 2"
.AddItem "equipe 3"
.AddItem "equipe 4"
.AddItem "equipe 5"
.AddItem "equipe 6"
End With
'initialise le combobox4 avec les mois de l'année,(valeurs rentrées manuellement)
Dim i As Byte
For i = 1 To 12
ComboBox4.AddItem MonthName(i)
Next i
ComboBox1.Value = MonthName(Month(Date))
'initialise le combobox7 avec les mois de l'année,(valeurs rentrées manuellement)
With UserForm1.ComboBox7
.AddItem "2005"
.AddItem "2006"
.AddItem "2007"
.AddItem "2008"
.AddItem "2009"
.AddItem "2010"
.AddItem "2011"
.AddItem "2012"
.AddItem "2013"
.AddItem "2014"
.AddItem "2015"
.AddItem "2016"
.AddItem "2017"
.AddItem "2018"
.AddItem "2019"
.AddItem "2020"
.AddItem "2021"
.AddItem "2022"
.AddItem "2023"
.AddItem "2024"
.AddItem "2025"
.AddItem "2026"
End With
UserForm1.ComboBox3.Enabled = False
UserForm1.ComboBox5.Enabled = False
UserForm1.ComboBox6.Enabled = False
UserForm1.ComboBox8.Enabled = False
UserForm1.ComboBox2.Clear
UserForm1.ComboBox3.Text = ""
UserForm1.ComboBox5.Text = ""
UserForm1.ComboBox6.Text = ""
UserForm1.ComboBox8.Text = ""
UserForm1.Spreadsheet1.Visible = False
End Sub
Es ce que quelqu'un peut m'aider?
Merci d'avance
Djevandro76
j'ai creer cet userfirm il y a quelques jours mais depuis ce matin j'ai un erreur (Erreur d'execution '424' objet requis) qui apparait lorsque je lance le code suivant :
Public Sub initialisUserform1()
'initialise le combobox1 avec les differentes équipes,(valeurs rentrées manuellement)
UserForm1.ComboBox1.Clear l'erreur apparait ici
UserForm1.ComboBox7.Clear
UserForm1.ComboBox4.Clear
With UserForm1.ComboBox1
.AddItem "equipe 1"
.AddItem "equipe 2"
.AddItem "equipe 3"
.AddItem "equipe 4"
.AddItem "equipe 5"
.AddItem "equipe 6"
End With
'initialise le combobox4 avec les mois de l'année,(valeurs rentrées manuellement)
Dim i As Byte
For i = 1 To 12
ComboBox4.AddItem MonthName(i)
Next i
ComboBox1.Value = MonthName(Month(Date))
'initialise le combobox7 avec les mois de l'année,(valeurs rentrées manuellement)
With UserForm1.ComboBox7
.AddItem "2005"
.AddItem "2006"
.AddItem "2007"
.AddItem "2008"
.AddItem "2009"
.AddItem "2010"
.AddItem "2011"
.AddItem "2012"
.AddItem "2013"
.AddItem "2014"
.AddItem "2015"
.AddItem "2016"
.AddItem "2017"
.AddItem "2018"
.AddItem "2019"
.AddItem "2020"
.AddItem "2021"
.AddItem "2022"
.AddItem "2023"
.AddItem "2024"
.AddItem "2025"
.AddItem "2026"
End With
UserForm1.ComboBox3.Enabled = False
UserForm1.ComboBox5.Enabled = False
UserForm1.ComboBox6.Enabled = False
UserForm1.ComboBox8.Enabled = False
UserForm1.ComboBox2.Clear
UserForm1.ComboBox3.Text = ""
UserForm1.ComboBox5.Text = ""
UserForm1.ComboBox6.Text = ""
UserForm1.ComboBox8.Text = ""
UserForm1.Spreadsheet1.Visible = False
End Sub
Es ce que quelqu'un peut m'aider?
Merci d'avance
Djevandro76