Aide pour ajouter un clicker pour casino roulette

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

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

Je vous remercie beaucoup.

cordialement

Bonjour,

j'ai fais une correction, car j'avais commencé le tableau à 0 au lieu de 1,

voici le résultat,

Rechercher des sujets similaires à "aide ajouter clicker casino roulette"