Sujet Précédent Sujet Suivant

Afficher MSGBOX dans cellule

Fermé
COCO92 - 4 mars 2015 à 14:25
ccm81 Messages postés 10895 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 3 octobre 2024 - 4 mars 2015 à 17:14
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

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
4 mars 2015 à 14:36
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+
0
Réponse 2 / 2
ccm81 Messages postés 10895 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 3 octobre 2024 2 421
4 mars 2015 à 16:30
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
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
4 mars 2015 à 16:49
Bonjour ccm81,

D'après moi, c'est plutôt pour définir aléatoirement le nombre d'oeufs à retirer de la boite de 12 pour faire une omelette. Il a raison car avec un oeuf ce n'est pas suffisant.

A+
0
ccm81 Messages postés 10895 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 3 octobre 2024 2 421
4 mars 2015 à 17:14
Ah, ah, je vois d'ici ce que tu as mangé à midi ;-)

Bonne fin de journée
0

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses
Excel si cellule contient texte alors...
caba_44 -
RENOU -

41 réponses
=Si la cellule A1 a du texte = B1 devient couleur
jsecours -
huhh -

8 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses