Discussion :

[johnjrambo]

Bonsoir, 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.

Code :

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

1
2
3
4
5
6
Sub hasard()
Dim x as integer
Dim choice as string
choice = A1 to A100
For i = 1 to 100
x = Int(Len(choice) * Rnd + 1)

Mais après je ne sais pas trop, bref la galére, si vous avez des avis merci

[mercatog]

Bonjour

Une petite fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function MotTire(Rng As Range) As String
Dim Hz As Integer
 
Do
    Randomize
    Hz = Int(Rng.Rows.Count * Rnd() + 1)
Loop Until Rng(Hz, 1) <> ""
MotTire = Rng(Hz, 1)
End Function
 
'Pour la tester
Sub Test()
 
Debug.Print MotTire(Sheets("Feuil7").Range("A1:A100")) 'à adapter
End Sub

[patricktoulon]

bonjour

tu avais presque la solution

Code :

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

1
2
3
4
5
6
 
Sub hasard()
 
le_mot =range("A"& rnd*100)
msgbox le_mot
end sub

au plaisir

[johnjrambo]

Déja merci de vos réponses, c'est étrange la différence de taille entre les deux.
Dans le premier il n'y a pas moyen de remplacer le do/loop until par un For ?

Ensuite pour le 2e programme, la fonction range c'est comme un offset mai pour une plage de cellules si je ne me trompe pas ?

merci

[patricktoulon]

rebonsoir

la methode de mercatog est plus complete dans le sens ou il ajoute une condition si le mot est vide on repart sur le do


apres pour la taille oui mais mercatog t'a fait une fonction complete

donc un sub pour l'appeller


tandis que moi j'ai directement le mot en céclenchant le sub (un mot différent a chaque déclenchement


maintenant pour le cas ou le mot tombe sur une cellule vide

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub hasard()
 recommence:
le_mot =range("A"& rnd*100)
if le mot="" then 
goto recommence
else 
msgbox le_mot
end if 
end sub

au plaisir

[amnorian]

je n'arrive pas à utiliser ta sub en l'état et je dois rajouter la transformation en integer. De plus l'aide d'excel demande de rajouter 1

Code :

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

1
2
3
4
5
6
7
8
9
Sub hasard()
recommence:
le_mot = Range("A" & Int((Rnd * 100)+1)
If le_mot = "" Then
GoTo recommence
Else
MsgBox le_mot
End If
End Sub