Discussion :

[johnjrambo]

Bonjour, alors voila en fait j'ai une liste de mots de A1 à A100 et j'aimerai créer un programme qui tire au hasard un mot dans cette liste, cependant elle contient des cellules vides, or il ne faut qu'un mot.

Pour la sélection au hasard, j'avais penser à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Int(Rnd * (Highest + 1 - Lowest)) + Lowest

En remplacant par les bornes des cellules (A1 et A100)

Ensuite pour ce qui est des cellules vides, j'avais penser à:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 to 100
    If range("A" & i) <> ""
    i = i + 1
Next i

Merci

[GuyXL]

Bonjour John,

une proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim t(1 To 100)
j = 0
For i = 1 To 100
    If Cells(i, 1) <> "" Then
        j = j + 1
        t(j) = Cells(i, 1)
    End If
Next i
Randomize
MsgBox t(Int(j * Rnd) + 1)
End Sub

Cordialement

[johnjrambo]

Merci, mais je dois avoir un petit souci ca ne marche pas . Et en réalité, j'aimerai que le mot que je tire au sort , je puisse le rentrer dans une variable.
Du genre si la cellule A14 a été tiré au hasard:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim mot as string
mot = Range("A14").Value

Casse tête le vba, très intéressant mais pas facile

[GuyXL]

Qu'est ce qui ne marche pas ? Y'a t-il un message d'erreur ? C'est testé de mon côté, la macro est lancé lorsque la feuille active est celle contenant les noms (ou vides) en colonne A.

Pour la variable ben
MsgBox t(Int(j * Rnd) + 1) devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mot = t(Int(j * Rnd) + 1)

Cordialement

[johnjrambo]

Non en réalité tu as raison, ca marche, j'ai adapté le sub à mon programme et ca marche parfaitement.

Merci beaucoup , je passes le topic en résolu.