Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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" a écrit dans le message de groupe de discussion : Bonjour, Je souhaite récupérer la variable Mavar dans ma procédure. au départ j'ai cela :
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" <alain.lebayle@club-internet.fr> a écrit dans le message de groupe de
discussion : eoOasxy0KHA.364@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je souhaite récupérer la variable Mavar dans ma procédure.
au départ j'ai cela :
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" a écrit dans le message de groupe de discussion : Bonjour, Je souhaite récupérer la variable Mavar dans ma procédure. au départ j'ai cela :