Commandbox en variable dans Sub

[dureiken]

Bonjour, j'ai crée cette fonction afin d'afficher, cacher des colonnes. Elle marche excepté l'entrée de la donnée "Bouton".

Sub CacherAfficher(Debut As Variant, Fin As Variant, Bouton As Variant)
    
    Columns(letcol(NumColonne(Debut, "En_Cours")) & ":" & letcol(NumColonne(Fin, "En_Cours"))).Select 'Rentrer ici les colonnes du tableau si elles sont différentes
    
    If Selection.EntireColumn.Hidden = False Then 'Test pour savoir si les colonnes sont cachées ou non
    Selection.EntireColumn.Hidden = True 'Si elles sont affichées on les cache
    
    With Sheets("En_Cours")
        .Bouton.BackColor = &HFF& 'Bouton en couleur rouge
        .Bouton.Value = False 'On desactive le bouton
    End With
    
    
    ElseIf Selection.EntireColumn.Hidden = True Then 'Test pour savoir si les colonnes sont cachées ou non
    Selection.EntireColumn.Hidden = False 'Si elles sont cachées on les affiche
    
    With Sheets("En_Cours")
        .Bouton.BackColor = &HFF00& 'Bouton en couleur verte
        .Bouton.Value = True 'On active le bouton
    End With
    End If
    
    Cells(1, 1).Select
End Sub

Par exemple un de mes Checkbox s'appelle Trame, j'appelle donc la commande avec :

Private Sub Trame_Click()

Call CacherAfficher([Indexation], [SU], Trame)
    
End Sub

Mais il plante car il n'arrive pas a trouver le Checkbox Bouton au lieu de chercher le Checkbox Trame, logique. J'aimerai pouvoir rentrer le Checkbox comme une variable de ma fonction, car j'en ai 6 différents et je voudrai n'écrire la fonction qu'une fois.

Une idée ? Merci

 

[skoobi]

Re : Commandbox en variable dans Sub

Bonjour dureiken,

L'argument bouton est mal déclaré.
Essaie ceci:

Sub CacherAfficher(Debut As Variant, Fin As Variant, Bouton As [B][COLOR=royalblue]MSForms.CheckBox[/COLOR][/B])

 

[job75]

Re : Commandbox en variable dans Sub

Bonjour dureiken, skoobi

Ou aussi peut-être :

Sub CacherAfficher(Debut As Variant, Fin As Variant, Bouton As [COLOR="Red"]Object[/COLOR])

A+

 

[dureiken]

Re : Commandbox en variable dans Sub

Aucun des 2 ne marche, j'ai l'impression qu'il me donne la valeur de la combobox puisque quand je passe la souris sur "Bouton" en mode debogage il me met vrai ou faux.

 

[dureiken]

Re : Commandbox en variable dans Sub

petit up ?

 

[job75]

Re : Commandbox en variable dans Sub

Bonsoir dureiken,

Vous avez dit :

Bonjour, j'ai crée cette fonction afin d'afficher, cacher des colonnes. Elle marche excepté l'entrée de la donnée "Bouton".

Si votre macro ne marche pas, c'est qu'il y a autre chose, sans doute ici :

Columns(letcol(NumColonne(Debut, "En_Cours")) & ":" & letcol(NumColonne(Fin, "En_Cours"))).Select 'Rentrer ici les colonnes du tableau si elles sont différentes

Sans savoir ce que sont letcol NumColonne, et surtout sans fichier, que voulez-vous qu'on fasse, dites-moi ?

A+

 

[job75]

Re : Commandbox en variable dans Sub

Re,

Mais bon Dieu c'est bien sûr !

Au lieu de :

With Sheets("En_Cours")
        .Bouton.BackColor = &HFF& 'Bouton en couleur rouge
        .Bouton.Value = False 'On desactive le bouton
End With

écrivez seulement (pas de point) :

Bouton.BackColor = &HFF& 'Bouton en couleur rouge
Bouton.Value = False 'On desactive le bouton

Pareil plus bas.

Et pour l'appel de la Sub, voyez peut-être (je n'en sais rien) :

Call CacherAfficher([Indexation], [SU], [COLOR="Red"]Sheets("En_cours").[/COLOR]Trame)

A+

 

[dureiken]

Re : Commandbox en variable dans Sub

Super merci ça marche impec