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 XML : 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
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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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