Erreur Combobox, formulaire recherche

Bonjour

j'ai une erreur et je n'arrive à comprendre pourquoi, pouvez vous m'aider SVP ?

L'erreur est (L'objet spécifié est introuvable.

Pourquoi me dit-il ça ?

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

For I = 1 To 8

Me.Controls("textbox" & I) = Ws.Cells(Ligne, I + 1) (Erreur est ICI)

Next I

End Sub

Cordialement

Maxime

avez vous besoin du code entier du formulaire ?

Salut Maximeros,

forcément : tu ne spécifies nulle part la valeur de Ws !

Ws.Cells(Ligne, I + 1)

Quelque chose comme ceci :

Dim Ws As Worksheet
Set Ws = Worksheets("Feuil1")

A+

Salut Curulis,

Je vais au travail je regarde ça quand je suis arrivé. Je te remercie de ta réponse et te tiens au courant.

A bientôt

Nickel cela fonctionne je te remercie !!!!!