Salut à tous,
je suis en trainde faire une petite macro qui m'aiderait à mieux gerer mon voc d'anglais (c'est dure la vie d'étudiant )
Mais j'ai un petit soucis :
J'ai un classeur excel avec une colonne pour les mots en fr et une colonne pour les mots en anglais. L'idée c'est d'avoir une macro qui me demande aléatoirement un mot en anglais avec une inputbox. Si je me mets le bon mot, on passe à un autre mot. Si j'appuis sur OK, ou Annuler, ou tout autre bouton, je sors du programme.
Par contre, si je me trompe, là j'ai une msgbox qui me demande si je veux recommencer. Si je click sur non, j'ai une autre msgbox qui m'affiche la solution. Par contre, si je click sur oui, (et c'est là où je bloque) je voudrais revenir au moment de la macro où il me demande un mot en anglais.
Pour le moment, je n'ai pas réussi à introduire la notion d'aléatoire. Je passe par une inputbox qui me demande la ligne... Vous savez comment faire pour passer à l'aléatoire ?
Je vous montre le début de code que j'ai pour le moment :
Bref, vous l'avez vue, je bloque juste avant les 2 end if... Je ne sais pas remonter plus haut, et je n'ai pas hyper envie de faire mille If en cascade.
Vous pensez pouvoir m'aider?
Merci beaucoup les amis
@++
je suis en trainde faire une petite macro qui m'aiderait à mieux gerer mon voc d'anglais (c'est dure la vie d'étudiant )
Mais j'ai un petit soucis :
J'ai un classeur excel avec une colonne pour les mots en fr et une colonne pour les mots en anglais. L'idée c'est d'avoir une macro qui me demande aléatoirement un mot en anglais avec une inputbox. Si je me mets le bon mot, on passe à un autre mot. Si j'appuis sur OK, ou Annuler, ou tout autre bouton, je sors du programme.
Par contre, si je me trompe, là j'ai une msgbox qui me demande si je veux recommencer. Si je click sur non, j'ai une autre msgbox qui m'affiche la solution. Par contre, si je click sur oui, (et c'est là où je bloque) je voudrais revenir au moment de la macro où il me demande un mot en anglais.
Pour le moment, je n'ai pas réussi à introduire la notion d'aléatoire. Je passe par une inputbox qui me demande la ligne... Vous savez comment faire pour passer à l'aléatoire ?
Je vous montre le début de code que j'ai pour le moment :
Code:
Sub interro()
Dim cell, reponse, correction
cell = InputBox("quelle ligne?")
reponse = InputBox(Cells(cell, 1).Value)
If reponse = Cells(cell, 2).Value Then
MsgBox ("Bonne réponse")
Else
MsgBox ("Mauvaise réponse")
If MsgBox("Voulez vous retenter ?", vbYesNo) = vbNo Then
MsgBox ("Le bonne réponse est " & Cells(cell, 2).Value)
Else
End If
End If
End Sub
Bref, vous l'avez vue, je bloque juste avant les 2 end if... Je ne sais pas remonter plus haut, et je n'ai pas hyper envie de faire mille If en cascade.
Vous pensez pouvoir m'aider?
Merci beaucoup les amis
@++
Dernière édition: