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 je vais tester.

Dis mois suis-je limiter dans cette phase :
Sheets(oFeuil(i)).Range("16:32,47,49,58:60").

Est-ce entre les "", je peux mettre autant de plage de cellules que je veux ou bien il y a une limite ?

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

Re...
desatan à dit:
ok je vais tester.

Dis mois suis-je limiter dans cette phase :
Sheets(oFeuil(i)).Range("16:32,47,49,58:60").

Est-ce entre les "", je peux mettre autant de plage de cellules que je veux ou bien il y a une limite ?

Merci
Cliquez pour agrandir...
Ca, Range("16:32,47,49,58:60"), ça ne fonctionnera pas : voir mon précédent message.
Quant à la limite, si elle existe, je ne la connais pas. Vous verrez bien s'il y en a une lorsque vous utiliserez la procédure...​
ROGER2327
#3253
 
Vote positif 0 Vote négatif
Re : Aide macro

oui pardon, j'avais vu votre réponse et j'ai bien mis :

Range("16:32,47:47,49:49,58:60")

Mais quand je complète la ligne par d'autres plages de lignes, la macro ne fonctionne plus.

Pourtant, j'ai bien respcté les , et les : 😱

Encore merci
 
Vote positif 0 Vote négatif
Re : Aide macro

Re...
S'il y a une limite (que je ne connais pas), vous pouvez scinder une ligne en deux (ou plus). Par exemple, remplacer :
Code: 
[COLOR="DarkSlateGray"][B]      Sheets(oFeuil(i)).Range("16:32,47:47,49:49,58:60").EntireRow.Hidden = True[/B][/COLOR]
par
Code: 
[COLOR="DarkSlateGray"][B]      Sheets(oFeuil(i)).Range("16:32,47:47").EntireRow.Hidden = True
      Sheets(oFeuil(i)).Range("49:49,58:60").EntireRow.Hidden = True[/B][/COLOR]
Il n'est pas facile de répondre à propos de situtation qu'on ne voit pas...​
ROGER2327
#3267
 
Vote positif 0 Vote négatif
Re : Aide macro

quand j'execute la macro, il me met cette ligne en jaune en disant erreur d'execution "1004"😱

Sheets(oFeuil(i)).Range("7:8,11:20,23:28,38:39,42:51,54:59,69:70,73:82,85:90,100:101,104:113,116:121,131:132,135:144,147:152,162:163,166:175,178:183,193:194,197:206,209:214,224:225,228:237,240:245,814:815,817:826,829:834,845:846,848:857,860:865,875:876,879:888,891:897,906:907,910:919,922:927").EntireRow.Hidden = True

Encore merci
 
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
501
dysorthographie
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
271
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
426
vgendron
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
674
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
806
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
846
Lu76Fer
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
706
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…