Probleme mode plan

Fred0o

XLDnaute Barbatruc

• 5 Août 2012

• #2

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+

 

Vote positif 0 Vote négatif

S

stephanie31

Guest

• 5 Août 2012

• #3

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

 

Pièces jointes

• Suivi 2012 forum.xls

  227.5 KB · Affichages: 47

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 5 Août 2012

• #4

Re : Probleme mode plan

Bonjour


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

 

Vote positif 0 Vote négatif

S

stephanie31

Guest

• 5 Août 2012

• #5

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Août 2012

• #6

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 :

VB:

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

 

Pièces jointes

• JC Suivi 2012 Forum XLD.xls

  155 KB · Affichages: 41

Vote positif 0 Vote négatif

S

stephanie31

Guest

• 5 Août 2012

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Août 2012

• #8

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

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 5 Août 2012

• #9

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.

 

Vote positif 0 Vote négatif

S

stephanie31

Guest

• 5 Août 2012

• #10

Re : Probleme mode plan

D'accord, c'est clair.

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

Bonne journée...

 

Vote positif 0 Vote négatif