Boucle avec variable

Bonjour,

Je suis en train de créer un jeu de Yahtzee. Je souhaite connaître le nombre de dé égal à 1. J'ai 5 dés.

Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim case1 As Integer
case1 = 0
For i = 1 To 5
If de&(i).Value = 1 Then
case1 = case1 + 1
End If
End Sub

Bonjour

Ah oui

Moi j'ai 5 volailles je voudrais savoir combien j'ai de poules

sibylline comme question

Sinon juste pour dire quelques chose, il manque un Next I dans ton code

Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim case1 As Integer
  case1 = 0
  For i = 1 To 5
    If de&(i).Value = 1 Then
      case1 = case1 + 1
    End If
  Next i
End Sub

Précises ta question et au besoin joins un fichier pour bien expliquer