Erreur d’exécution "424", "Objet requis" sous excel [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
mardi 28 mai 2019
Statut
Membre
Dernière intervention
29 mai 2019
-
Messages postés
5
Date d'inscription
mardi 28 mai 2019
Statut
Membre
Dernière intervention
29 mai 2019
-
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

Messages postés
591
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
19 juin 2020
48

Dim Ws as Worksheets

Ws= Worksheets("nomdetafeuille")

ces 2 lignes t'aideront peut être..
Messages postés
5
Date d'inscription
mardi 28 mai 2019
Statut
Membre
Dernière intervention
29 mai 2019

Il y'a marqué, "Erreur de compilation, utilisation incorrect de la propriété"
Messages postés
591
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
19 juin 2020
48
autant pour moi :
Dim Ws as Worksheet

Set Ws = Worksheets("nomdetafeuille")

pas de "S" en déclaration de la variable et "Set" pour déclarer l'objet
Messages postés
5
Date d'inscription
mardi 28 mai 2019
Statut
Membre
Dernière intervention
29 mai 2019

Parfaaait je vous remercie c'est résolu, merci pour tout
Messages postés
591
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
19 juin 2020
48
pas de quoi, pense à passer le sujet en résolu avec la petite molette à côté du titre
Messages postés
5
Date d'inscription
mardi 28 mai 2019
Statut
Membre
Dernière intervention
29 mai 2019

D'accord c'est fait, merci beaucoup