Beug sur un code

Bonjour

Mon code beug sur la ligne en gras pouvez vous svp me dire ou se trouve l'erreur

Cordialement et Merci

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 14

Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)

Next I

End Sub

Bonjour,

as-tu un extrait représentatif de ton fichier ?

Bonjour Steelson

Merci pour ta réponse

Un oubli de déclarer la ws

Crdlt

Rechercher des sujets similaires à "beug code"