Bouton à bascule- toggle

Version imprimable

27/12/2019, 16h36
pokypok

Bouton à bascule- toggle

Hello je parcoure les discussions sur les boutons toggle pour faire la macro afficher/masquer.
J'ai beau regarder je ne trouve pas le bouton bascule et pas de controles activeX...
Dans personaliser le ruban j'ai trouvé le bouton à bascule mais il ne veut pas s'insérer ...

Une idée quelqu'un svp ?
27/12/2019, 16h46
Jean-Philippe André

Bonjour,

s'il est bien question du ruban :

https://silkyroad.developpez.com/excel/ruban/#LIII-F-9

s'il s'agit d'un bouton bascule dans un userform :

https://www.developpez.net/forums/d1...tton-userform/
27/12/2019, 17h08
pokypok

Merci Jean Philippe ... mais là j'en perds mon latin.. J'aurai dû me présenter..

Je suis un total débutant qui vient de se lancer contre ce joli mur qu'est le vba.

Après quelques jours de bataille acharnée et grâce au forum je suis arrivé à mes fins avec un tri de fichier aussi long qu'un jours sans pain !

Maintenant vient la mise en forme et j'ai besoin de masquer afficher des lignes avec un seul bouton

Après maintes recherches tous les codes que je trouvent dans multiples forum j'ai beau les insérer cela ne fonctionne pas et surtout je n'arrive pas à avoir ce togglebutton...
ALors oui à vos yeux je suis certainement irrécupérable mais là je ne sais pas où le prendre ce bouton mis à part le seul et unique bouton que je trouve dans l'onglet développeur.

J'ai lu les deux liens que tu m'as mis mais j'avoue ne pas savoir comment les utiliser avec mon cas tout simple un tableau de 10 lignes plus en tete je veux masquer Rows(4:14) et les afficher avec le même bouton.
27/12/2019, 17h14
Jean-Philippe André

Aucun soucis (les cas déséspérés ne sont pas présents sur le forum ;) )

Ici on a 2 étapes :
a / l'interface dans le ruban
b / le code VBA qui s'exécute lors du clic dans ton ruban

Peux-tu nous indiquer si l'un des deux est deja effectué ?
27/12/2019, 17h17
pokypok

C'est simple aucun car je ne sais pas où les inscrire...

Une petite question avant de commencer ... sous les anciennes versions d'excel il y avait les controles activeX dans le XL-365 ils ne sont plus présents ? 8O

Et juste comme ça ce que je veux faire c'est sur un bouton (qui apres va cahnger de couleur ) à coté de la ligne d en tete du tableau et non pas dans le ruban
27/12/2019, 17h21
Jean-Philippe André

D'accord,

Je comprends l'idée générale, mais que se passe-t-il lorsque tu cliques sur le bouton en question ? mis à part le changement de couleur dudit bouton ?

N'est-il pas plus simple de faire un clic dans une cellule (ce qui se fait sans bouton, et avec un bout de code VBA pas trop élaboré)
27/12/2019, 17h29
pokypok

Citation:

Envoyé par Jean-Philippe André

D'accord,

Je comprends l'idée générale, mais que se passe-t-il lorsque tu cliques sur le bouton en question ? mis à part le changement de couleur dudit bouton ?

N'est-il pas plus simple de faire un clic dans une cellule (ce qui se fait sans bouton, et avec un bout de code VBA pas trop élaboré)

Non car j'ai besoin de ce bouton à cet endroit précis.

Une grande liste d'article est rangée sous plusieurs catégories (tableaux) et pour éviter de tout avoir je cache les articles de chaque catégories.
Les utilisateurs auront ce petit bouton à coté de chaque ligne d entete du tableau pour déplier/grouper les lignes du tableau.
Fonction parfaitement réalisée par "Données/Grouper/Dissocier" mais j'ai besoin du dit bouton beaucoup plus facile d'accès pour des personnes extérieures qui n'ont pas forcément envie de réfléchir

Pièce jointe 526922 Pièce jointe 526925
27/12/2019, 17h38
Jean-Philippe André

OK, mais a ma connaissance tu ne peux pas ajouter un bouton en dehors de la znoe des cellules (donc ca sera a minima dans la colonne A)...
27/12/2019, 18h41
Arkham46

Bonjour,

Citation:

Envoyé par pokypok

Une petite question avant de commencer ... sous les anciennes versions d'excel il y avait les controles activeX dans le XL-365 ils ne sont plus présents ? 8O

L'onglet développeur est-il affiché ?
Si non, le cocher dans la personnalisation du ruban pour avoir le menu d'insertion des contrôles.
27/12/2019, 19h01
ARTURO83

Bonsoir ,

cette solution ne conviendrait-elle pas? le groupement par plan, pas besoin de bouton.

Pièce jointe 526956

Cdlt

Bonsoir je reviens juste de mes occupations
Alors le +- du dépliement est super sauf que j ai besoin d une macro je mettrai comme je te disais auparavant le bouton de macro juste à cote de l entete.
Pourquoi une macro me demanderas tu car ces tableaux seront évolutifs et du coup en mettant une variable LastRow dans Rows(4:LastRow) la macro masquer afficher suivra en permanence le tableau

j'ai trouvé celà:
Code:

1 2 3 4 5 6 7 Sub cmdCacherAfficher_Click() Dim s$: s = " colonnes I:0" With Range("I1:O1").EntireColumn .Hidden = Not .Hidden cmdCacherAfficher.Caption = IIf(.Hidden, "Afficher" & s, "Cacher" & s) End With End Sub
mais le bouton est un bouton normal et la dernière ligne me marque une erreur

Alors en glanant par ici et là et grâce aux personnes qui m'ont répondus j'ai trouvé ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Cacher_Afficher_T_1()
 
Dim NbLig As Integer
 
Set f0 = Sheets("import")       'raccourcis for appreciable merci Arturo pour eviter d'ecrire a chaque fois sheet("")
Set fd = Sheets("data")
Set f1 = Sheets("cablage_secteur")
Set f2 = Sheets("cablage_module")
Set f3 = Sheets("cablage_diff")
Set f4 = Sheets("pieds_conditionnement")
 
NbLig = fd.Cells(11, 6).Value - 1 'variable qui recupere sur la feuille "data" le nombre de lignes a masquer du tableau
 
ActiveSheet.Unprotect                   'la je deprotege la feuille sinon les objets boutons zones de textes ne suivent pas le masquage des lignes
        With Range(Rows(9), Rows(9 + NbLig)).EntireRow
        .Hidden = Not .Hidden
        f1.Shapes("x1").Fill.ForeColor.RGB = IIf(.Hidden, vbGreen, vbBlack)  'changement de couleur de mes deux formes + et -
        f1.Shapes("m1").Fill.ForeColor.RGB = IIf(.Hidden, vbBlack, vbRed)
        End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  'reprotection de la feuille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Je ne sais pas afficher l'une ou l'autre forme ou un texte ou un autre du coup j'ai triché sur un fond noir je fais varier les couleurs de mes deux objets en rouge/vert ou noir comme ça il s'efface ...

EN tout cas merci au forum vous etes topissimes