Code VBA pour reset macros

Bonjour,

J'ai un classeur Excel avec des macros, commandées par des boutons, qui masquent des lignes et des colonnes en fonction de la valeur de certaines cellules.
Ces macros sont dans des modules.
Si je veux masquer les lignes et les colonnes, je clique sur le bouton et si je veux que toues les lignes et les colonnes soient à nouveaux visibles, je clique sur le bouton à nouveau.
Le masquage de ces lignes et ces colonnes, n'est que temporaire et je ne peux pas enregistrer ce classeur comme un modèle, car il est modifié en permanence.
Il m'arrive de sauvegarder le classeur avec des lignes et des colonnes masquées.
Je voudrais savoir, s'il existe un code VBA qui me permettrait, à l'ouverture du classeur, ou lorsqu'on le sauvegarde, de revenir systématiquement à l'état initial, c'est à dire avec toutes les lignes et les colonnes affichées.
Merci pour votre aide.

Bonsoir,
A l'ouverture du classeur, il faut installer sur le module code du Workbooks , une procédure .open et pareil pour l'enregistrement

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() MacroBouton 'Nom de la macro mise en oeuvre par le bouton, vous mettrez le votre de nomMacro. End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MacroBouton 'Nom de la macro mise en oeuvre par le bouton, vous mettrez le votre de nomMacro. End Sub

---

Vous devrez peut être l'adapter un peu. j'ignore tout de votre code

Cordialement 8-)

Bonjour

Citation:

---

de revenir systématiquement à l'état initial, c'est à dire avec toutes les lignes et les colonnes affichées.

---

ben -->>

Code:

---

1 2 3 4

With UsedRange .Cells.EntireRow.Hidden = False .Cells.EntireColumn.Hidden = False End With

---

affichera forcément toutes les lignes et toutes les colonnes de la feuille active.

Salut.

Ta question m'indique que tu as probablement placé tout ton code dans l'évènement d'un bouton Activex ou dans une même macro contenant un test conditionnel et liée à un bouton de formulaire. Dès lors, je pense qu'une meilleure architecture permettrait de répondre à ton problème très simplement.

Normalement, une procédure a une seule responsabilité. Elle ne peut pas, dès lors, contenir à la fois le code qui masque et le code qui affiche. Ton code devrait contenir une procédure qui affiche, une procédure qui masque, la procédure qui appelle l'une ou l'autre en fonction d'une condition. Il serait dès lors très facile, à l'ouverture du classeur, d'appeler la procédure qui affiche. Perso, je n'aime pas mettre le code qui affiche dans l'évènement Workbook_Open. Normalement, le code dans la procédure évènementielle workbook_open ne devrait contenir que des appels à des procédures, appels qui sont éventuellement conditionnels.

Voici une architecture qui serait plus "pro" que celle que j'entrevois dans ton classeur actuel, en me basant sur le fait que le bouton qui déclenche la macro est un bouton de formulaire auquel on a affecté la macro (et pas un bouton ActiveX). Ceci dit, la procédure reste la même, le clic sur le bouton appelle la procédure ManageVisibility

Dans un module standard:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub ManageVisibility() Static Hidden As Boolean   If Hidden Then ShowRows Else HideRows End If Hidden = Not Hidden End Sub   Sub ShowRows() ... ... ... End Sub   Sub HideRows() ... ... ... End Sub

---

Et bien entendu, tu places dans HideRows et ShowRows les lignes de code extraites de ta macro initiale en séparant bien sûr celles qui masquent et celles qui affichent.



Dans le module du classeur (initialement ThisWorkBook)

Code:

---

1 2 3

Private Sub Workbook_Open() ShowRows End Sub

---

Cette façon d'architecturer ton code te permettra plus de souplesse, un débogage plus facile et des adaptations plus aisées lorsque ton projet grandira.

Salut Jacques,

Citation:

---

Envoyé par unparia

[...]

Code:

---

1 2 3 4

With UsedRange .Cells.EntireRow.Hidden = False .Cells.EntireColumn.Hidden = False End With

---

affichera forcément toutes les lignes et toutes les colonnes de la feuille active.

---

Non, pas forcément toutes les lignes et toutes les colonnes de la feuille active.
Ton code n'affichera les lignes et colonnes que pour la plage utilisée dans la feuille. Les lignes masquées au delà de la UsedRange ne seront pas affichées. Pour afficher toutes les lignes et colonnes de la feuille, il faut utiliser la feuille entière et pas uniquement UsedRange ;)

[EDIT] De plus, UsedRange n'est pas connu en tant que tel ;)

