Simplifier l'écriture d'une macro

[Evelynetfrancois]

Bonjour tout le monde
J’essaye de simplifier cette macro qui fonctionne bien, mais qui est trés mal écrite
Pouvez-vous jeter un œil averti !
Merci pour tout !!!
E et F

(macro de janvier à janvier 2015)

'masque les lignes
Sheets("janvier").Range("6:102,142:179").EntireRow.Hidden = True

'fige à la ligne 106
Sheets("janvier").Select
ActiveWindow.FreezePanes = False
Range("A106").Select
ActiveWindow.FreezePanes = True

Sheets("février").Range("6:102,142:179").EntireRow.Hidden = True
Sheets("février").Select
ActiveWindow.FreezePanes = False
Range("A106").Select
ActiveWindow.FreezePanes = True
Sheets("mars").Range("6:102,142:179").EntireRow.Hidden = True
Sheets("mars").Select
ActiveWindow.FreezePanes = False
Range("A106").Select
ActiveWindow.FreezePanes = True
Sheets("avril").Range("6:102,142:179").EntireRow.Hidden = True
Sheets("avril").Select
ActiveWindow.FreezePanes = False
Range("A106").Select
ActiveWindow.FreezePanes = True
Sheets("mai").Range("6:102,142:179").EntireRow.Hidden = True
Sheets("mai").Select
ActiveWindow.FreezePanes = False
Range("A106").Select
ActiveWindow.FreezePanes = True

 

[jpb388]

Re : Simplifier l'écriture d'une macro

bonjour à tous


😕 message annulé je disais une bétise

 

[Modeste]

Re : Simplifier l'écriture d'une macro

Bonjour Evelyne, François, jpb388,

Une boucle devrait fonctionner sur le modèle suivant:

Sub CacheEtFige()

For Each sh In Sheets
    sh.Range("6:102,142:179").EntireRow.Hidden = True
    sh.Activate
    Range("A106").Activate
    ActiveWindow.FreezePanes = False
    ActiveWindow.FreezePanes = True
Next sh
End Sub

Attention: ce code (à placer dans un module standard) s'exécute sur toutes les feuilles du classeur. Sans fichier joint à la demande, on ne peut savoir comment est structuré le classeur

... à adapter donc à la situation réelle!

 

[Jam]

Re : Simplifier l'écriture d'une macro

Bonjour Modeste, Evelynetfrançois, jpb388,

Je rebondis sur ton code auquel je souhaite apporter 2 petits commentaires:
- utiliser sheets provoquera une erreur si le classeur ne comporte pas que des feuilles de graphique. En effet, sheets et un terme générique qui ne fait pas le distingo entre un graphique, une feuille de macro xl4 ou une feuille classique. Il faut donc utiliser l'objet worksheets
- Aaargh, il manque une déclaration de variable dans le code il faut ajouter un petit Dim... 😉
- Et pis sinon, j'vois pas bien l'intérêt du FreezePanes 😱

[/COLOR]Sub CacheEtFige()

'Dim sh As Sheet
Dim sh As Worksheet

'For Each sh In Sheets
For Each sh In Worksheets
    sh.Range("6:102,142:179").EntireRow.Hidden = True
    sh.Activate
    Range("A106").Activate
    ActiveWindow.FreezePanes = False
    ActiveWindow.FreezePanes = True
Next sh
End Sub

Bon courage

 

[Evelynetfrancois]

Re : Simplifier l'écriture d'une macro

bonjour modeste jam !!
Votre code va évidement parfaitement bien ! je vous remercie mille fois !!! super
bonne journée a tous
EetF

(Et pis sinon, j'vois pas bien l'intérêt du FreezePanes )
j essaye d expliquer .....
Suivant le secteur de production(5) qui ouvre mon programme (tout secteurs confondus)
certaines lignes sont masquées ( sh.Range("6:102,142:179").EntireRow.Hidden = True)pour s'adapter au secteur
les ligne figées (ActiveWindow.FreezePanes = True) doivent donc se réadapter à la feuille

 

[Modeste]

Re : Simplifier l'écriture d'une macro

Bonsoir le fil,

utiliser sheets provoquera une erreur si le classeur ne comporte pas que des feuilles de graphique

... ou alors l'inverse !? Ceci dit, le bout de phrase suivant "Sans fichier joint à la demande, on ne peut savoir comment est structuré le classeur" était une invitation à la réflexion ... Masquer des lignes et figer les volets d'une feuille de graphique étant difficile, même hors vba.

Aaargh, il manque une déclaration de variable dans le code il faut ajouter un petit Dim...

La déclaration des variables n'est pas, à ma connaissance, une obligation légale, ni morale, ni ... "Aaargh" est donc un point de vue assez personnel et qui n'engage que toi 😉

Par contre, tu aurais pu suggérer l'ajout de

ScreenUpdating = False

en début de code, ainsi que de son petit frère

ScreenUpdating = True

à la fin du même code. Là nous aurions été en plein accord 🙂

Bonne soirée,