affichage des tableaux et sous tableaux

[Ilino]

Bonjour Forum
J’ai dans ma feuille 10 tableaux chaque tableau est constitué de 100 lignes, je souhaite afficher ou masquer ces tableaux selon la valeur de la cellule qu’il la correspond dans le premier Tableau
Exemple
Si je saisie dans la cellule E5 la valeur 3 j’aurai 3 tableaux mais le nombre de ligne de ces trois tableau s’affiche selon les valeurs inscrites dans les cellules E7,E9,E11
grazie

 

[Ilino]

Re : affichage des tableaux et sous tableaux

Forum Bonjour
est ce que mon souci est claire ?
GRAZIE

 

[job75]

Re : affichage des tableaux et sous tableaux

Bonjour Ilino,

C'est tout à fait clair mais c'est assez tordu comme problème.

A+

 

[Ilino]

Re : affichage des tableaux et sous tableaux

BONJOUR JOB
WHY ; y a t il autres propositions ?
A+

 

[job75]

Re : affichage des tableaux et sous tableaux

Re,

Fichier joint avec cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E5:E25]) Is Nothing Then Exit Sub
Dim ntab&, lettre$, n&, i&
Target.Select
Application.ScreenUpdating = False
ntab = Val([E5])
Rows("6:2066").Hidden = True
For ntab = 1 To ntab
  Rows(4 + 2 * ntab).Resize(2).Hidden = False
  lettre = Chr(64 + ntab)
  n = Val([E5].Offset(2 * ntab))
  i = Application.Match(lettre, [A:A], 0) - 1
  Rows(i & ":" & i + 2 * n + 1).Hidden = False
  i = Application.Match("Total " & lettre, [A:A], 0) - 1
  Rows(i).Resize(2).Hidden = False
Next
End Sub

A+

 

[Ilino]

Re : affichage des tableaux et sous tableaux

Bonjour JOB
ça marche nickel
GRAZIE