Aide pour ajouter un clicker pour casino roulette

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
abydos
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 24 novembre 2018
Version d'Excel : 2010

Message par abydos » 24 mars 2019, 00:30

Bonjour à tous.

j'ai fait un tableau Excel je souhaiterais insérer un clicker pour configurer une table de roulette pour qu'il puise mettre tous seul les jetons sur les numéros il faudrait simplement que je clique sur un groupe exemple le numéro 1 est sortie il fait partie du groupe ROL et là il faut que je joue les numéros du groupe REL+ROH+BOL + 13 numéros (12-14-16-18-19-21-23-25-27-11-13-15-17).

dans la méthode de jeu il y a pas de zéro c'est normal.
voici le fichier en pièce jointe

cordialement
merci d'avance
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Hello everyone.

I made an Excel table I would like to insert a clicker to configure a roulette table so that he can put all the chips on the numbers alone I would simply have to click on a group example the number 1 is out it is part of ROL group and there I have to play the numbers of the group REL + ROH + BOL + 13 numbers (12-14-16-18-19-21-23-25-27-11-13-15-17).

in the game method there is no zero it is normal.
here is the file attached

cordially
thank you in advance
Classeur ROL-REL-ROH-REH-BOL-BEL-BOH-BEH.xlsm
(15.05 Kio) Téléchargé 30 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 24 mars 2019, 18:04

Bonjour abydos,

à tester,
Sub test()
Dim pt, num, v, i As Integer, j As Integer, r As String
Dim notir As Integer
notir = 1
pt = Sheets("Feuil1").Range("F6:F13").Value
num = Sheets("Feuil1").Range("G6:G13").Value
For i = LBound(num) To UBound(num)
    v = Split(num(i, 1), ",")
    For j = LBound(v) To UBound(v)
        If CInt(v(j)) = notir Then
          Select Case pt(i, 1)
                Case "ROL": r = num(1, 1) & "," & num(2, 1) & "," & num(4, 1)    'REL+ROH+BOL
                Case "REL": r = num(0, 1) & "," & num(3, 1) & "," & num(5, 1)     'ROL+REH+BEL
                Case "ROH": r = num(0, 1) & "," & num(3, 1) & "," & num(6, 1)     'ROL+REH+BOH
                Case "REH": r = num(1, 1) & "," & num(7, 1) & "," & num(2, 1)     'REL+BEH+ROH
                Case "BOL": r = num(6, 1) & "," & num(2, 1) & "," & num(5, 1)     'BOH+ROH+BEL
                Case "BEL": r = num(7, 1) & "," & num(4, 1) & "," & num(1, 1)     'BEH+BOL+REL
                Case "BOH": r = num(7, 1) & "," & num(4, 1) & "," & num(2, 1)     'BEH+BOL+ROH
                Case "BEH": r = num(3, 1) & "," & num(5, 1) & "," & num(6, 1)     'REH+BEL+BOH
          End Select
        End If
    Next j
Next
Debug.Print r
End Sub
Vive ces nouvelles saisons qui nous colorent.
isabelle
a
abydos
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 24 novembre 2018
Version d'Excel : 2010

Message par abydos » 25 mars 2019, 08:21

Je vous remercie beaucoup.

cordialement
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'713
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 25 mars 2019, 13:31

Bonjour,

j'ai fais une correction, car j'avais commencé le tableau à 0 au lieu de 1,
voici le résultat,
abydos-ROL-REL-ROH-REH-BOL-BEL-BOH-BEH.xlsm
(19.36 Kio) Téléchargé 18 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message