Bonjour à la communauté. c'est ma première demande d'aide qui vous est acheminé.


VBA excel Pour quelle raison mon programme exécuté en mode pas à pas fonctionne bien et en temps réel ne fonctionne pas bien.
Le rafraîchissement des checkbox n'est pas effectué en temps réel alors qu'il l'est en mode pas à pas?
Le programme interroge une base de donnée et sauve l'info dans des variables matriciels. l'info est bien sauvegardé dans les variables. Les valeurs affectées aux checkbox ne passent pas lorsque le programme roule en temps réelle alors que les cellules le sont.

Merci d'avance pour le support.
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
        For I = 0 To K - J
                Range("A2").Value = Nom(I)
                Range("B2").Value = Prenom(I)
                Range("A5").Value = Date_insp(I)
                Range("B5").Value = Modele(I)
                Range("C5").Value = No_serie(I)
                Range("D5").Value = Marque(I)
                Range("E5").Value = Lot(I)
                Range("F5").Value = Capacite(I)
                Range("G5").Value = Date_Achat(I)
                Range("C13").Value = Quinc_Defaut(I)
                Range("E13").Value = Quinc_correctif(I)
                Range("C15").Value = Sangle_Defaut(I)
                Range("E15").Value = Sangle_correctif(I)
                Range("C17").Value = Couture_Defaut(I)
                Range("E17").Value = Couture_correctif(I)
                Range("C19").Value = Etiq_Defaut(I)
                Range("E19").Value = Etiq_correctif(I)
                Range("C21").Value = Autre_Defaut(I)
                Range("E21").Value = Autre_correctif(I)
                Range("E27").Value = Inspecteur(I)
                Range("C24").Value = Commentaire(I)
                CheckBox1.Value = QuincAccept(I)
                CheckBox2.Value = QuincRejet(I)
                CheckBox3.Value = QuincNA(I)
                CheckBox4.Value = SanglesAccept(I)
                CheckBox5.Value = SanglesRejet(I)
                CheckBox6.Value = SanglesNA(I)
                CheckBox7.Value = CouturesAccept(I)
                CheckBox8.Value = CouturesRejet(I)
                CheckBox9.Value = CouturesNA(I)
                CheckBox10.Value = EtiqAccept(I)
                CheckBox11.Value = EtiqRejet(I)
                CheckBox12.Value = EtiqNA(I)
                CheckBox13.Value = AutreAccept(I)
                CheckBox14.Value = AutreRejet(I)
                CheckBox15.Value = AutreNA(I)
 
           If I = K - J Then
                L = 1
                    For L = 1 To 15
                        ActiveSheet.OLEObjects("CheckBox" & L).Object.Value = False
                    Next L
                Exit Sub
           Else
            ActiveSheet.PrintPreview
           End If
 
        Next I