XL 2013 Affichage d'onglet sous condition.

gorghrom · 4 Novembre 2021

Bonjour,
J'aurai besoin de votre aide
Je n'arrive pas a créer une macro me permettant d'afficher seulement certains onglet d'un classeur EXCEL suivant des condition précise.
En gros , dans la feuille 6 du fichier ci joint; j'aimerais ne voir afficher (en bas du classeur) que les onglets qui sont en "oui" dans le tableau. de cette feuille 6 et masquer ceux qui sont en "non"
Pensez vous que cela soit possible ?
En vous remerciant par avance.
Cordialement

mapomme · 4 Novembre 2021

Bonjour @gorghrom ,

Modifier les "Oui/Non" du tableau de la feuille "Sheet6".

Code dans le module de la feuille "Sheets6":

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t, j&
   Application.ScreenUpdating = False
   With Sheets("Sheet6")
      t = Intersect(.Range("b5").CurrentRegion, .Rows("5:6"))
      For j = 2 To UBound(t, 2): Sheets(t(1, j)).Visible = LCase(t(2, j)) <> LCase("Non"): Next
   End With
End Sub

gorghrom · 4 Novembre 2021

Géniallll, merci mapomme, c'est tout a fait ce que je cherchait a faire.
J'ai plus qu'a transposer sur mon fichier qui est un peu plus compliqué.
Un grand merci.

gorghrom · 4 Novembre 2021

Du coup, comme je vois que tu maitrise le visual ;-)

Saurait tu comment je peux réaliser une autre macro qui permette d'exporter des données de plusieurs classeurs sources , vers un seul classeur cible... Je m'explique :
Pour faire simple : sur ce même formulaire. j'aimerais avoir un bouton associé à une macro qui permette de copier certaine cellules du classeur "Essais formulaire" (réparties sur tous les onglets) vers la première ligne d'un tableau sur un classeur "données consolidées" (ci-dessous).
Saurais tu m'aider ?
Mille merci

XL 2013 Affichage d'onglet sous condition.

gorghrom

XLDnaute Junior

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

gorghrom

XLDnaute Junior

gorghrom

XLDnaute Junior

Pièces jointes

Discussions similaires