Bonjour Pierre
Je n'ai pas voulu, délibérément, aller au-delà du nécessaire.
Pour mémoire :

Citation:

---

J'ai un classeur Excel avec des macros, commandées par des boutons, qui masquent des lignes et des colonnes en fonction de la valeur de certaines cellules.

---

donc forcément dans le usedrange

Par ailleurs, le seul fait de masquer une ligne modifie le usedrange, qui s'étend alors si nécessaire jusqu'à cette ligne . Fais-en l'expérience. Tu verras.

Jacques,

Citation:

---

Envoyé par unparia

[...]
donc forcément dans le usedrange

---

Dans ce que tu cites, rien de laisse entendre que les colonnes et lignes masquées sont celles qui contiennent les valeurs qui déterminent ce qui doit être masqué.



Par ailleurs... Tu sais, lorsque j'écris quelque chose, c'est que j'en suis certain

Citation:

---

Envoyé par Pierre Fauconnier

[...]Les lignes masquées au delà de la UsedRange ne seront pas affichées. Pour afficher toutes les lignes et colonnes de la feuille, il faut utiliser la feuille entière et pas uniquement UsedRange ;)

---

Citation:

---

Envoyé par unparia

[...]le seul fait de masquer une ligne modifie le usedrange, qui s'étend alors si nécessaire jusqu'à cette ligne . Fais-en l'expérience. Tu verras.

---

Pas dans ma version d'Excel (XL 2016). Le UsedRange ne s'étend pas sur les colonnes ou lignes masquées. Je confirme donc bien qu'il est erroné de dire que ton code affiche forcément les lignes et colonnes de toute la feuille (à tout le moins sans préciser la version, si tant est que cela fonctionne différemment sur ta version, ce dont je doute ;), mais je testerai demain matin chez un client sur une XL2010)


Pièce jointe 389266

Citation:

---

Le UsedRange ne s'étend pas sur les colonnes ou lignes masquées

---

Citation:

---

le seul fait de masquer une ligne modifie le usedrange, qui s'étend alors si nécessaire jusqu'à cette ligne

---

Je ne crois pas avoir dit que ce comportement concernait les colonnes. Seules les lignes le sont.
Je ne parviens pas à imaginer un cas d'utilité de masquage d'une colonne située en dehors du usedrange (donc qui ne contiendrait ni constante, ni formule, ni formatage, ni mise en forme). Je manque peut-être d'imagination.

Jacques,

Citation:

---

Envoyé par unparia

Bonjour



ben -->>

Code:

---

1 2 3 4

With UsedRange .Cells.EntireRow.Hidden = False .Cells.EntireColumn.Hidden = False End With

---

affichera forcément toutes les lignes et toutes les colonnes de la feuille active.

---

Ton assertion est fausse puisque toutes les colonnes de la feuille active ne seront pas visibles à coup sûr en utilisant UsedRange. Or, tu parlais bien de

Citation:

---

toutes les lignes et toutes les colonnes de la feuille active

---

Je ne faisais que relever ce point, pour que Sergio utilise la feuille entière plutôt que UsedRange.Cells s'il veut, à coup sûr, afficher toutes les lignes et toutes les colonnes de la feuille active. Et pour la feuille active, s'il s'agit bien d'une feuille de travail, il n'est pas nécessaire d'utiliser ActiveSheet, on peut aller directement sur Cells.EntireColumn ;)

De plus, ton code, tel que tu l'as donné, ne saurait fonctionner avec UsedRange qui doit être préfixé d'une feuille de travail, ne pouvant être invoqué tel que tu le montres dans ton code.
Et puisque tu essaies de ne pas faire plus que le nécessaire, comme tu le dis dans un message, il n'est pas utile d'utiliser xxx.UsedRange.Cells.EntireColumn, tu peux utiliser xxx.UsedRange.EntireColumn


Ceci dit, et pour remettre la balle au centre ;)
J'étais moi aussi dans l'erreur en disant

Citation:

---

Le UsedRange ne s'étend pas sur les colonnes ou lignes masquées

---

et je n'aurais dû parler que des colonnes ;)

Bien
J'aurais du me contenter de dire "démasquera toutes les lignes et colonnes que tu souhaites apparemment démasquer"
N'en parlons donc plus.

Je vais toutefois saisir cette occasion pour tenter de comprendre l'esprit-même du mécanisme mis en place par Microsoft :
Quelqu'un saurait-il pourquoi Microsoft a décidé de ne pas régir l'extension du usedrange aux colonnes masquées comme il l'a fait pour les lignes masquées ? Il existe probablement une bonne raison à cela, mais je ne parviens pas à la deviner.