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

Résolu
AmineIbraa Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
AmineIbraa Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
  

Dim Ws as Worksheets

Ws= Worksheets("nomdetafeuille")

ces 2 lignes t'aideront peut être..
0
AmineIbraa Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour, je doit les placer où s'il vous plaît ?
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
ligne 7 sur ton exemple
0

Discussions similaires

Se positionner sur la dernière ligne vide pour nouvelle saisie
Devis2019 -
Devis2019 -

120 réponses
RECHERCHEV sur une autre feuille
yt64 -
yt64 -

5 réponses
erreur de compilation: attendu : séparateur de liste ou ) [Access/Vba]
Gnyss -
Gnyss -

3 réponses
Variable objet ou variable de bloc With non définie: Erreur d'éxécution 91
Adrien_35 -
Adrien_35 -

3 réponses
Erreur 1004 Erreur définie par l'application ou par l'objet
joelar -
joelar -

7 réponses
fonction replace en VBA
wil_2638 -
wil_2638 -

2 réponses