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

Aide macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion desatan
  • Date de début Date de début

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
D

desatan

XLDnaute Occasionnel
Bonjour,

J'ai un problème de macro.
J'ai un fichier Excel, avec 26 feuilles dont chacune possèdent des colonnes de A à GL.

J'ai fais des macro "d'affichage". Par exemple, j'ai fait un macro synthèse, dans laquelle je dis que pour chaque feuille je ne veux afficher que les colonnes A, de G à I et de GH à GL.
Quand je lance ma macro j'obtiens "erreur de compilation, procédure trop grand".

Quelqu'un peut me dire comment faire cette macro de façon plus petite ?
 
Trier par date Trier par votes
Re : Aide macro

ok donc dans le fichier ci joint, je souhaite avoir une macro qui me permmet d'afficher pour chaque feuille, seulement les 2 colonnes budget mois soit 24 colonnes par feuille.

Merci par avance pour votre aide
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide macro

oui elle n'y ai pas car elle bug. C'est justement l'aide que je vous demande.
Comment feriez-vous pour n'afficher, quand vous le souhaitez, que les colonnes budgets mois de chaque feuille.

Merci
 
Vote positif 0 Vote négatif
Re : Aide macro

Bonjour à tous
desatan à dit:
oui elle n'y ai pas car elle bug. C'est justement l'aide que je vous demande.
Comment feriez-vous pour n'afficher, quand vous le souhaitez, que les colonnes budgets mois de chaque feuille.

Merci
Cliquez pour agrandir...
Corriger une procédure qui n'existe pas, ou, ce qui revient au même, est invisible, voilà un art difficile...

Sur votre classeur, j'ai testé ceci avec succès :
Code: 
[COLOR="DarkSlateGray"][B]Sub cache()
Dim oFeuil, i&
   oFeuil = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
   For i = 0 To UBound(oFeuil)
      Sheets(oFeuil(i)).Range("D:Q,T:AG,AJ:AW,AX:BM,BP:CC,CF:CS,CV:DI,DJ:DY,EB:EO,ER:FE,FH:FU,FX:GI").EntireColumn.Hidden = True
   Next i
End Sub

Sub montre()
Dim oFeuil, i&
   oFeuil = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
   For i = 0 To UBound(oFeuil)
      Sheets(oFeuil(i)).Range("D:Q,T:AG,AJ:AW,AX:BM,BP:CC,CF:CS,CV:DI,DJ:DY,EB:EO,ER:FE,FH:FU,FX:GI").EntireColumn.Hidden = False
   Next i
End Sub[/B][/COLOR]
ROGER2327
#3218​
 
Vote positif 0 Vote négatif
Re : Aide macro

Bonjour Roger et merci.

Ta macro fonctionne bien pour ce fichier.😉

J'ai d'autres fichiers similaires dans lesquels j'ai tenté de mettre la même macro en prenant soins de changer le nom des feuilles ainsi que les plages de colonnes mais elle ne fonctionne plus.

Peux-tu me dire à quoi correspond ceci :

oFeuil

Merci par avance.
 
Vote positif 0 Vote négatif
Re : Aide macro

peux-tu me dire pourquoi quand je copie ta macro dans un autre classeur avec des colonnes identiques mais des noms de feuilles différents, même en changeant les noms des feuilles dans la macro, celle-ci ne fonctionne plus ?😱
 
Vote positif 0 Vote négatif
Re : Aide macro

C'est bon j'ai trouvé, en saisissant les noms de feuilles, j'ai mis un F à la place d'un G.

Peux-tu me donner en partant du même fichier, une macro qui permet de masquer certaines lignes ? Par exemple la ligne de 8 à 10 puis la ligne de 20 à 30 ?

Et une fois mes colonnes et lignes masquées, as-tu une macro qui me permettent de tous réafficher au complet ?

Merci pour ton aide
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aide macro

Re...
En observant un tout petit peu les procédures, les modifications sont évidentes :
Code: 
[COLOR="DarkSlateGray"][B]Sub cache()
Dim oFeuil, i&
   oFeuil = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
   For i = 0 To UBound(oFeuil)
      Sheets(oFeuil(i)).Range("D:Q,T:AG,AJ:AW,AX:BM,BP:CC,CF:CS,CV:DI,DJ:DY,EB:EO,ER:FE,FH:FU,FX:GI").EntireColumn.Hidden = True
      [COLOR="Red"]Sheets(oFeuil(i)).Range("8:10,20:30").EntireRow.Hidden = True[/COLOR]
   Next i
End Sub

Sub montre()
Dim oFeuil, i&
   oFeuil = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
   For i = 0 To UBound(oFeuil)
      Sheets(oFeuil(i)).Range("D:Q,T:AG,AJ:AW,AX:BM,BP:CC,CF:CS,CV:DI,DJ:DY,EB:EO,ER:FE,FH:FU,FX:GI").EntireColumn.Hidden = False
      [COLOR="Red"]Sheets(oFeuil(i)).Range("8:10,20:30").EntireRow.Hidden = False[/COLOR]
   Next i
End Sub[/B][/COLOR]
ROGER2327
#3246
 
Vote positif 0 Vote négatif
Re : Aide macro

pour masquer les lignes, j'ai mis çà :

Sub montre()
Dim oFeuil, i&
oFeuil = Array("A", "B", "Z")
For i = 0 To UBound(oFeuil)
Sheets(oFeuil(i)).Range("16:32,47,49,58:60").EntireRow.Hidden = True
Next i

End Sub

Mais ca ne fonctionne pas 😱
En fait visiblement je ne peux pas mettre que la ligne 47 ou que la 49 ?

Merci de ton aide
 
Dernière édition:
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

  • Question Question
Autres résultats differents entre formule et macro (excel 2007)
2
Réponses
18
Affichages
502
dysorthographie
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
275
alexga78
A
A
  • Résolu(e)
XL 2019 Macro Excel recherche par occurrence Macro déjà créer juste modifications
2
Réponses
25
Affichages
925
Aeroberto0099bis
A
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
369
Cousinhub
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
428
vgendron
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
676
Dégé59
D
M
  • Question Question
XL 2016 macro copier coller de plusieurs feuilles excel
Réponses
2
Affichages
553
klin89
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
374
StéphaneDeLà
S
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
809
floflatch22
F
T
  • Résolu(e)
Microsoft 365 pb effacement macro
Réponses
8
Affichages
795
Themax
T
K
  • Résolu(e)
XL 2019 Aide pour macro vba
2
Réponses
20
Affichages
1 K
Kev1407
K
C
  • Question Question
XL 2019 vba excel : masquer un tableau word
Réponses
9
Affichages
876
CBX
C
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
858
LuckyShuri
L
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
P
  • Question Question
XL 2021 macro interruption erreur
Réponses
7
Affichages
534
Dranreb
  • Résolu(e)
XL 2019 Erreur dans ma macro
Réponses
9
Affichages
884
Nadou69
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
847
Lu76Fer
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
707
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…