Attribution de variable à des checkbox

**rayvig** · 11/12/2019, 18h26

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

**ARTURO83** · 12/12/2019, 08h23

Bonjour,

Pour quelle raison mon programme exécuté en mode pas à pas fonctionne bien et en temps réel ne fonctionne pas bien.
Parce que vous êtes beaucoup plus lent que le microprocesseur de votre PC.

mettez DoEvents après le remplissage de la dernière ChekBox (juste avant le If I = K - J Then) et essayez.

DoEvents va permettre de laisser finir les tâches précédentes avant de passer à la boucle suivante.

Cdlt

**Qwazerty** · 12/12/2019, 17h57

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

L=1

est inutile avant une boucle for, L prendra la valeur de la 1ère borne quoi qu'il arrive.

Pour la remise à false des checkbox, il faut la sortir de la boucle For

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'On boucle pour faire le publipostage
For I = 0 To K - J
'....
Next
 
'On boucle sur les checkbox
For L = 1 To 15
      ActiveSheet.OLEObjects("CheckBox" & L).Object.Value = False
Next L

Un conseil, il est fortement recommander de renommer les contrôles, ça rend le code plus lisible et bien plus facile à entretenir/débugger par la suite. (Bien que je comprends dans le contexte de votre code que vous souhaitiez garder une racine commune "CheckBox" et un numéro d'ordre, garder "CheckBox" n'est pas parlant et risque de générer des problèmes en cas de suppression de checkbox.
Peut-être devriez vous nous en dire un peu plus sur le code global, il y a peut-être des simplifications à réaliser.

++
Qwaz

**rayvig** · 12/12/2019, 19h01

Envoyé par ARTURO83

Excusez pour le délai mais malheureusement ça ne fonctionne pas.

Envoyé par Qwazerty

Merci pour ton aide ! Effectivement la fonction DoEvents a réglé mon problème. Par contre il a fallu que je l'implante pour chaque checkbox.
Merci encore pour l'info. Je n'aurais jamais pu trouver cette fonction seul.

**Qwazerty** · 12/12/2019, 19h07

Salut

C'est ARTURO83 qui t'a guidé vers le DoEvents.

Par contre pourrais-tu mettre ton code modifé, il n'y a pas de raison pour que DoEvents soit nécessaire aussi souvent à mon avis.

++
Qwaz

**rayvig** · 12/12/2019, 20h02

C'est peu étégant mais ça fait le travail.

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
61
62
63
64
        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)
                DoEvents 'DoEvents donne le temps à l'objet de prendre sa valeur
                CheckBox2.Value = QuincRejet(I)
                DoEvents
                CheckBox3.Value = QuincNA(I)
                DoEvents
                CheckBox4.Value = SanglesAccept(I)
                DoEvents
                CheckBox5.Value = SanglesRejet(I)
                DoEvents
                CheckBox6.Value = SanglesNA(I)
                DoEvents
                CheckBox7.Value = CouturesAccept(I)
                DoEvents
                CheckBox8.Value = CouturesRejet(I)
                DoEvents
                CheckBox9.Value = CouturesNA(I)
                DoEvents
                CheckBox10.Value = EtiqAccept(I)
                DoEvents
                CheckBox11.Value = EtiqRejet(I)
                DoEvents
                CheckBox12.Value = EtiqNA(I)
                DoEvents
                CheckBox13.Value = AutreAccept(I)
                DoEvents
                CheckBox14.Value = AutreRejet(I)
                DoEvents
                CheckBox15.Value = AutreNA(I)
 
           If I = K - J Then
                    For L = 1 To 15
                        ActiveSheet.OLEObjects("CheckBox" & L).Object.Value = False
                    Next L
                Exit Sub
           Else
 
            ActiveSheet.PrintPreview
 
           End If
 
        Next I

Merci encore.

Attribution de variable à des checkbox [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager