Réduire deux macros en une seule

[Chri8Ed]

Bonjour le Forum

J’ai deux macros, une pour ouvrir des cellules groupées et l’autre pour les fermer.

Je souhaiterais en avoir qu’une seule et qui donc suivant l’état actuel soit :
Ouvrirait les cellules si elles sont fermées
Fermerait les cellules si elles sont ouvertes.

Merci d’avance si quelqu'un peut m’aider.

Sub Colonne_Ouverture()
ActiveSheet.Outline.ShowLevels ColumnLevels:=2
End Sub
Sub Colonne_Fermeture()
ActiveSheet.Outline.ShowLevels ColumnLevels:=1
End Sub

 

[JJ1]

Re : Réduire deux macros en une seule

Bonjour,
Peut-être utiliser la fonction CALL toujours dans le même sens Ouverture-Fermeture ?
A+

 

[Zdz16]

Re : Réduire deux macros en une seule

Bonjour,

Oui, tu peux les merger de la façon suivante par exemple:

Sub ActiveEtat_Colonne(OnOffOpen As boulean)
If OnOffOpen Then
ActiveSheet.Outline.ShowLevels ColumnLevels:=2
Else
ActiveSheet.Outline.ShowLevels ColumnLevels:=1
End If
End Sub

Dans ton appel à la routine, tu passe la valeur True pour ovrir et False pour fermer.

Cordialement

 

[Chri8Ed]

Re : Réduire deux macros en une seule

Bonjour JJ1

Avec la fonction Call ??
Il faudrait m'en dire un peu plus si possible
Merci d'avance

A+

 

[Chri8Ed]

Re : Réduire deux macros en une seule

Bonjour Zdz16

Comment je dois utiliser ta macro
Car je dois l'intégrer à la mienne ?
Je ne vois pas bien ??

Tel quelle ce n'est pas une macro opérationnelle ?

Merci pour ton aide

A+

 

[Zdz16]

Re : Réduire deux macros en une seule

En faisant un appel dans ton module, avec une négation du statut des cellules.

Par exemple :
Au départ, à l'ouverture du fichier tu initialise une variable booléenne (Exemple StsCel) à True et l'appel lors de l’événement se fera ainsi

Call Sub ActiveEtat_Colonne( NOT StsCel)

Ainsi tu aura la situation contraire de celle qui est active

@+

 

[Chri8Ed]

Re : Réduire deux macros en une seule

Merci pour ton aide

Mais je crains que tes explications soient au dessus de mes connaissances

Je comprends ton raisonnement
Mais de là à la mettre en place ....

A+

 

[Si...]

Re : Réduire deux macros en une seule

salut

à tester dans le Module de la Feuille

Option Explicit
Dim n As Byte 'ici !!!
Sub o_f()
  n = IIf(n = 1, 2, 1)
  Me.Outline.ShowLevels ColumnLevels:=n
End Sub

 

[Chri8Ed]

Re : Réduire deux macros en une seule

Bonsoir SI

Merci pour ton aide
Je me suis empressé de tester
Mais j'ai un message d'erreur :

Erreur de compiplation
Utilisation incorrecte du mot clé Me

A+

 

[Si...]

Re : Réduire deux macros en une seule

salut

à tester dans le Module de la Feuille

Si... tu veux agir sur plusieurs feuilles, place la macro dans un Module standard (à insérer) en remplaçant Me par ActiveSheet.

 

[Chri8Ed]

Re : Réduire deux macros en une seule

Bonsoir SI

Merci pour ton aide
Comme cela, çà fonctionne parfaitement

Je ne souhaitais pas faire fonctionner cette macro sur plusieurs feuilles.
En visitant l’aide sur l’instruction « Me. »
J’ai vu qu’il ne fallait pas l’utiliser dans une macro standard.
Mais je ne connais pas autre chose que les macros standards ???

A+