Afficher / Masquer colonnes avec un bouton

Bonjour les amis du forum,

C'est avec une grande satisfaction que je viens d'apprendre que l'on pouvait le faire avec un seul bouton. Je faisais comme beaucoup d'autre avec 2 boutons.

C'est bien un bouton bascule?

Si tel est le cas (dans le même exemple) je n'arrive pas à affecter la macro.

Merci pour une éventuelle aide.

Bonjour al87,

Effectivement il s'agît bien d'un bouton bascule,

A tester

Private Sub ToggleButton1_Click()
With ToggleButton1
If .Value = True Then
'nom de la macro a lancer
ElseIf .Value = False Then
Exit Sub
End If
End With
End Sub

Ça ne veut pas!

Je fait bien un bouton à bascule mais impossible d'affecter la macro!

Je suis sous excel 2003

Mince alors

Peut tu mettre un exemple de fichier sans données "privées" pour voir

Fred35 a écrit :

Peut tu mettre un exemple de fichier sans données "privées" pour voir

J'ai tout simplement repris celui-ci du forum

Mais si je fais un bouton moi je ne peux pas affecter la macro.

Ça m'intéresse beaucoup de savoir le faire pour des programmes à adapter.

Le fonctionnement est le suivant :

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value Then
        'Ta macro pour un clic
      Else
        'ta macro pour un second clic
    End If
End Sub

Moi impossible à affecter même sur un classeur tout simple.

Si quelqu'un veut faire un classeur tout simple avec un bouton (avec le cheminement) vous ferez le plus heureux des hommes!

Mince. Et pourtant j'ai l'habitude des macros. Là comprend pas.

en fait, tout dépend de la macro que tu souhaite lancer

De ce type ça ne fonctionnera pas, mais je suis pas du tout un expert en macro, je débute tout juste...

    Private Sub ToggleButton1_Click()
        If ToggleButton1.Value Then
            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
            End Sub()
         Else
            Exit Sub
       End If
    End Sub

Classeur tout simple avec macro exemple du forum.

Je ne sais pas comment tu as créé ton bouton mais en le remplaçant, ça fonctionne chez moi

Fred35 a écrit :

Je ne sais pas comment tu as créé ton bouton mais en le remplaçant, ça fonctionne chez moi

J'ai cliqué sur bouton bascule => déssiné le bouton => Clic droit affecté une macro et là "impossible de trouver la macro 'toto.xls! ToggleButon1_QuandClic'.

Faut-il être en mode création ou pas?

J'ai enlevé la formule dans la barre des formules =INCORPORER("Forms.ToggleButton.1";"")

P....N!!!

Autre solution par MFC, mais pour les listes de validation, je les ai mise jusqu'en ligne 600, je ne sais pas les générer automatiquement.

La MFC est basé sur la première colonne, si tu rempli une cellule vide dans la colonne A, le quadrillage et la coloration des colonnes à valider s'effectue

Comment puis je faire pour passer de 600 à 1500 lignes??? et comment modifier la couleur des celulle??

Ci joint le fichier

Merci

Bon ben j'en ai un peu marre. C'est certainement tout C.N!

Mais pour l'instant!

oui al87, il faut être en mode création.

francis77777 a écrit :

Comment puis je faire pour passer de 600 à 1500 lignes??? et comment modifier la couleur des celulle??

tu sélectionne 1 ligne (n'importe quel ligne entre la 8 et la 600ème), tu fais copier

et sélectionne les lignes de 601 à 1500 et tu fais coller.

Probablement meilleur solution par vba, mais là.... sans moi pour l'instant...

[quote="Fred35"]oui al87, il faut être en mode création.

Et après STP

D'avance merci

Merci

Probleme résolu..

@+ et merci

Après tu crée ton bouton a bascule depuis la boite à outils de contrôle.

Tu cliques sur visualiser le code (clique droit sur le bouton) et tu mets cet exemple de code

 If ToggleButton1.Value Then
            Columns("H:S").Hidden = True
         Else
Columns("H:S").Hidden = False
       End If

Merci les "amis" du forum

C'est parfait. J'en apprend des choses sur ce forum. Je ne connaissais pas.

Bon dimanche à tous et encore merci

Bonjour à vous tous,

Hier, sur le forum Excel, pas mal de personnes m’on aidés à créer les scripts que je souhaitais pour mon fichier. Honnêtement tout fonctionne à merveille.

Je remercie encore une fois toute l'équipe du forum.

Le seul bug que je rencontre (que je n’avais pas pris en compte) est que…..

Dans le fichier joint, j’ai un exemple de 5 lignes, avec un bouton ‘’Afficher / Masquer les colonnes’’

• Si je fais un copier de la 1° ligne (A7 à F7), pour la coller à la 6° ligne, les bordures s’affichent sur toute la ligne. Cela me va très bien.

• Si je supprime le contenu de la 6° ligne, les bordures sont supprimées aussi. Cela me va très bien.

• Par contre, si je fais un copier d’une liste d’un autre classeur, ou onglet (Avec déjà des bordures) pour coller dans mon fichier, cela fonctionne aussi mais quand je supprime le contenu, les contours des bordures de cellules reste….

Et mon souhait serait que ces bordures soient supprimées si ces cellules sont vides.

Merci de m’aider

Francis

Bonjour, c'est tout à fait normal car un copier/coller "standard" prend en charge les valeurs, les formats, etc...

Il est préférable de faire un copier / collage spécial / valeur, qui lui ne copiera que les valeurs contenu dans les cellules.