tirez au hasard un mot d'une liste

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:

---

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

Bonjour

Une petite fonction

Code:

---

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

---

bonjour

tu avais presque la solution:mouarf:

Code:

---

1 2 3 4 5 6

Sub hasard()   le_mot =range("A"& rnd*100) msgbox le_mot end sub

---

au plaisir

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:)

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:

---

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

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:

---

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

---