antha
XLDnaute Occasionnel
[VBA] Définir une zone dynamique pour pouvoir la masquer
Bonsoir à tou(te)s !
J'essaye d'ajouter 2 macros qui ont le même but : définir une zone dynamique de lignes ou colonnes entières et les masquer.
J'ai réussi à le faire en passant par une zone nommée, mais ca ne fait que rajouter encore un nom, et alourdir un peu plus le fichier global.
Y aurait-il plus simple comme solution que :
C'est l'onglet2, je décale la cellule A6 d'un certain nombre (4*le nb d'une autre zone nommée du fichier) pour obtenir la 1ere ligne vide. Ensuite j'étend la sélection jusquà la cellule A161. et je masque.
Peut-on se passer de l'étape zone nommé et intégrer la formule directement dans le code pour masquer ? J'ai essayé, mais j'obtiens des erreurs que j'ai beaucoup de mal à déchiffrer.
Sur l'onglet 1, je cherche à faire la même chose sauf qu'il s'agit là de colonne.
Trouver la zone qui contient les 0 et masquer les colonnes qui correspondent.
Sinon, je passerai par la même solution
Merci de votre aide!
(en espérant avoir été compréhensible )
Bonsoir à tou(te)s !
J'essaye d'ajouter 2 macros qui ont le même but : définir une zone dynamique de lignes ou colonnes entières et les masquer.
J'ai réussi à le faire en passant par une zone nommée, mais ca ne fait que rajouter encore un nom, et alourdir un peu plus le fichier global.
Y aurait-il plus simple comme solution que :
Code:
ActiveWorkbook.Names.Add Name:="masquer" & ActiveSheet.Range("B5"), RefersToR1C1:= _
"=OFFSET(R6C1,COUNTIF(nomprat,""<>0"")*4,,,)" 'Définition de la zone à masquer (masquer##)
Range(Range("masquer" & ActiveSheet.Range("B5")), Range("A161")).EntireRow.Hidden = True
C'est l'onglet2, je décale la cellule A6 d'un certain nombre (4*le nb d'une autre zone nommée du fichier) pour obtenir la 1ere ligne vide. Ensuite j'étend la sélection jusquà la cellule A161. et je masque.
Peut-on se passer de l'étape zone nommé et intégrer la formule directement dans le code pour masquer ? J'ai essayé, mais j'obtiens des erreurs que j'ai beaucoup de mal à déchiffrer.
Sur l'onglet 1, je cherche à faire la même chose sauf qu'il s'agit là de colonne.
Trouver la zone qui contient les 0 et masquer les colonnes qui correspondent.
Sinon, je passerai par la même solution
Merci de votre aide!
(en espérant avoir été compréhensible )
Pièces jointes
Dernière édition: