liste d'anglais aleatoire

[laetitia19]

bonjour, (ou meme bonsoir)

Voilà ma question peut paraître simple et bateau pour certains mais pas forcément pour moi.
J'ai effectué une petite recherche préalable pour créer une liste de tirage aléatoire sur Excel dont j'ai presque trouvé ma réponse.
Cependant la liste que je veux créer est liste de mot d'anglais, en effet je revise mes mots d'anglais sur une liste fourni par la prof mais je trouve que ce n'est pas assez efficace (parce que sur un papier au bout d'un moment je commence à connaître par coeur les mots qui se suivent...
Je souhaite donc créer cette liste aleatoire d'environ 1000 mots, je voulais savoir si c'était possible et que le nombre était pas trop élevé. De plus, je voulais savoir s'il était possible de rajouter à chaque fois que je tire un mot en anglais, d'obtenir sa traduction dans la colonne d'à côté.

Voilà merci d'avance votre aide.

J'espère que ma demande est clairement formuler.

 

[laurent950]

Re : liste d'anglais aleatoire

Bonsoir,

Si vous avez le fichier Excel source je vous fait le petit bout de code.

vous voulais que lorsqu'un mot et tiré au sort exemple cellule A1 (Anglais) en Cellule A2 (Francais) pour traduction sur une liste de
1000 mots en aléatoire

Coller la liste en Anglais en Colonne A et en colonne B celle en Francais (sur la feuil2 du classeur)

se positionner sur la feuil1 du classeur pour les resultat

Sub AnglaisFrancais()
'TIRAGE(ALÉATOIRE SANS RÉPÉTITION)

 Dim F1, F2 As Worksheet
 Set F1 = ThisWorkbook.Worksheets("Feuil1")
 Set F2 = ThisWorkbook.Worksheets("Feuil2")

' Tableau feuille 2 (Colonne A et B) = Liste
dim TabAngFran as Variant
 Fin = F2.Range("A65536").End(xlUp).Row
 TabAngFran = F2.Range(F2.Cells(1, 1), F2.Cells(Fin, 2))

Dim i As Integer
Dim NumAleat As Integer

' Redimension du tableau ajout d'une colone pour test
ReDim Preserve TabAngFran(1 To Fin - 1, 1 To 3)

' Rempli la colonne 3 toute a 1
For i = 1 To UBound(TabAngFran, 1)
TabAngFran(i, 3) = 1
Next i

For i = 1 To UBound(TabAngFran, 1)

NumAleat = Int(Rnd() * UBound(TabAngFran, 1)) + 1
    
    If TabAngFran(NumAleat, 3) = 1 Then
        TabAngFran(NumAleat, 3) = 0
        F1.Cells(1, 1).Value = TabAngFran(NumAleat, 1)
        F1.Cells(1, 2).Value = TabAngFran(NumAleat, 2)
    
        MsgBox "Autres Mots"
        
        F1.Cells(1, 1).Value = Clear
        F1.Cells(1, 2).Value = Clear
        
    Else
        While TabAngFran(NumAleat, 3) = 0
        NumAleat = Int(Rnd() * UBound(TabAngFran, 1)) + 1
        Wend
        TabAngFran(NumAleat, 3) = 0
    End If

Next i

End Sub

Oui c'est possible.

Laurent

 

[mapomme]

Re : liste d'anglais aleatoire

Bonjour laetitia19 et bienvenue 🙂

Voir le fichier du message Création d'un quizz sous Excel

Il suffit d'ajouter ou d'ôter des mots à la fin du tableau.

Si vous désirez plutôt du français vers l'anglais, intervertissez les deux colonnes et échangez les intitulés des deux cellules où apparaissent les mots quand on clique sur le bouton.

 

[mapomme]

Re : liste d'anglais aleatoire

(re)Bonjour laetitia19,

Une autre proposition sans code VBA.

Voir le fichier du message Creation de questionnaire d'apres Base de données

Si vous désirez plutôt du français vers l'anglais, intervertissez les deux colonnes (sur la feuile "Feuil1").