[XL-2016] MAJ checkbox dans ruban

MAJ checkbox dans ruban

Bonjour,

malgré la lecture du tuto:

https://silkyroad.developpez.com/exc...lbacks/#LIII-3

je n'arrive pas à MAJ la checkbox quand je clique sur une liste déroulante qui se trouve dans la feuille modele

Mon ruban:

Code:

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
<customUI 
  xmlns="http://schemas.microsoft.com/office/2009/07/customui">
   <!-- Masque le ruban Office -->
  <ribbon startFromScratch="true">
   <tabs>
 
 
   <!-- Onglet personnalisé ACCUEIL -->
   <tab id="ACCUEIL" label="Accueil">
 
      <!-- Groupe Personnalisé CONSULTATION -->
      <group id="Affichage" label="Affichage">  
 
     <!-- Case à cocher MASQUER -->      
     <checkBox id="chkMasqueDif" label="Masquer différence à 0" onAction="Masque_Ligne"  
               getPressed="getchkPort1" />
 
     <checkBox id="chkMasqueImp" label="Masquer Impôt" onAction="FraisPort"  
               getPressed="getchkPort2" />
 
	</group>
    </tab>
 
 
 
   <!-- Onglet personnalisé GESTION DES DONNEES -->
   <tab id="GEST_DONNEES" label="Gestion des données">
 
      <!-- Groupe Personnalisé IMPORTATION -->
      <group id="Importer" label="Importer">
         <button id="btFPO4" label="FPO4" 
	           imageMso="TableExcelSpreadsheetInsert"           
		     size="large" onAction="FPO" />
	   <button id="btComptaJ" label="Compta J" 
      	     imageMso="PivotTableSubtotalsOnTop" 
	           size="large" onAction="Rech_Devis"  />
	   <button id="btBasculement" label="Basculement" 
      	     imageMso="PivotTableSubtotalsOnTop" 
	           size="large" onAction="Rech_Devis"  />
      </group>
 
      <!-- Groupe Personnalisé EXPORTATION -->
      <group id="Exporter" label="Exporter">      
   	   <button id="btODS" label="Classeur / poste" 
      	     imageMso="FileSaveAsExcelXlsx"           
	           size="large" onAction="Dplc_Modele" />
         <button id="btPDF" label="PDF" 
	           imageMso="FileEmailAsPdfEmailAttachment" 
      	     size="large" onAction="Rech_Client"  />
      </group>
 
       <!-- Groupe Personnalisé SAISIES -->
      <group id="Observations" label="Saisies">      
   	   <button id="btObservations" label="Observations" 
      	     imageMso="NewNoteNumbered"           
	           size="large" onAction="Lance_USF_OB" />
         <button id="btPNC" label="Enregistrement PNC" 
	           imageMso="BlogPublishDraft" 
      	     size="large" onAction="Lance_USF_MANU"  />
      </group>
 
 
 
    </tab>
   <!-- Onglet personnalisé VALIDATION -->
   <tab id="Validation" label="Validation">
 
      <!-- Groupe Personnalisé CONSULTATION -->
      <group id="Consolider" label="Consolidation">      
         <button id="btConsol" label="Verrouiller" 
	           imageMso="Consolidate" 
      	     size="large" onAction="Rech_Client"  />
 
         <button id="btdelete" label="Supprimer" 
	           imageMso="TableRowsDeleteExcel" 
      	     size="large" onAction="Rech_Client"  />
      </group>
 
 
    </tab>
 
   <!-- Onglet personnalisé ADMINISTRATION -->
   <tab id="Administration" label="Administration">
 
      <!-- Groupe Personnalisé PARAMETRAGE -->
      <group id="Parametrage" label="Paramétrage">      
 
         <button id="btinit" label="Initialisation" 
	           imageMso="GroupModify" 
      	     size="large" onAction="Rech_Client"  />
      </group>
 
      <!-- Groupe Personnalisé PROTECTION -->
      <group id="Protection" label="Protection">      
   	   <button id="btSauvegarde" label="Sauvegarde" 
      	     imageMso="FileBackUpSqlDatabase"           
	           size="large" onAction="Ajout_Client" />
         <button id="btRestauration" label="Restauration" 
	           imageMso="ServerRestoreSqlDatabase" 
      	     size="large" onAction="Rech_Client"  />
      </group>
 
    </tab>
 
 
   <!-- Onglet personnalisé RECHERCHE -->
   <tab id="Recherche" label="Recherche">
 
 
      <group id="Dans_Fichier" label="Dans fichier">  
   	   <button id="btFindPDF" label="PDF" 
      	     imageMso="GroupFindAccess"           
	           size="large" onAction="Ajout_Client" />
         <button id="btDATA" label="Data" 
	           imageMso="ResultsPaneStartFindAndReplace" 
      	     size="large" onAction="Rech_Client"  />
	</group>
 
    </tab>
 
   <!-- Onglet personnalisé AIDE -->
   <tab id="Aide" label="Aide">
 
 
      <group id="Groupe6" label="Informations">  
   	   <button id="btAide" label="Aisr" 
      	     imageMso="CLViewDialogHelpID"           
	           size="large" onAction="Ajout_Client" />
 
         <button id="btPDFEDIT" label="PdfEdit" 
	           imageMso="ContextHelp" 
      	     size="large" onAction="Rech_Client"  />
 
         <button id="btChorus" label="Chorus" 
	           imageMso="TipWizardHelp" 
      	     size="large" onAction="Rech_Client"  />
 
         <button id="btApropos" label="A propos" 
	           imageMso="PasteOption" 
      	     size="large" onAction="Rech_Client"  />
	</group>
 
    </tab>
 
   <!-- Onglet personnalisé QUITTER -->
   <tab id="Quitter" label="Quitter">
 
 
      <group id="Groupe7" label="Au revoir">  
   	   <button id="btfermer" label="Fermer" 
      	     imageMso="SaveAndClose"           
	           size="large" onAction="Ajout_Client" />
	</group>
 
    </tab>
 
  </tabs>
 </ribbon>
