zeltron
XLDnaute Occasionnel
Bonjour à tout le forum,
Voilà, j'ai une feuille excel dont certaines lignes et certaines colonnes sont masquées. Je souhaiterais en VBA toutes les afficher, mais ces lignes et ces colonnes masquées ne sont pas toujours les mêmes donc comment dire en quelques sorte :"affichées toutes les colonnes et lignes masquées de la feuile "x"?
De plus, à défaut d'être masquées certaine lignes et certaine colonnes sont simplement réduites, au niveau de leur largeur pour les colonnes et au niveau de leur heuteur pour les lignes, à zéro. Donc dans ce cas, de la même manière comment dire : mettre toutes les collones de la feuille "x" à 12.86, et toues les lignes a 12 au niveau des dimensions.
Avec l'enregistreur j'ai obtenu le code suivant:
Columns("A:A").Select
Range("A2").Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.ColumnWidth = 12.86
Selection.RowHeight = 12
le seule problème est que je souhaite automatiser cela via un bouton sur une autre feuille, donc comment faire en sorte que cela se fasse sur la feuille "x" et également avecl'enregistreur cela ne me donne pas le moyen:
1- de sélectionner toutes les lignes
2-d'éviter de faire de "select" ce qui fait que malgré "screenupdating = false" l'execution de la macro se voit.
Pouvez vous m'aider?
Merci d'avance pour votre aide
Cordialement
Zeltron
Voilà, j'ai une feuille excel dont certaines lignes et certaines colonnes sont masquées. Je souhaiterais en VBA toutes les afficher, mais ces lignes et ces colonnes masquées ne sont pas toujours les mêmes donc comment dire en quelques sorte :"affichées toutes les colonnes et lignes masquées de la feuile "x"?
De plus, à défaut d'être masquées certaine lignes et certaine colonnes sont simplement réduites, au niveau de leur largeur pour les colonnes et au niveau de leur heuteur pour les lignes, à zéro. Donc dans ce cas, de la même manière comment dire : mettre toutes les collones de la feuille "x" à 12.86, et toues les lignes a 12 au niveau des dimensions.
Avec l'enregistreur j'ai obtenu le code suivant:
Columns("A:A").Select
Range("A2").Activate
Range(Selection, Selection.End(xlToRight)).Select
Selection.ColumnWidth = 12.86
Selection.RowHeight = 12
le seule problème est que je souhaite automatiser cela via un bouton sur une autre feuille, donc comment faire en sorte que cela se fasse sur la feuille "x" et également avecl'enregistreur cela ne me donne pas le moyen:
1- de sélectionner toutes les lignes
2-d'éviter de faire de "select" ce qui fait que malgré "screenupdating = false" l'execution de la macro se voit.
Pouvez vous m'aider?
Merci d'avance pour votre aide
Cordialement
Zeltron
