-. Admin, PhysiqueParmi les 4 calques restants, on identifie le calque visible puis on masque tous ces calques sauf le calque suivant If Physique.CellsC(visLayerVisible)FormulaU Then Physique.CellsC(visLayerVisible)FormulaU = "0" Physique.CellsC(visLayerPrint).FormulaU = "0" VLAN.CellsC(visLayerVisible).FormulaU = "1" VLAN.CellsC(visLayerPrint).FormulaU = "1" IP.CellsC(visLayerVisible).FormulaUFormulaU, 'Les calques sont classés arbitrairementCellsC(visLayerPrint).FormulaU = "0" Admin.CellsC(visLayerVisible).FormulaU = "0" Admin.CellsC(visLayerPrint)

V. Elseif and . Cellsc, FormulaU Then PhysiqueCellsC(visLayerVisible)FormulaU = "0" Physique.CellsC(visLayerPrint)FormulaU = "0" VLAN.CellsC(visLayerVisible)FormulaU = "0" VLAN.CellsC(visLayerPrint).FormulaU = "0" IP.CellsC(visLayerVisible).FormulaU = "1" IP.CellsC(visLayerPrint).FormulaU = "1" Admin.CellsC(visLayerVisible)FormulaU

. Admin and . Cellsc, CellsC(visLayerVisible)FormulaU Then PhysiqueCellsC(visLayerVisible)FormulaU = "0" Physique.CellsC(visLayerPrint)FormulaU = "0" VLAN.CellsC(visLayerVisible)FormulaU = "0" VLAN.CellsC(visLayerPrint).FormulaU = "0" IP.CellsC(visLayerVisible).FormulaU, CellsC(visLayerPrint).FormulaU = "0" Admin.CellsC(visLayerVisible).FormulaU = "1" Admin.CellsC(visLayerPrint).FormulaU = "1

E. Physique and . Cellsc, FormulaU = "1" Physique.CellsC(visLayerPrint)FormulaU = "1" VLAN.CellsC(visLayerVisible)FormulaU = "0" VLAN.CellsC(visLayerPrint)FormulaU = "0" IP.CellsC(visLayerVisible).FormulaU = "0" IP.CellsC(visLayerPrint).FormulaU = "0" Admin.CellsC(visLayerVisible).FormulaU = "0, Admin.CellsC

=. Undoscopeid1, . Application, and . Beginundoscope, Propriétés des 'Cette variable est utilisée temporairement dans le Select-Case pour récupérer les noms des calques Dim Calque As Visio.Layer 'On compte le nombre de calques de la page active nbCalques = Application, ActivePage.Layers.Count(

V. Set, =. Calque-case-fond, I. Case, and . Case, Physique Set Physique = Calque Case "Equipements" Set Equipements = Calque CaseAdmin Set Admin = Calque End Select Next 'Par défaut, on affiche les calques Fond, et Equipements 'Equipements est affiché dans tous les cas sauf pour la vue IP pour des raisons de lisibilité 'Parmi les 4 calques restants, on affiche le calque Physique et on masque les autres Physique.CellsC(visLayerVisible).FormulaU = "0" Physique.CellsC(visLayerPrint).FormulaU = "0" VLAN.CellsC(visLayerVisible).FormulaU = "0" VLAN.CellsC(visLayerPrint).FormulaU = "0, CellsC(visLayerPrint).FormulaU = "0" Admin.CellsC(visLayerVisible).FormulaU = "1" Admin.CellsC(visLayerPrint).FormulaU = "1

=. Physique, I. Case, and . Case, Set Equipements = Calque CaseAdmin Set Admin = Calque End Select Next 'Par défaut, on affiche les calques Fond, et Equipements 'Equipements est affiché dans tous les cas sauf pour la vue IP pour des raisons de lisibilité 'Parmi les 4 calques restants, on affiche le calque Physique et on masque les autres Physique.CellsC(visLayerVisible).FormulaU = "0" Physique.CellsC(visLayerPrint).FormulaU = "0" VLAN.CellsC(visLayerVisible).FormulaU = "0" VLAN.CellsC(visLayerPrint).FormulaU, CellsC(visLayerVisible).FormulaU = "1" IP.CellsC(visLayerPrint).FormulaU = "1" Admin.CellsC(visLayerVisible).FormulaU = "0" Admin.CellsC(visLayerPrint).FormulaU = "0" Application.EndUndoScope UndoScopeID1