Disposer au hasard des lignes

Bonjour,

J'ai un document excel sur lequel j'ai recensé du vocabulaire espagnol que je souhaiterais mettre dans le désordre

Il se présente comme ceci

//A////////////B/////////////////////C

1/Mot n°1/Mot en français1/Mot en espagnol1

2/Mot n°2/Mot en français2/Mot en espagnol2

3/Mot n°3/Mot en français3/Mot en espagnol3

4/Mot n°4/Mot en français4/Mot en espagnol4

5/Mot n°5/Mot en français5/Mot en espagnol5

Et je souhaiterais que cela se transforme par exemple comme cela

4/Mot n°4/Mot en français4/Mot en espagnol4

2/Mot n°2/Mot en français2/Mot en espagnol2

5/Mot n°5/Mot en français5/Mot en espagnol5

1/Mot n°1/Mot en français1/Mot en espagnol1

3/Mot n°3/Mot en français3/Mot en espagnol3

Voire encore mieux mais l'option ci-dessous serait suffisante

4/Mot n°4////[CASE VIDE]/////Mot en espagnol4

2/Mot n°2/Mot en français2////[CASE VIDE]

5/Mot n°5/Mot en français5////[CASE VIDE]

1/Mot n°1////[CASE VIDE]////Mot en espagnol1

3/Mot n°3/Mot en français3////[CASE VIDE]

Merci

Salut prfjulien,

premier jet : un double-clic en 'BDD' démarre la macro, résultats en 'EXERCICE'.

Le hasard étant le hasard, il est possible que la répartition des mots français ou espagnols ne soit pas l'idéal : dans ce cas,... tu recommences!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData
Dim iRow%, iIdx%, iFlag%
'
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
tData = Range("A1:B" & iRow).Value
With Worksheets("EXERCICE")
    .Cells.Delete
    For x = 1 To iRow
        Randomize
        Do
            iIdx = Int(Rnd * iRow) + 1
        Loop Until tData(iIdx, 1) <> ""
        iFlag = Int(Rnd * 2) + 1
        .Cells(x, 1) = x
        .Cells(x, iFlag + 1) = tData(iIdx, iFlag)
        tData(iIdx, 1) = ""
    Next
    .Range("A1:C" & iRow).Borders.LineStyle = xlContinuous
    .Activate
End With
'
Application.EnableEvents = True
Application.ScreenUpdating = True
'
End Sub

Il y a moyen de faire bien mieux mais il faudrait pour cela connaître la structure de ta 'BDD' :

Par exemple, prévois-tu des catégories de mots (expressions, noms communs, verbes, adverbe...) le tout idéalement placés par colonnes indépendantes ?

On pourrait alors imaginer des systèmes pour :

• préparer des exercices ciblés sur ces catégories ;
• cibler une partie des mots d'une catégorie ;
• prendre au hasard des catégories ;
• ... (imagination)

A+

Bonjour toutes et tous

Coucou Curulis57

ci-joint aléatoire si, cela peut aider aussi

crdlt,

André

Bonjour, à tous

Aussi en aléatoire avec formules

Slts

Bonjour, toutes vos solutions me convenaient cependant, un ami m'a aidé et a fait plusieurs macros ce qui me permet d'avoir exactement ce que je voulais !

Merci de votre aide