Macro avec double fonction

laurent950

XLDnaute Barbatruc

• 7 Novembre 2018

• #2

Bonsoir
Oui c'est possible

VB:

Sub VisibleMasque()
'
' VisibleMasque Macro
'
    If Range(Cells(3, 1), Cells(3, 1)).EntireRow.Hidden = False Then
        Range("3:3,7:7,11:11,15:15,19:19,23:23,27:27").Select
        Selection.EntireRow.Hidden = True
    Else
        Rows("3:27").Select
        Selection.EntireRow.Hidden = False
    End If
End Sub

 

Pièces jointes

• VisibleMasque.xlsm

  18 KB · Affichages: 22

Dernière édition: 7 Novembre 2018

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Novembre 2018

• #3

Bonsoir alain18, laurent950,

Se servir du texte (bouton de formulaire) ou du Caption (bouton ActiveX) comme repère.

En fonction de ce repère l'une ou l'autre action sera exécutée.

Nombreux exemples sur le forum.

A+

 

Vote positif 0 Vote négatif

A

alain18

XLDnaute Occasionnel

• 7 Novembre 2018

• #4

Bonsoir Laurent950 , job75
Merci de me confirmer que cela est possible, mais je ne vois pas comment lier les 2 macros sur le même bouton.
Je mets un exemple en copie qui ferme seulement mais pour la suite, je ne sais pas faire.
Merci

 

Pièces jointes

• Fermer-Ouvrir.xls

  32.5 KB · Affichages: 25

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Novembre 2018

• #5

Re,

Affecter cette macro au bouton :

Code:

Sub Bouton_Click()
With ActiveSheet.DrawingObjects(Application.Caller)
    Rows("5:11").Hidden = .Text = "Fermer"
    .Text = IIf(.Text = "Fermer", "Ouvrir", "Fermer")
End With
End Sub

A+

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Barbatruc

• 7 Novembre 2018

• #6

alain18 à dit:

Bonsoir Laurent950 , job75
Merci de me confirmer que cela est possible, mais je ne vois pas comment lier les 2 macros sur le même bouton.
Je mets un exemple en copie qui ferme seulement mais pour la suite, je ne sais pas faire.
Merci

Cliquez pour agrandir...

VB:

Sub VisibleMasque()
'
' VisibleMasque Macro
'
    If Range(Cells(5, 1), Cells(5, 1)).EntireRow.Hidden = False Then
        'Sub fermer()
        'Range("3:3,7:7,11:11,15:15,19:19,23:23,27:27").Select
        Rows("5:11").Select
        Selection.EntireRow.Hidden = True
        'Range("B12").Select
    Else
        ' Sub ouvrir()
        'Rows("3:27").Select
        Rows("4:12").Select
        Selection.EntireRow.Hidden = False
        'Range("B5").Select
    End If
End Sub

 

Vote positif 0 Vote négatif

A

alain18

XLDnaute Occasionnel

• 7 Novembre 2018

• #7

Merci à tous les deux pour votre réactivité. Cela me semble correspondre à mon besoin.
Je referai des tests demain.
Bonne soirée et bonne nuit.
Alain18

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 8 Novembre 2018

• #8

Bonjour,

au plus simple :

VB:

Rows("5:11").Hidden = Not Rows(5).Hidden

eric

 

Vote positif 0 Vote négatif

A

alain18

XLDnaute Occasionnel

• 8 Novembre 2018

• #9

Bonjour Eric
Merci pour cette solution vraiment simple.... pour vous bien sûr !
Si je n'abuse pas trop de votre temps, pourriez vous en quelques mots m'expliquer le fonctionnement de ce code.
Cordialement.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 8 Novembre 2018

• #10

les lignes 5:11 (Rows("5:11").Hidden) prennent l'état inverse de la ligne 5 ( = Not Rows(5).Hidden).
Si elle est visible, elles se masquent, et inversement.

C'est l'équivalent de la proposition de job75, sauf que lui modifie le libellé du bouton en plus.
eric

 

Vote positif 0 Vote négatif

A

alain18

XLDnaute Occasionnel

• 8 Novembre 2018

• #11

Ok, merci Eric.
Bonne journée.

 

Vote positif 0 Vote négatif