Erreur 424 VBA
Résolu
Bonjour à tous,
Je suis en train de créer une macro sensé mettre au point des équipes mais un message d'erreur m'alerte qu'il y a une erreur 424. J'aimerai d'une part savoir ce que cela signifie et comment la corriger.
Merci d'avance, voilà le code :
Private Sub CommandButton5_Click()
'Définition des variables (lucas)
Dim Nom_chef As Integer
Dim Equipier1 As Integer
Dim Equipier2 As Integer
Dim Equipier3 As Integer
Dim Equipier4 As Integer
Dim Equipe As Integer
Dim Sujet_choisi As Integer
'Récupération des données (Lucas)
Nom_chef = verif_num_etu.Value
Equipier1 = ComboBox2.Value
Equipier2 = ComboBox3.Value
Equipier3 = ComboBox4.Value Or ""
Equipier4 = ComboBox5.Value Or ""
Sujet_choisi = ComboBox1.Value
'Choisir au moins deux étudiants
If Sel_etu1 = "" And Sel_etu2 = "" And Sel_etu3 = "" And Sel_etu4 = "" Then
MsgBox ("Veuillez indiquez le numéro d'au moins deux coéquipiers")
End If
End Sub
Je suis en train de créer une macro sensé mettre au point des équipes mais un message d'erreur m'alerte qu'il y a une erreur 424. J'aimerai d'une part savoir ce que cela signifie et comment la corriger.
Merci d'avance, voilà le code :
Private Sub CommandButton5_Click()
'Définition des variables (lucas)
Dim Nom_chef As Integer
Dim Equipier1 As Integer
Dim Equipier2 As Integer
Dim Equipier3 As Integer
Dim Equipier4 As Integer
Dim Equipe As Integer
Dim Sujet_choisi As Integer
'Récupération des données (Lucas)
Nom_chef = verif_num_etu.Value
Equipier1 = ComboBox2.Value
Equipier2 = ComboBox3.Value
Equipier3 = ComboBox4.Value Or ""
Equipier4 = ComboBox5.Value Or ""
Sujet_choisi = ComboBox1.Value
'Choisir au moins deux étudiants
If Sel_etu1 = "" And Sel_etu2 = "" And Sel_etu3 = "" And Sel_etu4 = "" Then
MsgBox ("Veuillez indiquez le numéro d'au moins deux coéquipiers")
End If
End Sub
6 réponses
-
Pourrais tu expliquais rapidement a quoi correspond chaque variable?
verif_num_etu? ==> TextBox?
Sel_etu1? ==> OptionButton? -
Oui, excuse moi.
verif_num_etu est une textbox et sel_etu1 est un combobox. -
Quand tu as ton message d'erreur :
....... . . . . .. . erreru 424 :
il y a une phrase en dessous normalement, peux tu nous la retranscrire?
Et est il possible que tu clic ensuite sur Débogage et que tu nous dises la ligne qui a été surligné?
Merci d'avance ;) -
La phrase qui est surligné est celle que j'ai souligné sur mon premier post. C'est écris Objet requis du coup je l'ai changé. et j'ai du coup écris :
Nom_chef = verification.verif_num_etu.value et là il me dit : erreur n°13 incompatbilité de type.
où verification est l'userform -
Ta variable Nom_chef est déclaré comme un Integer alors ton verification.verif_num_etu.value va revoyé un String
Erreur de comptabilité -
Thx I love U <3
