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
A voir également:
- Afficher MSGBOX dans cellule
- Excel cellule couleur si condition texte - Guide
- Afficher calendrier outlook dans google agenda - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Afficher taille dossier windows - Guide
2 réponses
Bonjour,
A+
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+
