XL 2010 Choisir une cellu;aléatoirement et charger une variable

[Phillip]

Bonjour,

Je suis confus, mais j'ai un problème de syntaxe qui est sûrement très simple, mais je n'y arrive pas. Je voudrais simplement choisir aléatoirement une valeur d'une de mes cellules dans une plage et la mettre dans une variable, et je n'arrive pas à faire fonctionner ça en VBA.

je voudrais soit

1) nommer la plage d'abord dans excel, et choisir dans VBA ma cellule au pif
2) nommer la plage dans VBA et choisir ma cellule au pif

merci de votre aide

Cordialement

Phillip

 

[Robert]

Re : Choisir une cellu;aléatoirement et charger une variable

Bonjour Phillip, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim PL As Range 'déclare la variable PL (PLage)
Dim NC As Integer 'déclare la variable NC (Nombre de Cellules)
Dim A As Integer 'déclare la variable A (Aléatoire)
Dim VAR As Variant 'déclare la variable VAR (VARiable)

Set PL = Range("A1").CurrentRegion 'définit la palg ePL
NC = PL.Cells.Count 'définit le nombre de cellules NC de la palge PL
PL.Name = "toto" 'nomme la plage
Randomize 'lance le générateur de nombre aléatoires
A = Int(NC * Rnd + 1) 'définit le nombre aléatoire A
VAR = PL.Cells(A).Value 'définit la variable VAR
MsgBox VAR 'affiche la varialbe VAR dans un message
End Sub

 

[Phillip]

Re : Choisir une cellu;aléatoirement et charger une variable

Bonjour Robert,

Ca marche du tonnerre ! Merci beaucoup !!
*
Cordialement

Phillip