Variable dans procédure

Le
Alain Lebayle
Bonjour,
Je souhaite récupérer la variable Mavar dans ma procédure.
au départ j'ai cela :

Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value = index(R1:R26,int(rand()*(27-1)+1))]

Je souhaite obtenir ceci :

Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value =
index(R1:R&Mavar,int(rand()*(Mavar-1)+1))]

Je vous remercie

Alain
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21490772
Bonjour,

Essaie ceci :

Attention aux coupures de lignes de code par le service de messagerie.
'---------------------------------
Sub test()

With Sheets("Params")
Mavar = Application.CountA(.[R1:R26])
'Si tu veux obtenir le résultat directement dans la fenêtre vba
x = Evaluate("index(R1:R" & Mavar & ",int(rand()*(" & Mavar & "-1)+1))")

'Si tu veux copier la formule dans ta cellule.
.Range("T1").Formula = "=index(R1:R" & Mavar & ",int(rand()*(" & Mavar & "-1)+1))"
End With
End Sub
'---------------------------------



"Alain Lebayle" discussion :
Bonjour,
Je souhaite récupérer la variable Mavar dans ma procédure.
au départ j'ai cela :

Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value = index(R1:R26,int(rand()*(27-1)+1))]

Je souhaite obtenir ceci :

Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value index(R1:R&Mavar,int(rand()*(Mavar-1)+1))]

Je vous remercie

Alain
Jacky
Le #21490902
Bonjour,

Ceci peur-être
'-----------
Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value = Evaluate("Index(R1:R" & Mavar & ", Int(Rand() * (" & Mavar & " - 1) +
1))")
'------------
--
Salutations
JJ


"Alain Lebayle"
Bonjour,
Je souhaite récupérer la variable Mavar dans ma procédure.
au départ j'ai cela :

Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value = index(R1:R26,int(rand()*(27-1)+1))]

Je souhaite obtenir ceci :

Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value = index(R1:R&Mavar,int(rand()*(Mavar-1)+1))]

Je vous remercie

Alain
Alain Lebayle
Le #21493072
Bonsoir,
Un très grand merci à Michdenis ainsi qu'à Jacky,
cela fonctionne parfaitement !
Alain

Jacky a écrit :
Bonjour,

Ceci peur-être
'-----------
Mavar = Application.CountA([R1:R26])
Sheets("Params").Range("T1").Value = Evaluate("Index(R1:R" & Mavar & ", Int(Rand() * (" & Mavar & " - 1) +
1))")
'------------
Publicité
Poster une réponse
Anonyme