Discussion :

[TchiotPols]

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

[Patrice740]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tête de chat]

Bonjour,

avec la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=UNICODE(B6)-9855

Ou dans ton lancement de dés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thumb down]

Bonjour,

essais lancements dés.xlsm

[TchiotPols]

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.

[Qwazerty]

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