sélection aléatoire

[POWO]

Re-bonsoir,

Sur une plage basique type ("A1:A100"), j'aimerais qu'une sélection aléatoire d'une cellule s'effectue. Comment puis-je faire?

Merci d'avance.

 

[ROGER2327]

Re : sélection aléatoire

Bonjour POWO

[COLOR="DarkSlateGray"][B]=INDEX(A1:A100;1+ENT(100*ALEA()))[/B][/COLOR]

devrait faire l'affaire.​

ROGER2327
#4121

Vendredi 6 Absolu 138 (Sainte Vérola, assistante sociale, SQ)
27 Fructidor An CCXVIII
2010-W37-1T20:06:17Z

 

[POWO]

Re : sélection aléatoire

Bonsoir Roger,

Merci pour ta réponse. Néanmoins j'ai besoin que ce résultat puisse prendre la forme d'une variable VBA, sais-tu comment je peux faire?

 

[ROGER2327]

Re : sélection aléatoire

Re...

Voici une base de travail :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim x
   x = [A1].Offset(1 + Int(100 * Rnd), 0).Value
   MsgBox x
End Sub[/B][/COLOR]

ROGER2327
#4122

Vendredi 6 Absolu 138 (Sainte Vérola, assistante sociale, SQ)
27 Fructidor An CCXVIII
2010-W37-1T20:18:37Z

 

[POWO]

Re : sélection aléatoire

Juste parfait!!

Merci

a+ Powo

 

[Staple1600]

Re : sélection aléatoire

Bonsoir


Si il s'agit de sélectionner une cellule

j'aimerais qu'une sélection aléatoire d'une cellule s'effectue

(à partir du code de Roger2327 , que je salue)

Sub Macro1()
Dim hasard As Range
Set hasard = Worksheets(1).Cells(1 + Int(100 * Rnd), 1)
Application.Goto Reference:=hasard, scroll:=True
End Sub

 

[POWO]

Re : sélection aléatoire

Merci staple, effectivement c'est encore plus simple!!!