Tirage aléatoire d'une colonne excel

gezux Messages postés 81 Date d'inscription   Statut Membre Dernière intervention   -  
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je suis en train de faire un programme, et j'aurai besoin de faire apparaître dans un userform, un mot situé dans une case au hasard d'un tableur excel. J'aurai besoin d'aide j'arrive pas a trouver comment trouver la case aléatoirement ainsi que comment insérer ce résultat dans un userform (Textbox ou autre ?) ?

Merci par avance,
Cordialement
A voir également:

1 réponse

Réponse 1 / 1
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
Bonoisr Gezux, bonsoir le forum,

Le code commenté ci-dessous considère que la plage commence en A1 (tu adapteras) : 

Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim NC As Long 'déclare la variable NC (Nombre de Cellules)
Dim NA As Long 'déclare la variable NA (Numéro Aléatoire)
Dim VA As Variant 'déclare la variable VA (Valeur Aléatoire)

Set O = Sheets("Feuil1") 'définit l'onglet O (à adapter)
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL (à adapter)
NC = PL.Cells.Count 'définit le nomnbre de cellules NC de la plage PL
Randomize 'lance le générateur de nombre aléatoire
NA = Int(NC * Rnd + 1) 'définit un numéro aléatoirement entre 1 et NC
VA = PL(NA) 'récupère la valeur VA la NAième cellule de la plage PL
Me.TextBox1.Value = VA 'récupère dans la TextBox1 la valeur aléatoire VA
0