# 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

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"