</customUI>

dans module standard :

Code:

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
Sub Masque_Ligne(control As IRibbonControl, pressed As Boolean)
 
    Dim i As Integer
 
    blnPort = pressed
 
    If Not blnPort Then
 
        Range("s6:s38").EntireRow.Hidden = False
 
    Else
 
        For i = 6 To 36 Step 3
 
            If Range("s" & i).Value + Range("s" & i + 1) + Range("s" & i + 2) = 0 Then
 
                Range("s" & i & ":" & "s" & i + 2).EntireRow.Hidden = True
 
            End If
 
        Next i
 
    End If
 
End Sub

Code dans la feuille modele:

Code:

1
2
3
4
5
6
7
Private Sub Cb_Codique_Change()
 
    CB_Mois.Value = ""
    Range("D6:T38").ClearContents
    blnPort = False
 
End Sub

je souhaiterai décocher cette checkbox et afficher toutes les lignes de la feuille en cliquant sur cette liste déroulante.

Merci

Eric

Bonsoir,

je réussis à afficher les lignes masquées en ajoutant à ma procédure : Range("s6:s38").EntireRow.Hidden = False.
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Cb_Codique_Change() Cb_Mois.Value = "" Range("D6:T38").ClearContents Range("s6:s38").EntireRow.Hidden = False If Not objRuban Is Nothing Then objRuban.InvalidateControl ("chkMasqueDif") End Sub
mais la checkbox reste cochée.

objRuban est toujours vide et ne passe donc pas par le "then" et quand j'enlève le Not j'obtiens une

Citation:

erreur d'exécution 91 (variable objet ou variable de bloc with non définie)

sur objRuban.InvalidateControl("chkMasqueDif").

Eric

Code:

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address <> "$A$1" Then Exit Sub
 
    'Vérifie si la cellule A1 est modifiée et si la cellule contient la valeur 1.
    If Target.Address = "$A$1" And Target = 1 Then
        blnPort = False
    End If
 
    'Rafraichit le checkbox
    objRuban.InvalidateControl "chkMasqueDif"
 
End Sub
Sub rbx_onLoad(ribbon As IRibbonUI)
 
'   Variable objet pour utiliser le ruban
    Set objRuban = ribbon
    blnPort = False
 
End Sub
 
Sub Cb_Codique_Change()
 
    CB_Mois.Value = ""
    Range("D6:T38").ClearContents
 
    Range("s6:s38").EntireRow.Hidden = False
    Range("A1") = 1
 
End Sub

Eric