Aide macro

[desatan]

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 ?

 

[ROGER2327]

Re : Aide macro

Re...

(...) En fait visiblement je ne peux pas mettre que la ligne 47 ou que la 49 ? (...)

Il faut écrire 47:47.
​

ROGER2327
#3251

 

[desatan]

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

 

[ROGER2327]

Re : Aide macro

Re...

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

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

 

[desatan]

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

 

[ROGER2327]

Re : Aide macro

Re...

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

S'il y a une limite (que je ne connais pas), vous pouvez scinder une ligne en deux (ou plus). Par exemple, remplacer :

[COLOR="DarkSlateGray"][B]      Sheets(oFeuil(i)).Range("16:32,47:47,49:49,58:60").EntireRow.Hidden = True[/B][/COLOR]

par

[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

 

[desatan]

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

 

[ROGER2327]

Re : Aide macro

Re...

Coupez en deux et ça fonctionne...​

ROGER2327
#3271

 

[desatan]

Re : Aide macro

ok je vais tester, c'est donc qu'il y a une limite😀

Un grand merci pour votre aide 😉