Afficher MSGBOX dans cellule
COCO92
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
J'aimerai que ma macro effectue un tirage aleatoire entre 2 et 12 et que le resultat s'affiche dans une msgbox et en plus que le resultat se mette en dur dans une cellule d'une autre feuille. Et a chaquefois que je lance la macro qu'elle soit capable d'ecrire le resultat a la suite et pas remplacer la valeur deja entré en dur.
Voici ou j'en suis .... c 'est pas jojo...
Merci de votre aide :)
Sub TEST2()
Worksheets("TIRAGE").Range("A1").Select
Do Until IsEmpty(ActiveCell) = True
Randomize 'Initialisation du générateur de nombres aléatoires
MsgBox Int((11 * Rnd) + 2)
ActiveCell.Offset(1, 0).Activate
FormulaLocal = "=ALEA.ENTRE.BORNES(2;12)"
Loop
End Sub
J'aimerai que ma macro effectue un tirage aleatoire entre 2 et 12 et que le resultat s'affiche dans une msgbox et en plus que le resultat se mette en dur dans une cellule d'une autre feuille. Et a chaquefois que je lance la macro qu'elle soit capable d'ecrire le resultat a la suite et pas remplacer la valeur deja entré en dur.
Voici ou j'en suis .... c 'est pas jojo...
Merci de votre aide :)
Sub TEST2()
Worksheets("TIRAGE").Range("A1").Select
Do Until IsEmpty(ActiveCell) = True
Randomize 'Initialisation du générateur de nombres aléatoires
MsgBox Int((11 * Rnd) + 2)
ActiveCell.Offset(1, 0).Activate
FormulaLocal = "=ALEA.ENTRE.BORNES(2;12)"
Loop
End Sub
2 réponses
-
Bonjour,
Sub TEST2()
Dim Valeur As Integer
Randomize
Valeur = Int((11 * Rnd) + 2)
MsgBox "Valeur aléatoire : " & Valeur
Worksheets("TIRAGE").Range("A" & Rows.Count).End(xlUp).Offset(1) = Valeur
End Sub
A+ -
Bonjour à tous les deux
Un entier de 2 à 12 ....
Si c'est pour simuler le lancer de deux dés (qui sait ) il vaut mieux
Valeur = 1+int(6*rnd)+1+int(6*rnd)
Mais bon ....
Cdlmnt
