Bingo code fonctionne mais un petit pb

Bonjour toutes et tous,

J'ai voulu refaire un Bingo Anglais pas-à-pas pour mes prochains projets, mais voilà que tout ou presque fonctionne

le Bingo ne m'indique pas la fin ? étrange là

un message de fin est inexistant ? qu'est ce qui cloche, me suis-je trompé quelque part ?

merci d'avance

Note : j'ai également était attentif avec if = si

voici le fichier joint en pièce jointe également

Private Sub btnDraw_Click()
Dim linenumber As Integer, numpick As Integer
Dim bingonumber As String

linenumber = Range("E1").Value
numpick = Range("B" & linenumber).Value
Range("B" & linenumber).ClearContents

If numpick > 60 Then
bingonum = "O " & numpick
ElseIf numpick > 45 Then
bingonum = "G " & numpick
ElseIf numpick > 30 Then
bingonum = "N " & numpick
ElseIf numpick > 15 Then
bingonum = "I " & numpick
Else
bingonum = "B " & numpick

End If

Range("G5").Value = bingonum

End Sub

Private Sub btnReset_Click()

Dim linenumber As Integer
linenumber = 1

Do

Range("B" & linenumber).Value = Range("A" & linenumber).Value
linenumber = linenumber + 1
Loop Until Range("A" & linenumber).Value = ""
Range("G5:H6").ClearContents

End Sub

crdlt,

André

22bingo-test.xlsm (32.42 Ko)

Bonsoir,

Je pense que tu souhaites quelque chose comme cela :

Private Sub btnDraw_Click()
Dim linenumber As Integer, numpick As Integer
Dim bingonumber As String
If IsNumeric(Range("E1").Value) Then
    linenumber = Range("E1").Value
Else: MsgBox "Grille terminée"
    Exit Sub
End If
numpick = Range("B" & linenumber).Value
Range("B" & linenumber).ClearContents

If numpick > 60 Then
bingonum = "O " & numpick
ElseIf numpick > 45 Then
bingonum = "G " & numpick
ElseIf numpick > 30 Then
bingonum = "N " & numpick
ElseIf numpick > 15 Then
bingonum = "I " & numpick
Else
bingonum = "B " & numpick

End If

Range("G5").Value = bingonum

End Sub

Bon courage

Cordialement

Re,

merci Patty5046

Oui exactement bien pensé c'est la fin de grille qui annoncera un msgbox c'est ce qui manqué

mais, ce qui me semble bizarre, normalement les lettres B, I, N G et O ne devrait-il pas le stoppé avant si cela a été tiré horizontalement sur la feuil1

merci en tout cas ^^^

crdlt,

André

13bingo-ok.xlsm (32.49 Ko)

Rebonsoir

Le tirage ne me paraît pas horizontal....

Donc, perso je ne vois pas d'autre solution. contente tout de même d'avoir aidé.

Si quelqu'un peut trouver mieux!!!

Cordialement

Re,

super mega merci de m'avoir aidé

ce qui m'a rendu en erreur, c'est cela tout simplement, je pensais qu'il y avait une suite :

If numpick > 60 Then
bingonum = "O " & numpick
ElseIf numpick > 45 Then
bingonum = "G " & numpick
ElseIf numpick > 30 Then
bingonum = "N " & numpick
ElseIf numpick > 15 Then
bingonum = "I " & numpick
Else
bingonum = "B " & numpick

Rechercher des sujets similaires à "bingo code fonctionne petit"