macro 93 unhide chart

[JPG]

Je n'ai jamais abandonné le langage macro 93, et j'ai beaucoup de macros dans ce langage. Aujourd'hui je suis obligé d'avancer un peu, mais si je reste en xlsm ça va à peu près. Par contre il y a au moins une expression qui ne passe pas, c'est l'activation d'un graphique pour modifier les séries, par exemple :

=WORKBOOK.SELECT("Cac-Portef";"Cac-Portef")
=UNHIDE("[ Récap 255j.xlsm]Cac-Portef CHART 4")
=SELECT("S1")
=FORMULA("=SERIES(;;'Récap Portef'!RaaaC3:R946C3;1)")
=SELECT("S2")
=FORMULA("=SERIES(;;'Récap Portef'!RaaaC5:R946C5;2)")
=SELECT("AXIS 1")
=SCALE(TRUE;TRUE;TRUE;TRUE;TRUE;FALSE;FALSE;FALSE)
=HIDE()

La macro bute systématiquement sur le "UNHIDE". quelle est l'expression qui résoudrait mon problème ?
(en VBA c'est ActiveChart, mais je voudrais éviter.
Merci

 

[PMO2]

Re : macro 93 unhide chart

Bonjour,

A tout hasard, je remarque un espace qui semble superflu dans l'instruction suivante

=UNHIDE("[ Récap 255j.xlsm]Cac-Portef CHART 4")

=UNHIDE("[ puis un espace

 

[JPG]

Re : macro 93 unhide chart

l'espace est volontaire,car la référence est précédée d'un espace.

 

[job75]

Re : macro 93 unhide chart

Bonjour JPG, PMO2,

Tiré de l'aide sur les fonctions macros Excel 4.0 :

AFFICHER(fenêtre_texte)

Fenêtre_texte est le nom de la fenêtre à afficher. Si fenêtre_texte n'est pas le nom d'un classeur ouvert, une valeur d'erreur est renvoyée et la macro est interrompue. Vous ne pouvez pas afficher la fenêtre de classeur d'une macro complémentaire.

Donc essayez :

=UNHIDE(" Récap 255j.xlsm")

Avec l'espace si vous y tenez.

A+

 

[job75]

Re : macro 93 unhide chart

Re,

Si au lieu de la fenêtre vous voulez afficher/masquer une feuille, utiliser :

=AFFICHER.CLASSEUR("Cac-Portef")
---------
=MASQUER.CLASSEUR("Cac-Portef")

si "Cac-Portef" est bien le nom de la feuille.

A+

 

[JPG]

Re : macro 93 unhide chart

En fait je n'ai qu'un classeur ouvert qui s'appelle " Récap 255j.xlsm". Dans ce classeur, j'ai une feuille qui s'appelle "Récap Portef", une feuille "Cac Portef" et une feuille macros.Je veux réactualiser le graph 4 qui se trouve dans Cac Portef. Donc j'ai écris :

=ACTIVATE(" Récap 255j.xlsm")
=WORKBOOK.SELECT("Macros";"Macros")
=SELECT(R19C21:R37C21)
=FORMULA.REPLACE("aaa";'Récap Portef'!R679C1;2;1;FALSE;FALSE)
=FORMULA.REPLACE("bbb";'Récap Portef'!R679C1+1;2;1;FALSE;FALSE)


=WORKBOOK.SELECT("Récap Portef";"Récap Portef")
=SELECT("R681C3:R946C3")
=CLEAR()
=SELECT("R681C5:R946C5")
=CLEAR()

=SELECT("RaaaC3")
=FORMULA("0")
=SELECT("RbbbC3")
=FORMULA("=(RC[-1]-R[-1]C[-1])/RaaaC2+R[-1]C")
=SELECT("RaaaC5")
=FORMULA("0")
=SELECT("RbbbC5")
=FORMULA("=(RC[-1]-R[-1]C[-1])/RaaaC4+R[-1]C")
=SELECT("RbbbC3:R946C3")
=FILL.DOWN()
=SELECT("RbbbC5:R946C5")
=FILL.DOWN()

=WORKBOOK.SELECT("Cac-Portef";"Cac-Portef")
=UNHIDE("[ Récap 255j.xlsm]Cac-Portef CHART 4")
=SELECT("S1")
=FORMULA("=SERIES(;;'Récap Portef'!RaaaC3:R946C3;1)")
=SELECT("S2")
=FORMULA("=SERIES(;;'Récap Portef'!RaaaC5:R946C5;2)")
=SELECT("AXIS 1")
=SCALE(TRUE;TRUE;TRUE;TRUE;TRUE;FALSE;FALSE;FALSE)
=HIDE()

Tout ça marchait bien quand j'utilisais Excel 2004.

 

[job75]

Re : macro 93 unhide chart

Tout ça marchait bien quand j'utilisais Excel 2004.

Croyez-moi, il est plus que temps de passer au VBA.

Juste une remarque, tirée de la Lien supprimé :

2 – Lorsqu’on rentre sur un fil, comme dans la vie de tous les jours, on est poli en disant « Bonjour ».

A+

 

[JPG]

Re : macro 93 unhide chart

Milles excuses,