Macro : Regrouper/ cacher tableaux en fct d'une reférence

Bonjour,

J'ai un petit problème, j'ai un classeur avec 2 feuilles;

• une avec un tableau de référence : dans lequel j'inscris par exemple des nom de Pays en Ref 1, 2,3...15
• une autre feuille avec des tableaux, j'ai ajouté la fonction grouper pour cacher les tableaux qui ne renseignaient pas de nom de pays. (Ici 11:15). J’aimerai alors que ses colonnes soit cachées pour avoir que des tableaux utile en fonction de la situation.

Je voudrais créer une macro (avec un système d'incrémentations en fonctions de la référence?) qui permette que, lorsqu'il n'y pas de Pays renseigné dans le tableau de référence Feuille 1, elle cache les tableaux page 2.

Cf Fichier ci-joint,

Bien à vous,

Joe

Bonjour,

Une méthode :

Il faut d'abord créer dans le Gestionnaire de Nom la plage "TRef" correspondant à Range(B5:B19)

Sub test()
Dim a, i%, ii%
a = Worksheets("Feuil1").Range("TRef")
For i = 1 To UBound(a, 1)
   aa = a(i, 1) * 12 - 4
   With Worksheets("Feuil3")
      Worksheets("Feuil3").Range(.Cells(1, aa), .Cells(1, aa + 10)).EntireColumn.Hidden = (a(i, 2) = "")
   End With
Next
End Sub

A+

Salut,

Merci pour ta réponse,

J'ai créé la plage TRef, mais j'obtiens une erreur sur la boucle "With"... Tu à réussis à la faire marcher?

Hum... C'était B5:C19

si tu garde les référence L1C1 c'est :

=Feuil1!L5C2:L19C3

Bon WE

A+

Super merci Galopin, ça fonctionne ! Mais uniquement sur les 15 premiers tableaux.

Possible de cacher ceux qui appartiennent aux deuxièmes types de tableau toute à gauche?

Yaka faire comme ça :

Sub test()
Dim a, aa%, ab%, i%, ii%
a = Worksheets("Feuil1").Range("TRef")
For i = 1 To UBound(a, 1)
   aa = a(i, 1) * 12 - 4
   ab = a(i, 1) * 6 + 185
   With Worksheets("Feuil3")
      Worksheets("Feuil3").Range(.Cells(1, aa), .Cells(1, aa + 10)).EntireColumn.Hidden = (a(i, 2) = "")
      Worksheets("Feuil3").Range(.Cells(1, ab), .Cells(1, ab + 4)).EntireColumn.Hidden = (a(i, 2) = "")
   End With
Next
End Sub

A+

ça fonctionne ! Merci beaucoup, c'est gentil

Passe une bonne fin de weekend