Jeux : AIDEZ MA STAGIAIRE en VB svp.

Problème : quand elle affiche la liste de mot entrée, les mots aparraissent de 2 @ 4 fois.....

Quelqu'nua une idée, ca me prend une réponse avant 4:30 pis moi j,Mer rapelle pu de rien pis chu dans le rush

bin raide a job !!!!

PPPST c'est ma stagiaire

'Procédure click bouton de commande

Private Sub Cmd1_Click()

'intmot : nombre entier

Dim intmot As Integer

'Afficher boîte de dialogue "Entrée un mot d'un maximum de 10 lettres

Message = InputBox("Entrée un mot d'un maximum de 10 lettres", "Choix du mot")

'Strmot égal message

strmot = Message

'Cacher feuille frmniveau

frmniveau.Hide

'Vérifie frmpendu

frmpendu.verifiecase

'Afficher feuille frmpendu

frmpendu.Show

'Fin procédure

End Sub

'Procédure click bouton de commande

Private Sub cmd2_Click()

'x egal 3

x = 3

'Ouvrir fichier liste.txt en lecture

Open "F:\VBA\liste.txt" For Input As #1

'Tant que

Do While Not (EOF(1))

'Lecture numéro 1, strmot

Input #1, strmot

Do While Cells(x, 1) <> ""

If Cells(x, 1) = strmot Then

strmot = ""

End If

'x égal x plus 1

x = x + 1

Loop

'Cellule x, 1 egal strmot

Cells(x, 1) = strmot

'Suivant

'loop

'Fermer numéro 1

Close #1

'Fin procédure

End Sub

J'aurais p-e pu t'aider en VB mais pas en VBA

doit etre son Do While qui est pas correct si les mots apparaisse plusse qu'une fois... j'aurais pu aider plus en VB mais du VBA cé pas pareil... jpeux pas entrer ça dans visual studio et checker avec des break point pourquoi il retourne dans le Do While plusieurs fois.

astie c pour ca chu mêler un peu c du VBA !

Tk je lui laisse ca, chu trop dans le jus j'ai 200 machine a changer les cpu, ajouter des dvdrw, memoire, ghoster, torcher... damn juste 70 de faite depuis a matin a 2 :S

Cells(x, 1) = strmot

'Suivant

'loop

'Fermer numéro 1

Close #1

devrait pas être :

Cells(x, 1) = strmot

'Suivant

loop <=======Pas commenté cette loop

'Fermer numéro 1

Close #1

Foutu commentaires inutiles :

'x egal 3

x = 3

T+6 mais bon... c pas SI loin de l'échéance