Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Simplifier l'écriture d'une macro

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

Evelynetfrancois

XLDnaute Impliqué
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
 
Dernière édition:
Trier par date Trier par votes
Re : Simplifier l'écriture d'une macro

Bonjour Evelyne, François, jpb388,

Une boucle devrait fonctionner sur le modèle suivant:
VB: 
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!
 
Vote positif 0 Vote négatif
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 😱

VB: 
[/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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Simplifier l'écriture d'une macro

Bonsoir le fil,

Jam à dit:
utiliser sheets provoquera une erreur si le classeur ne comporte pas que des feuilles de graphique
Cliquez pour agrandir...
... 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.

Jam à dit:
Aaargh, il manque une déclaration de variable dans le code il faut ajouter un petit Dim...
Cliquez pour agrandir...
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
Code: 
ScreenUpdating = False
en début de code, ainsi que de son petit frère
Code: 
ScreenUpdating = True
à la fin du même code. Là nous aurions été en plein accord 🙂

Bonne soirée,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
242
vazvaz
V
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
  • Question Question
Autres Simplifier une macro
Réponses
1
Affichages
477
fanch55
  • Question Question
XL 2016 protéger et déprotéger plusieurs feuilles par macro
Réponses
4
Affichages
981
halecs93
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
746
Pimpon974
P
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
520
Casim
C
C
  • Question Question
Microsoft 365 Arret macro si condition est fausse
Réponses
4
Affichages
793
Chounoé
C
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
820
un internaute
U
B
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
970
bd.afaf
B
I
  • Question Question
XL 2016 MACRO LENTE
Réponses
2
Affichages
981
ImNotJésus
I
O
  • Résolu(e)
XL 2010 activer une feuille selon la valeur d'une cellule
Réponses
13
Affichages
2 K
ozerte
O
  • Question Question
Microsoft 365 simplifier une macro
Réponses
10
Affichages
1 K
Magic_Doctor
A
  • Question Question
Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro
Réponses
2
Affichages
1 K
AlexAGEMS
A
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
S
  • Question Question
Microsoft 365 Enregistrer en PDF plusieurs onglets avec une boucle
Réponses
3
Affichages
850
kiki29
G
  • Résolu(e)
XL 2016 Simplifier macro rapidité
Réponses
9
Affichages
1 K
ChTi160
T
  • Question Question
XL 2019 Activer une macro à partir du contenu d'une cellule
Réponses
8
Affichages
2 K
soan
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…