Probleme mode plan

[stephanie31]

Bonjour,

Voici le problème qui me prend la tête depuis un bon moment.
Dans un fichier excel je fais une macro qui fera apparaitre le tableau en forme plan sur 2 niveaux (masquage de quelques colonnes inutiles pour la lecture).
Pour déterminer la syntaxe de cette macro je suis passé par l'enregistreur de macro qui va bien. Nickel j'ai bien mais 2 niveaux et quand j'appuie sur les + ou - ça fonctionne.
Or quand je fais exécuter cette macro en automatique, je me retrouve non pas avec 2 niveaux mais 3 niveaux !!
J'ai beau chercher je n'y comprends rien.

Voici la macro

Cells.Select
Selection.ClearOutline
Columns("B:B").Select
Selection.Columns.Group
Columns("G:H").Select
Selection.Columns.Group
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1


merci

 

[Fred0o]

Re : Probleme mode plan

Bonjour stephanie31,

Je viens de tester ton code, il fonctionne bien et me fait un mode plan à 2 niveaux. Cependant, ce n'est qu'une partie de ton code et on n'a pas le fichier d'origine. Ceci pour dire que le problème se trouve peut-être ailleurs.

Peus-tu nou joindre ton fichier original en enlevant les données confodentielles et le code complet ?

A+

 

[stephanie31]

Re : Probleme mode plan

Bonjour Fredoo,

J'ai joins mon fichier très expurgé de toutes données (désolé mais c'est pour mon boulot).
Il n'empêche que cette version simplifiée, chez moi, crée toujours 3 niveaux de plan en appuyant sur le bouton "Vue simplifiée".

merci pour ton aide

 

[chris]

Re : Probleme mode plan

Bonjour


Si tu enlèves les cellules fusionnées, cela marche...

 

[stephanie31]

Re : Probleme mode plan

Bonjour Chris,

Merci, effectivement ça marche.
Je ne comprends pas pour autant pourquoi en le faisant pas à pas (grouper colonne B, puis grouper les colonne GH) à la main, alors qu'il y a la cellule fusionnée en ligne 227, ça fait 2 niveaux !!!

C'est quand même pas logique

 

[JCGL]

Re : Probleme mode plan

Bonjour à tous,
Salut Chris,
Salut Fred,

Fonctionne aussi avec des cellules fusionnées (mais non recommandées sur XL...)

Un essai avec :

Sub VueSimple()
    ActiveWindow.DisplayOutline = False
    Application.ScreenUpdating = 0
    Cells.ClearOutline
    Columns("B:B").Columns.Group
    Columns("G:H").Columns.Group
    Columns("K:K").Columns.Group
    Columns("M:M").Columns.Group
    Columns("O:R").Columns.Group
    Columns("T:U").Columns.Group
    Columns("X:AA").Columns.Group
    Columns("AG:AH").Columns.Group
    Columns("AL:AX").Columns.Group
    Columns("AZ:AZ").Columns.Group
    Columns("BB:CE").Columns.Group
    ActiveSheet.Outline.ShowLevels ColumnLevels:=1
    Application.ScreenUpdating = 1
    'ActiveWindow.DisplayOutline = True
End Sub


Sub VueElargie()
    ActiveWindow.DisplayOutline = False
    ActiveSheet.Outline.ShowLevels ColumnLevels:=2
    'ActiveWindow.DisplayOutline = True
End Sub

Bises à Chris
A + à tous

 

[stephanie31]

Re : Probleme mode plan

Bonjour JCGL,

Effectivement ça marche ...................... mais pourquoi ?
ActiveWindow.DisplayOutline = False
ça ne fait rien d'autre que faire apparaitre ou pas les niveaux (qui effectivement sont 2)
Application.ScreenUpdating = 0
ça, à ma connaisance, permet de ne pas voir les "affichages de phase" de la macro

Y a til donc une explication compréhensible ?

merci

 

[JCGL]

Re : Probleme mode plan

Bonjour à tous,

Ce n'est qu'un "effet de style"... pour les symboles de groupements (l'option est re-cochée à la fermeture) .
C'est tout à fait cela pour le ScreenUpDating.

A + à tous

 

[chris]

Re : Probleme mode plan

Bonjour
Bise à JCGL

La différence de fonctionnement vient du select : quand on sélectionne des colonnes contenant des cellules fusionnées, cela sélectionne toutes les colonnes des cellules fusionnées et élargit donc la sélection et comme tu groupais la sélection...

On recommande de ne pas fusionner les cellules et on recommande aussi d'éviter les Select dans le VBA : une belle et simple illustration du pourquoi de ces recommandations.

 

[stephanie31]

Re : Probleme mode plan

D'accord, c'est clair.

Merci JCGL et merci à tous ceux qui m'ont aidée

Bonne journée...