test de vocabulaire à réaliser

[antho_b971]

bonjour,
je dois réaliser un petit quizz ou après chaque question, la réponse qui doit être inscrite doit contenir des mots clés.
je dois comptabiliser le nombre de mots clés cités et attribué une note a la réponse.
comment faire?
merci

 

[JNP]

Re : test de vocabulaire à réaliser

Bonjour Antho_b971 🙂,
Tu peux passer par un Like et un compteur, du type

Sub test()
Dim Question As String
Dim I As Integer
I = 0
Question = InputBox("Diplôme ?")
If LCase(Question) Like "plôme" = True Then I = I + 1
MsgBox ("Points : " & I)
End Sub

en répétant le test pour chaque mot clé, ou en décrivant des cellules, aussi bien pour la question que pour les mots clé attendus. Attention, si j'ai supprimé le côté MAJUSCULE/minuscule, je ne sais pas comment supprimer le côté accent (peut être en filtrant la chaine de caractère lettre par lettre et en remplaçant les caractères accentués un par un).
Bonne journée 😎