Beug sur un code

Résolu/Fermé
JCB40 Messages postés 2989 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 23 avril 2025 - Modifié le 16 janv. 2021 à 16:45
JCB40 Messages postés 2989 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 23 avril 2025 - 16 janv. 2021 à 17:30
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
   <bold> Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)</bold>
  Next I
 End Sub




EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.

1 réponse

Patrice33740 Messages postés 8561 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 15 mars 2025 1 779
16 janv. 2021 à 16:42
Bonjour,

Tu n'as pas déclaré et affecté Ws
1
JCB40 Messages postés 2989 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 23 avril 2025 463
16 janv. 2021 à 17:30
Bonsoir Patrice
Merci pour ta réponse
J'ai rectifié et cela fonctionne
Cordialement
0