Activation d'onglets par list box

Version imprimable

3 pièce(s) jointe(s)

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:

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,

1 pièce(s) jointe(s)

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)

Pièce jointe 554430

Procédures

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

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:

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:

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

09/04/2020, 19h01
Fab-ien

1 pièce(s) jointe(s)

Desactiver les onglets non actif

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 ? Pièce jointe 554628
09/04/2020, 19h19
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
09/04/2020, 19h33
Fab-ien

5 pièce(s) jointe(s)

Calcul présent sur mes feuilles

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.
09/04/2020, 20h10
Philippe Tulliez

Bonjour,

Citation:

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.
09/04/2020, 21h40
Fab-ien

Tu as bien répondu à ma question. Je ne peut pas obtenir ce que je veut je pense sans comme tu dit avoir une usine a gaz.

Je vais sois essayez de trouver une autre manière de faire mon tableau. Ou alors faire mon usine à gaz.

Je te remercie pour ton aide en tout cas et surement à bientôt.

Bonjour,
Alors une idée pour l'usine à gaz

Créer une fonction personnalisée nommée IsSheetVisible qui renvoie VRAI si la feuille dont le nom est passé par l'argument
Code:

1 2 3 4 5 6 7 8 9 10 Function IsSheetVisible(SheetName As String) As Boolean ' Fonction qui renvoie True ou False en fonction de ' Argument ' SheetName Nom de la feuille à vérifier Application.Volatile Dim oSheet As Worksheet Set oSheet = Worksheets(SheetName) IsSheetVisible = oSheet.Visible Set oSheet = Nothing End Function
Il y a lieu d'ajouter la ligne de code Application.Calculate à fin de la procédure ListSheetSelectedToVisible pour forcer le calcul des fonctions d'excel dès que l'on masque ou affiche les feuilles

La formule pour calculer la somme de la colonne nommé CA du tableau structuré nommé T_Lisbonne. Si la feuille est masquée le calcul retourne une valeur nulle

Code:

=SOMME(T_Lisbonne[CA])*IsSheetVisible("Lisbonne")

La formule pour calculer la somme du CA de plusieurs villes (pour l'exemple Lisbonne et Madrid).

Code:

=(SOMME(T_Lisbonne[CA])*IsSheetVisible("Lisbonne")) + (SOMME(T_Madrid[CA])*IsSheetVisible("Madrid"))

Formule plus courte si l'on a activé l'option Ligne des totaux du tableau structuré
Exemple pour renvoyer le résultat du calcul effectué pour la colonne CA du tableau structuré nommé T_Listbonne présent dans la feuille nommée Lisbonne

Code:

=IsSheetVisible("Lisbonne") * T_Lisbonne[[#Totaux];[CA]]