Probleme de debogage

enimos Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour
j arrive pas a trouver la nature de l erreur dans cette boucle
do until cells(i,1).text=combobox1.text
i=i+1
loop

4 réponses

ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonjour Enimos,

Qu'elle est l'erreur justement ?
Comme tu n'as pas défini (ou te ne le montres pas dans le bout code) la variable i, elle vaut 0 (zéro) par défaut et Cells(0, 1) ça plante...
0
enimos Messages postés 5 Date d'inscription   Statut Membre Dernière intervention  
 
j ai initialisé i à 1
et l erreur s affiche d ans l instruction i=i+1
0
NHenry Messages postés 15219 Date d'inscription   Statut Modérateur Dernière intervention   365
 
Quelle erreur ?
Un message ? Une réaction incorrecte ?

i=0 => Erreur ?
0
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Re,

Envoie le code complet sinon on va y passer des heures...
0
PlacageGranby Messages postés 393 Date d'inscription   Statut Membre Dernière intervention   26
 
Bonjour Enimos

Tu as posé une autre question à la quelle Jordane45 a répondu.
C'est probablement le même problème ici.

Il n'y a pas de propriété .text pour un objet cell.
Ce serait .value.

do until cells(i,1).value=combobox1.text
i=i+1
loop


A vérifier si tu compare du texte ou des chiffre.
Si par exemple, tu compares la valeur 12345, Cells(i,1) va retourner un chiffre en valeur, et combobox va retourner du texte. donc même si ca semble pareil, ce ne l'est pas.

On doit convertir en texte au besoin pour être sûr a l'aide de cstr().

do until cstr(cells(i,1).value)=combobox1.text
i=i+1
loop
0