Lancement de dés

Bonjour à Tous,
Un petit problème que je n'arrive pas à régler. Une petite macro lance des dés au nombre de 3 et les affiche dans les cellules B6, C6 & D6. Là aucun soucis
Ce que j'aimerais c'est de récupérer en VBA, dans les cellules juste en dessous ligne 7, la valeur de chaque dé comme le montre l'exemple dans le fichier joint.
Si quelqu'un a une solution, cela m'arrangerait bien. Merci:D

Bonjour,

Il est préférable de :
- Limiter la portée des variables au strict minimum nécessaire (ici la procédure au lieu du module)
- Eviter la sélection de cellules lorsque ce n'est pas indispenable
Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Sub LancementDes() Dim cellule As Range Dim valeur As Integer Randomize For Each cellule In Range("B6:D6").Cells valeur = Int(Rnd * 6) + 1 cellule.Value = ChrW(9855 + valeur) cellule.Offset(1).Value = valeur Next End Sub

---

Bonjour,

avec la formule :

Code:

---

=UNICODE(B6)-9855

---

Ou dans ton lancement de dés :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit Const RgJeu = "B6:D6"   Sub LancementDes() Dim i As Integer Dim Cellule As Range   For Each Cellule In ActiveSheet.Range(RgJeu) Randomize i = Int(Rnd * 6) Cellule.Value = ChrW(9856 + i) Cellule.Offset(1, 0).Value = i + 1 Next   End Sub

---

Bonjour,

Pièce jointe 629910Pièce jointe 629911

Comme je le pensais, il y a toujours une réponse à une question sur ce forum. Merci à vous trois, les intervenants, ces réponses me conviennent bien. Une bonne continuation. :D

Salut

Je ne remet pas la main sur la discussion mais voici un fichier sur lequel j'avais travaillé et qui utilisé les caractère d'une font pour afficher des dés.

++
Qwaz