Bonjour je voudrais ignorer la verification de k(0) (en rouge) une fois qu'elle a ete vérifié une fois en fait pour que quand je clique sur le Bt(0) une deuxieme fois il ne reverifie pas k(0)


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub bt_Click(i As Integer)

Msg = MsgBox("Etes-vous sûr?", vbYesNo + vbQuestion, "Avertissement")

If Msg = vbYes Then
    
    k(i) = True 'mémorise action sur bouton i
    
    For i = 0 To 13
    bt(i).Enabled = False
    Next i
    
    If Lancer.Enabled = False Then Lancer.Enabled = True
    Jeu = 0
    If Jeu = 3 Then Lancer.Enabled = False
    
    Check1.Value = 0
    Check1.Enabled = False
    Check2.Value = 0
    Check2.Enabled = False
    Check3.Value = 0
    Check3.Enabled = False
    Check4.Value = 0
    Check4.Enabled = False
    Check5.Value = 0
    Check5.Enabled = False
    
    If k(0) = True Then
        
        If de1 = 1 Then
        x1 = 1
        Else
        x1 = 0
        End If
        If de2 = 1 Then
        x2 = 1
        Else
        x2 = 0
        End If
        If de3 = 1 Then
        x3 = 1
        Else
        x3 = 0
        End If
        If de4 = 1 Then
        x4 = 1
        Else
        x4 = 0
        End If
        If de5 = 1 Then
        x5 = 1
        Else
        x5 = 0
        End If
        Lb(0) = x1 + x2 + x3 + x4 + x5
        k(0) = False
            
    End If
End If
End sub