Masquer colonne via CheckBox (dans ruban)Résolu

Question

Bonjour à tous,

J'avais bien dis que je reviendrais pour de nouvelles aventures ;-)

Donc, toujours dans mon fichier "Bilan", j'ai créer un ruban perso, il fonctionne, seulement, j'ai placé dans ce ruban 3 cases à cocher, ayant chacune pour fonction de masquer une colonne :

CheckBox1 = colonne E ; CheckBox2 = Colonne F; CheckBox3 = Colonne G

Voici le code de la CheckBox1 :

'Callback for CheckBox1 onActionSub hzonemasq(control As IRibbonControl, pressed As Boolean)    If (control.ID = "msqcol1") = True Then        Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = True    Else        If (control.ID = "msqcol1") = False Then        Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = False    End If    End If            'MsgBox control.ID & vbCrLf & pressedEnd Sub

Lorsque je clique sur la CheckBox1, la colonne E se masque bien, mais lorsque je décoche, rien ne se passe, elle ne se ré-affiche pas, ou se trouve mon erreur ?

Merci à tous pour votre aide

Bonne journée et bon we,

Christian
 
--

banana32 · Answer

Salut,

Je n'ai pas les moyens de tester mais la logique voudrait qu'on écrive :

Sub hzonemasq(control As IRibbonControl, pressed As Boolean)    If control.ID = "msqcol1" Then        Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = pressed    End IfEnd Sub

ou bien :

Sub hzonemasq(control As IRibbonControl, pressed As Boolean)    If control.ID = "msqcol1" Then        Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = Not pressed    End IfEnd Sub

jordane45 · Answer

Bonjour,

Déjà.. je pense que tu as un souci dans tes Conditions ...
If qqchose = machin = truc ???


Ensuite... pour que tu essaies de comprendre ce qui pourrait bloquer dans ton code... n'hésites pas à y ajouter des DEBUG.PRINT pour savoir si tu rentres bien dans tes différents IF..

Et enfin... Je pense que pour savoir si ta checkbox est cochée...il faut regarder la VALUE de ton bouton...

Bref, le code devrait, je pense, ressembler plus à ça :

Sub hzonemasq(control As IRibbonControl, pressed As Boolean)

'On regarde ce que vaut control.ID ....
SELECT CASE control.ID
 CASE "msqcol1"
     debug.print "bouton msqcol1 => " & control.value 
     If control.value = True Then
        debug.print(" On Masque la colonne E")
       Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = True
     Else
       debug.print(" On Affiche la colonne E")
       Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = False
     End If

CASE "msqcol2"
     debug.print "bouton msqcol1 => " & control.value 
     If control.value = True Then
        debug.print(" On Masque la colonne F")
       Sheets("Bilan").Columns("F:F").EntireColumn.Hidden = True
     Else
       debug.print(" On Affiche la colonne F")
       Sheets("Bilan").Columns("F:F").EntireColumn.Hidden = False
     End If

CASE else
    debug.print "Autre bouton"

END SELECT
     
    'MsgBox control.ID & vbCrLf & pressed
End Sub

 
Avant de poser une question, merci de lire la charte du site.
Cordialement, Jordane

cco86260 · Answer

Salut Jordane45,

Merci pour ta réponse, je vais tester ça de suite, (j'ai supprimer une bêtise que j'ai écrit...rhooo)

En tous les cas je test et reviens pour te tenir au courant, merci pour l'astuce... je n'ai pas encore toutes les ficelles, mais j'y travail...lol


Merci et bon we

Christian 
 
--

cco86260 · Answer

Je viens de tester et il me dit méthode ou propriété non gerer par cet objet :

Voici la ligne pointée : Debug.Print "bouton msqcol1 => " & control.Value 


Donc je cherche...

Merci 
--

jordane45 · Answer

Je viens de lire de la doc sur l'utilisation des checkbox dans le RUBAN.
Comme te l'a conseillé Banana (que je salue au passage).. il faut utiliser aussi le PRESSED pour connaitre la valeur du bouton.

http://silkyroad.developpez.com/excel/callbacks/

L'argument pressed.
Exemple : Sub ____OnAction(control As IRibbonControl, pressed As Boolean)
Cet argument renvoie la valeur Vrai si le contrôle est coché (pour les checkBox) ou si la touche est enfoncée (pour les toggleButton). La valeur Faux est renvoyée dans le cas contraire.

Donc en en mixant mon code et celui de Banana ça donnerait quelque chose du genre :

Sub hzonemasq(control As IRibbonControl, pressed As Boolean)

debug.print "Bouton : " & control.ID
debug.print "pressed = " & pressed

'On regarde ce que vaut control.ID ....
SELECT CASE control.ID
 CASE "msqcol1"
     debug.print "bouton msqcol1"
      Sheets("Bilan").Columns("E:E").EntireColumn.Hidden = pressed

CASE "msqcol2"
     debug.print "bouton msqcol2"
     Sheets("Bilan").Columns("F:F").EntireColumn.Hidden = pressed

CASE else
    debug.print "Autre bouton"

END SELECT

End Sub

cco86260 · Answer

Extra ... tout fonctionne parfaitement, je prend note de cette nouvelle leçon :), un jour je serais bon et c'est moi qui aiderais les autres (soyez pas pressé quand même y a encore du travail), Je te remercie, je vais regarder le lien de banana, avec assistant ruban, d'ailleur, fonctionne aussi sous 2013 avec un petit bug... comment lui signaler ?

En tout cas merci et bon we, profites en bien...

Christian 
 
--

ucfoutu · Answer

Bonjour,
essayer ceci :
Private Sub CheckBox1_Click()  toto CheckBox1End SubPrivate Sub CheckBox2_Click()  toto CheckBox2End SubPrivate Sub CheckBox3_Click()  toto CheckBox3End SubPrivate Sub toto(c As Object)  Dim co As Range  Set co = Columns(Val(Right(c.Name, 1) + 4))  If c.Value Then    co.Hidden = True  Else    co.Hidden = False  End IfEnd Sub
Nota : on aurait pu créer un groupe de contrôles, mais pas vraiment utile pour seulement 3 checkboxes

Masquer colonne via CheckBox (dans ruban)

7 réponses

Votre réponse

Discussions similaires