Erreur d’exécution "424", "Objet requis" sous excel

Résolu/Fermé
AmineIbraa Messages postés 5 Date d'inscription mardi 28 mai 2019 Statut Membre Dernière intervention 29 mai 2019 - Modifié le 28 mai 2019 à 12:37
AmineIbraa Messages postés 5 Date d'inscription mardi 28 mai 2019 Statut Membre Dernière intervention 29 mai 2019 - 29 mai 2019 à 15:26
Bonjour,

Petit problème, même après toute les vérifications possibles, une erreur s'affiche, "Erreur d’exécution "424", Objet Requis" et quand je clique sur débogage la ligne "ComboBox2 = Ws.Cells(Ligne, "B")" est en jaune, voici les lignes entière :

**Modifié par la modération pour une lecture plus facile du code, à l'avenir utilisez les balises, VOIR CETTE PAGE

'Pour la liste déroulante Code client

Private Sub ComboBox1_Change()

Dim Ligne As Long
Dim I As Integer

If Me.ComboBox1.ListIndex = -1 Then Exit Sub

  Ligne = Me.ComboBox1.ListIndex + 2

   ComboBox2 = Ws.Cells(Ligne, "B")

  For I = 1 To 7
     Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
  Next I

End Sub


Merci de m'aider s'il vous plaît.


Configuration: Windows / Chrome 74.0.3729.169

1 réponse

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
28 mai 2019 à 17:55

Dim Ws as Worksheets

Ws= Worksheets("nomdetafeuille")

ces 2 lignes t'aideront peut être..
0
AmineIbraa Messages postés 5 Date d'inscription mardi 28 mai 2019 Statut Membre Dernière intervention 29 mai 2019
29 mai 2019 à 14:58
Bonjour, je doit les placer où s'il vous plaît ?
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
29 mai 2019 à 14:59
ligne 7 sur ton exemple
0