Autres Afficher et masquer des tableaux et des sous tableaux

[chaelie2015]

Bonjour Forum
Je souhaite afficher et masquer des tableaux (11 tableaux couleur jaune) et sous tableaux(et 10 tableaux couleur vert) sous condition.
Dans la feuille"Anvers" par défaut toutes les lignes (de 5-430) sont masquées.
en première phase si je fais rentrer dans la cellule C3 une valeur par exemple 4 donc j'aurai que l’entête du tableau (jaune) et 04 tableaux jaune (1 2 3 et 4) et la dernière ligne Total.
en deuxième phase dans les 4 tableaux , si je fais rentrer dans les cellules vertes une valeur, je souhaite afficher le tableau vert selon le nombre saisi.
exemple dans tableau jaune1 dans la cellule X9 j'ai saisi 5 donc j'aurai l’entête du tableau vert et 5 lignes et ainsi de suite.
Merci par avance
NB: désolé pour le fichier joint, c'est une omission

 

[danielco]

Bonjour,

Euh, je ne vois ni la feuille Anvers ni tableaux jaunes ou verts. C'est mes yeux ?

Cordialement.

Daniel

 

[chaelie2015]

Bonjour,

Euh, je ne vois ni la feuille Anvers ni tableaux jaunes ou verts. C'est mes yeux ?

Cordialement.

Daniel

Désolé ce n'est pas mon fichier
c'est un fichier que je l'ai trouvé pour l’inspirer
merci pour la remarque.

 

[chaelie2015]

Bonsoir forum

 

[job75]

Bonsoir,

Le nouveau fichier joint ne correspond toujours pas à l'énoncé du post #1...

A+

 

[chaelie2015]

Bonsoir,

Le nouveau fichier joint ne correspond toujours pas à l'énoncé du post #1...

A+

Re JOB
Je l'ai changé les tableaux ( lignes jaunes et vertes) sont masquées

 

[chaelie2015]

Re
j'ai revérifié le fichier est le mème.

 

[chaelie2015]

Bonsoir forum
j’’ai rattaché le bon fichier.

 

[chaelie2015]

Bonsoir Forum
Edit : pour les tableaux Jaunes c'est des lignes ( une ligne par tableau et un entête)
pour les tableaux verts c'est 40 lignes et un entête.
donc je souhaite afficher et masquer ces lignes en arborescence.
merci

 

[danielco]

Bonjour,

Désolé pour le délai, je regarde dès que possible, en espérant que quelqu'un d'autre sera plus disponible.

Daniel

 

[danielco]

D'après ce que je comprends, les tableaux verts sont toujours masqués. Comment saisir un nombre dans ces conditions ? j'ai sans doute mal compris ? Faut-il afficher les tableaux verts avec les jaunes ?

Daniel

 

[chaelie2015]

Bonjour
merci d'avoir répondu.
comme j'ai indiqué dans mon post #1
1. Dans la feuille"Anvers" par défaut toutes les lignes (de 5-430) sont masquées.
2. dans la cellule C3, je saisi un nombre pour afficher que les tableaux Jaunes.
exemple : C3=3 donc j'aurai que les lignes 5 6 7 8 9 et 51 93 et 429.
3. Etape : pour afficher les tableaux verts (on doit d'abord afficher les tableaux jaunes)
parce que dans chaque tableau jaune il y a une cellule verte, cette cellule qui va nous permettre d'afficher le nombre de ligne verts pour chaque tableau.
exemple :dans X9 = 3 donc j'aurai 3 lignes vertes affichée et un entête.
dans X51 = 2 donc j'aurai 2 lignes vertes affichée et un entête.
dans X93 = 4 donc j'aurai 4 lignes vertes affichée et un entête.
Merci

 

[danielco]

Avec la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Tabl As Variant, I As Long
  Tabl = Array(1, 9, 51, 93, 135, 177, 219, 261, 303, 345, 367)
  If Target.Address = "$C$3" Then
    Rows("9:429").Hidden = True
    If IsNumeric(Target) Then
      If Target > 0 Then
        For I = 1 To Target
          Rows(Tabl(I)).Hidden = False
        Next I
      End If
    End If
  ElseIf Target.Column = 24 And IsNumeric(Application.Match(Target.Row, Tabl, 0)) Then
    Rows(Target.Row + 1 & ":" & Target.Row + 42).Hidden = True
    Rows(Target + 1 & ":" & Target.Row + Target + 1).Hidden = False
  End If
End Sub

 

[chaelie2015]

Bonsoir danielco
merci pour la réponse mais ça n'a pas bien fonctionné si je change les valeurs?
Merci

 

[danielco]

Oups, désolé. Remplace la macro par celle-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Tabl As Variant, I As Long
  Tabl = Array(1, 9, 51, 93, 135, 177, 219, 261, 303, 345, 367)
  If Target.Address = "$C$3" Then
    Rows("9:429").Hidden = True
    If IsNumeric(Target) Then
      If Target > 0 Then
        For I = 1 To Target
          Rows(Tabl(I)).Hidden = False
        Next I
      End If
    End If
  ElseIf Target.Column = 24 And IsNumeric(Application.Match(Target.Row, Tabl, 0)) Then
    Rows(Target.Row + 1 & ":" & Target.Row + 41).Hidden = True
    Rows(Target.Row + 1 & ":" & Target.Row + Target + 1).Hidden = False
  End If
End Sub

Daniel