Discussion :

[Fab-ien]

Bonjour,

Je voudrais un peut d'aide sur un fichier, je suis débutant la macros. J'ai donc ma liste d'onglet je veut y appliquer uniquement sur mes étage donc de "R-3" à "R+10" qui maintenant sont visible mais je voudrais qui sois cacher a l'ouverture.

J'ai donc ajouté un module ou j'ai insérer (pour commencer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Afficher_click()
With Sheets(R + 3)
.Visible = True
.Activate
End With
End Sub
Private Sub Afficher_click()
With Sheets(R + 2)
.Visible = True
.Activate
End With
End Sub
Private Sub Afficher_click()
With Sheets(R + 4)
.Visible = True
.Activate
End With
End Sub

J'arrive pas insérer ma listbox sur ma feuille d’accueil

Et mon autre problème c'est que chaque étage calcul une somme par rapport aux données rentrée dans la base "étage" ou "sous-sol" -> "Total déperdition du niveaux ".Et cette somme total des étages est calculé dans "flux thermique".
Ce que je voudrais c'est que tant qu'un onglet n'est pas sélectionné dans ma list box le calcul "Total déperditions niveau" soit pas calculer ou même la feuille complète soit pas actif.

J’espère que vous pourrez comprendre ma demande et m'aidez.

Cordialement,

[Philippe Tulliez]

Bonjour,

Petit exemple qui masque les feuilles sélectionnées dans une liste (Contrôle ActiveX ListBox)

Dans l'illustration ci-dessous, nous pouvons voir à gauche une liste des feuilles que l'on souhaite masquer ou afficher et au milieu (hauteur des colonnes C:E le contrôle ActiveX ListBox

La liste des feuilles (A1:A5) est un tableau structuré
Il y a lieu de créer une plage nommée lstSheet qui fait référence aux données (sans le titre) du tableau structuré soit A2:A5 dans l'exemple ci-dessous
Le contrôle ActiveX se nomme ListBox1
Propriétés du ListBox à modifier

ListFillRange = lstSheet
MultiSelect = 1 (constante fmMultiSelectMulti)
Non obligatoire LifeStyle = 1 (constante fmListStyleOption)

Procédures


Module de la feuille
Dans le module de la feuille nommée Accueil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ListBox1_Change()
   ' Invoque la procédure qui va afficher ou masquer les feuilles sélectionnées
   ListSheetSelectedToVisible Me.ListBox1
End Sub

Module standard
Les deux procédures ci-dessous à placer dans un module standard du classeur où se trouve la feuille Accueil

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ListSheetSelectedToVisible(oList As MSForms.ListBox, Optional oWkb As Workbook) As Variant
  ' Procédure qui affiche ou masque les feuilles sélectionnées ou pas dans un ListBox
  ' Arguments
  '   oList  Object Control UserForm ou ActiveX
  '   [oWkb] Classeur où se trouve les feuilles dont les noms ont été sélectionnés dans la liste
  Dim Elem As Integer
  If oWkb Is Nothing Then Set oWkb = ActiveWorkbook
  '
  With oList
    For Elem = 0 To .ListCount - 1
        oWkb.Worksheets(.List(Elem)).Visible = Not .Selected(Elem)
    Next
  End With
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function GetListBoxSelected(oList As MSForms.ListBox, Optional oWkb As Workbook) As Variant
  ' Procédure qui renvoie la liste des éléments sélectionnés dans le contrôle ListBox
  ' Arguments
  '   oList   ' ListBox
  '   [oWkb]  ' Workbook (ActiveWorkbook si absent)
  ' Déclaration
  Dim lst()
  Dim Elem As Integer
  Dim Count As Integer
  '
  With oList
    For Elem = 0 To .ListCount - 1
      If .Selected(Elem) Then
         ReDim Preserve lst(Count)
         lst(Count) = .List(Elem)
         Count = Count + 1
      End If
    Next
  End With
  GetListBoxSelected = lst
End Function

[Fab-ien]

Salut, merci pour la réponse je viens d'essayez ceci marche très bien.

J'ai simplement une question mon problème c'est que chaque étage calcul une somme par rapport aux données rentrée dans la feuille "base-étage" et "base sous-sol" -> "Total déperdition du niveaux ".Et cette somme total des étages est calculé dans "flux thermique".
Ce que je veut c'est que si l'onglet est masquée alors il est inactif, cela est-il possible ?

[Philippe Tulliez]

Bonjour,
Je n'avais d'inquiétude à ce sujet mais par acquit de conscience, j'ai créé 1 tableau structuré par feuille et j'ai écrit =SOMME(Tableau1) pour les 4 + un calcul su plage classique =SOMME(Bruxelles!F2:F9) et je n'ai aucun souci que la feuille soit masquée ou pas

Je ne sais pas comment tu as fait tes calculs

[Fab-ien]

Merci pour la réponse rapide.

J'ai remplis uniquement ma feuille base sous sol je trouve donc 30. Mais même en ayant mes page "R-3" "R-2""R-1" de cachées les calculs ce font quand même.
Je te transfère je pense tout les calculs qui peuvent t'être utile pour m'aider.
Je suis encore à la recherche de mes erreurs.

En tout cas Merci beaucoup.

[Philippe Tulliez]

Bonjour,

Mais même en ayant mes page "R-3" "R-2""R-1" de cacées les calculs ce font quand même

Mais oui, c'est normal.
J'ai mal compris ta question. Pour excel que la feuille soit cachée ou pas, c'est transparent évidemment

Une solution serait de prévoir une liste des feuilles que l'on cache ou que l'on affiche et à l'aide d'EQUIV on peut multiplier par le résultat du calcul mais cela me semble être une usine à gaz

Ne faudrait-il pas penser à revoir l'organisation de tes données en mettant tout sur un seul onglet et alors une simple filtre dans un tableau structuré suffit pour avoir le résultat attendu ou faire la synthèse à l'aide d'un tableau croisé dynamique.