Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel questionnaire avec fonction ALEA

questionnaire avec fonction ALEA

3 réponses
Avatar
magic-dd
Bonsoir

je souhaiterai faire un questionnaire pour reviser mon anglais technique

seulement quand j'utilise la fonction alea pour choisir une question,=20

si je mets la reponse dans la zone attendu et que je valide, le chiffre al=
=E9atoire change et forcement ma reponse n'est jamais bonne

je vous joins un fichier exemple beaucoup plus significatif

merci

http://cjoint.com/?CKntiHC91FE
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
Bonjour,

Voir fichier joint : http://cjoint.com/?CKnvRP54KFB
Tu peux ajouter des entrées à ta liste en Feuil2 à la suite des autres
sans aucun problème!


MichD
---------------------------------------------------------------
Avatar
magic-dd
Grand merci MichD

je vais regarder de plus près ton code

bonne soirée


Le mercredi 13 novembre 2013 21:45:02 UTC+1, MichD a écrit :
Bonjour,



Voir fichier joint : http://cjoint.com/?CKnvRP54KFB

Tu peux ajouter des entrées à ta liste en Feuil2 à la suite des aut res

sans aucun problème!





MichD

---------------------------------------------------------------
Avatar
MichD
Tu devrais remplacer le code de la feuille module par ceci :

Dim X As Long
'------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As String
Application.EnableEvents = False
If Target.Address = Range("E11").Address Then
With Application
X = .RandBetween(1, 141)
Range("C11") = ""
Range("E11") = ""
Range("D11") = .Index(Feuil1.Range("Français"), X, 0)
End With
Else
If X = 0 Then Application.EnableEvents = True: Exit Sub
With Application
C = .Index(Feuil1.Range("Anglais"), X, 0)
Range("C11") = C
End With
End If
Application.EnableEvents = True
End Sub
'------------------------------

MichD
---------------------------------------------------------------