Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Gemini 3 Switch 2 Shein ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Probleme de shapes avec 2007

Probleme de shapes avec 2007

14 réponses
Avatar
Alain
Bonjour =E0 tous,

Sous excel 2003 j'ai construit un code permettant d'analyser des
informations chiffr=E9es en positionnant en regard de chaque information
une shape (un rectangle en l'occurence) de longueur proportionnelle =E0
la valeur analys=E9e

Autrement dit mon code permettait d'arriver =E0 une repr=E9sentation de
graphique en barre directement sur la feuille, sans passer par une
fonction graphique

Ce proc=E9d=E9 est extremement pratique, rapide, et peu gourmand en
m=E9moire, par ailleurs le temps de r=E9alisation restait tr=E8s
raisonnable, (exemple de l'ordre de 10 secondes pour plus de 1000
shapes)

Passage sous 2007 : le m=EAme code que celui employ=E9 sous 2003 se
d=E9roule TRES LENTEMENT et pratiquement s'arrete au bout d'une
cinquantaine de shapes.

Si quelqu'un a une id=E9e ! ..................il aura ma reconnaissance
=E9ternelle !

Alain Rousseau
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Alain
On 2 mar, 09:33, Daniel.C wrote:
Bonjour.
D'autant plus bizarre que je ne constate pas cette anomalie sur mon
ordi. Voici le classeur apr s ex cution de la macro :http://cjoint.com/?d ckHbXTYAL
Daniel



> On 1 mar, 16:28, Daniel.C wrote:
>>> je viens juste de faire l'essai, je n'ai pas encore tout
>>> compris ..........mais c'est magique!!

>> J'ai llimin ce qui ralentit l'ex cution :
>> - le rafraichissement de l' cran
>> - le recalcul automatique
>> - les "select" :
>> Ajout de :

>> Application.ScreenUpdating = False
>> Application.Calculation = xlCalculationManual

>> en d but de macro

>> repositionnement en fin de macro :
>> Application.Calculation = xlCalculationAutomatic
>> Application.ScreenUpdating = True

>> Dans la macro "graph_latable"
>> j'ai mis :

>> Set sh = ActiveSheet.Shapes.AddShape(1, position_H, lapositionv,
>> lalargeur, lahauteur)

>> au lieu de :

>> ActiveSheet.Shapes.AddShape(1, position_H, lapositionv, lalargeur,
>> lahauteur).Select

>> sh.DrawingObject.Interior.ColorIndex = lacouleur

>> au lieu de :

>> Selection.Interior.ColorIndex = lacouleur

>> sh.Name = lenom_graph

>> au lieu de :

>> Selection.Name = lenom_graph

>> Daniel

> Vraiement bien !
> reste un seul pb tr s piegeux :
> Autant dans xl2003 il n'ya pas de pb pour que la shape s'inscrive
> exactement dans la hauteur de la ligne, autant dans 2007 ce n'est pas
> le cas, l'on s'en rend compte  en regardant le bout de la liste, les
> dessin ne cadrent plus

> je m'en sors en reduisant la hauteur du rectangele par rapport la
> hauteur de la ligne, et en centrant celui ci sur la ligne
> par exemple
> lahauteur=groupe.height-10
> laposition=groupe.rows.top+5

> C'est bizarre, et c'est pas cel qui me fera changer d'avis sur
> 2007 ............grgrgrgrgr!!!

> Un grand merci pour ton aide

> Alain- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Ok j'ai bien vu ton test qui qui marche correctement chez toi
ci joint le résultat du traitement de ce fichier chez moi
http://www.cijoint.fr/cjlink.php?file=cj201003/cijCToynD7.xlsm

A ton avis dans quelle direction chercher la cause : Excel ? ou
Windows ? (m'etonnerait) .... ??
Pour le momement je n'ai qu'un PC équipé de 2007

Si tu as une idée, merci d'avance

Alain
Avatar
Daniel.C
> Pour le momement je n'ai qu'un PC équipé de 2007

Si tu as une idée, merci d'avance

Alain



J'ai testé également avec XL 2007. Sans que je puisse l'expliquer, la
hauteur des shapes est de 0,45 pour une ligne de 12,75 points chez toi
alors qu'elle est de 0,46 cm chez moi. Tu dois pouvoir mettre cette
valeur en constante, mais ça n'explique rien.
Daniel
Avatar
Daniel.C
En guise de consolation, j'ai optimisé la macro efface_graph :

Sub efface_graph()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
On Error Resume Next
For Each sh In ActiveSheet.Shapes
If sh.Name = "zozo" Then sh.Delete
Next
On Error GoTo 0
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Daniel

On 2 mar, 09:33, Daniel.C wrote:
Bonjour.
D'autant plus bizarre que je ne constate pas cette anomalie sur mon
ordi. Voici le classeur apr s ex cution de la macro
:http://cjoint.com/?dckHbXTYAL Daniel



On 1 mar, 16:28, Daniel.C wrote:
je viens juste de faire l'essai, je n'ai pas encore tout
compris ..........mais c'est magique!!


J'ai llimin ce qui ralentit l'ex cution :
- le rafraichissement de l' cran
- le recalcul automatique
- les "select" :
Ajout de :





Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
en d but de macro





repositionnement en fin de macro :
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True





Dans la macro "graph_latable"
j'ai mis :





Set sh = ActiveSheet.Shapes.AddShape(1, position_H, lapositionv,
lalargeur, lahauteur)





au lieu de :





ActiveSheet.Shapes.AddShape(1, position_H, lapositionv, lalargeur,
lahauteur).Select





sh.DrawingObject.Interior.ColorIndex = lacouleur
au lieu de :





Selection.Interior.ColorIndex = lacouleur
sh.Name = lenom_graph





au lieu de :





Selection.Name = lenom_graph





Daniel





Vraiement bien !
reste un seul pb tr s piegeux :
Autant dans xl2003 il n'ya pas de pb pour que la shape s'inscrive
exactement dans la hauteur de la ligne, autant dans 2007 ce n'est pas
le cas, l'on s'en rend compte  en regardant le bout de la liste, les
dessin ne cadrent plus



je m'en sors en reduisant la hauteur du rectangele par rapport la
hauteur de la ligne, et en centrant celui ci sur la ligne
par exemple
lahauteur=groupe.height-10
laposition=groupe.rows.top+5



C'est bizarre, et c'est pas cel qui me fera changer d'avis sur
2007 ............grgrgrgrgr!!!



Un grand merci pour ton aide



Alain- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -



Ok j'ai bien vu ton test qui qui marche correctement chez toi
ci joint le résultat du traitement de ce fichier chez moi
http://www.cijoint.fr/cjlink.php?file=cj201003/cijCToynD7.xlsm

A ton avis dans quelle direction chercher la cause : Excel ? ou
Windows ? (m'etonnerait) .... ??
Pour le momement je n'ai qu'un PC équipé de 2007

Si tu as une idée, merci d'avance

Alain


Avatar
Alain
On 2 mar, 15:06, Daniel.C wrote:
En guise de consolation, j'ai optimis la macro efface_graph :

Sub efface_graph()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    On Error Resume Next
For Each sh In ActiveSheet.Shapes
    If sh.Name = "zozo" Then sh.Delete
Next
    On Error GoTo 0
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

Daniel



> On 2 mar, 09:33, Daniel.C wrote:
>> Bonjour.
>> D'autant plus bizarre que je ne constate pas cette anomalie sur mon
>> ordi. Voici le classeur apr s ex cution de la macro
>> :http://cjoint.com/?dckHbXTYALDaniel

>>> On 1 mar, 16:28, Daniel.C wrote:
>>>>> je viens juste de faire l'essai, je n'ai pas encore tout
>>>>> compris ..........mais c'est magique!!
>>>> J'ai llimin ce qui ralentit l'ex cution :
>>>> - le rafraichissement de l' cran
>>>> - le recalcul automatique
>>>> - les "select" :
>>>> Ajout de :

>>>> Application.ScreenUpdating = False
>>>> Application.Calculation = xlCalculationManual
>>>> en d but de macro

>>>> repositionnement en fin de macro :
>>>> Application.Calculation = xlCalculationAutomatic
>>>> Application.ScreenUpdating = True

>>>> Dans la macro "graph_latable"
>>>> j'ai mis :

>>>> Set sh = ActiveSheet.Shapes.AddShape(1, position_H, lapositionv,
>>>> lalargeur, lahauteur)

>>>> au lieu de :

>>>> ActiveSheet.Shapes.AddShape(1, position_H, lapositionv, lalargeur,
>>>> lahauteur).Select

>>>> sh.DrawingObject.Interior.ColorIndex = lacouleur
>>>> au lieu de :

>>>> Selection.Interior.ColorIndex = lacouleur
>>>> sh.Name = lenom_graph

>>>> au lieu de :

>>>> Selection.Name = lenom_graph

>>>> Daniel

>>> Vraiement bien !
>>> reste un seul pb tr s piegeux :
>>> Autant dans xl2003 il n'ya pas de pb pour que la shape s'inscrive
>>> exactement dans la hauteur de la ligne, autant dans 2007 ce n'est pas
>>> le cas, l'on s'en rend compte en regardant le bout de la liste, les
>>> dessin ne cadrent plus

>>> je m'en sors en reduisant la hauteur du rectangele par rapport la
>>> hauteur de la ligne, et en centrant celui ci sur la ligne
>>> par exemple
>>> lahauteur=groupe.height-10
>>> laposition=groupe.rows.top+5

>>> C'est bizarre, et c'est pas cel qui me fera changer d'avis sur
>>> 2007 ............grgrgrgrgr!!!

>>> Un grand merci pour ton aide

>>> Alain- Masquer le texte des messages pr c dents -

>> - Afficher le texte des messages pr c dents -

> Ok j'ai bien vu ton test qui qui marche correctement chez toi
> ci joint le r sultat du traitement de ce fichier chez moi
>        http://www.cijoint.fr/cjlink.php?file=cj201003/cijCToy nD7.xlsm

> A ton avis dans quelle direction chercher la cause :   Excel ? ou
> Windows ? (m'etonnerait) .... ??
> Pour le momement je n'ai qu'un PC quip de 2007

> Si tu as une id e, merci d'avance

> Alain- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



OK pb terminé
Pas vraiement passionné par 2007, je n'avais pas chargé le pack2 je
viens de le faire et tout baigne!!

OUF! je me sentais assez mal avec ce pb, et ton intervention m'a
remonté le moral

Alain
1 2