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

Résolu
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


  1. Dim Ws as Worksheets

    Ws= Worksheets("nomdetafeuille")

    ces 2 lignes t'aideront peut être..
    0
    1. Bonjour, je doit les placer où s'il vous plaît ?
      0
    2. ligne 7 sur ton exemple
      0
    3. Il y'a marqué, "Erreur de compilation, utilisation incorrect de la propriété"
      0
    4. 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
      0
    5. Parfaaait je vous remercie c'est résolu, merci pour tout
      0