Lier la dimension d'une forme vectorielle au contenu d'une cellule
5 réponses
Back in white
Bonjour à tous,
ce sont mes premiers pas dans un groupe de discussion de ce genre.
Le probleme qui me preocupe est le suivant:
Je dispose d'une liste de données chiffrées (une colonne Excel) comprises
entre les valeurs 200 et 999.
Je souhaiterais, en cliquant simplement dans la cellule choisie de ma liste
, voir apparaitre un cercle proportionnel à la valeur inscrite.
J'utilise Excel 2000.
Mon niveau de de programation VBA est voisin de nul: je comprends ce que je
lis, mais je suis incapable d'ecrire. Mais je suis têtu...
Si vous avez une idée, une piste à suivre, un tutorial à étudier, j'en
serais ravis.
Je vous souhaite une bonne journée.
--
a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 (Voir dans le code zz/5)
AV
Back in white
!!!!! Eh bien, me voila comblé! je n'en esperais pas tant, ni , si vite. Merci beaucoup, pour cette exemple. Je vais etudier le code et tacher de l'adapter à mes besoins Encore une fois merci! -- a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 (Voir dans le code zz/5)
AV
!!!!! Eh bien, me voila comblé! je n'en esperais pas tant, ni , si vite.
Merci beaucoup, pour cette exemple.
Je vais etudier le code et tacher de l'adapter
à mes besoins
Encore une fois merci!
--
a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5
(Voir dans le code zz/5)
!!!!! Eh bien, me voila comblé! je n'en esperais pas tant, ni , si vite. Merci beaucoup, pour cette exemple. Je vais etudier le code et tacher de l'adapter à mes besoins Encore une fois merci! -- a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 (Voir dans le code zz/5)
AV
Back in white
Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que j'ai quelques difficultés à l'adapter à ma main. J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner le cercle ailleurs dans la feuille. Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il se ''décale'' à chaque fois. Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce probleme, et de lui ré-attribuer un centre.... central en son centre absolu...de cercle. Si vous avez une idée: elle est la bienvenue. Merci d'avance. Bonne soirée.
-- a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 (Voir dans le code zz/5)
AV
Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que
j'ai
quelques difficultés à l'adapter à ma main.
J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner
le cercle ailleurs dans la feuille.
Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se
comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il
se
''décale'' à chaque fois.
Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce
probleme, et de lui ré-attribuer un centre.... central en son centre
absolu...de cercle.
Si vous avez une idée: elle est la bienvenue.
Merci d'avance. Bonne soirée.
--
a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5
(Voir dans le code zz/5)
Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que j'ai quelques difficultés à l'adapter à ma main. J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner le cercle ailleurs dans la feuille. Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il se ''décale'' à chaque fois. Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce probleme, et de lui ré-attribuer un centre.... central en son centre absolu...de cercle. Si vous avez une idée: elle est la bienvenue. Merci d'avance. Bonne soirée.
-- a force de patauger, on fini par...nager!
Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 (Voir dans le code zz/5)
AV
Alain CROS
Bonjour,
Avec un petit calcul peut être !
Pour le centre sur le coin haut gauche de la cellule F10:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$2" Then Exit Sub On Error Resume Next With ActiveSheet .Shapes("Cercle").Delete .Shapes.AddShape(msoShapeOval, [F10].Left - zz / 10, _ [F10].Top - zz / 10, zz / 5, zz / 5).Name = "Cercle" End With End Sub
Alain CROS
"Back in white" a écrit dans le message de news:
| Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que | j'ai | quelques difficultés à l'adapter à ma main. | J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner | le cercle ailleurs dans la feuille. | Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se | comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il | se | ''décale'' à chaque fois. | Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce | probleme, et de lui ré-attribuer un centre.... central en son centre | absolu...de cercle. | Si vous avez une idée: elle est la bienvenue. | Merci d'avance. Bonne soirée. | | -- | a force de patauger, on fini par...nager! | | | | > Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz | > | > Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 | > (Voir dans le code zz/5) | > | > AV | > | > | >
Bonjour,
Avec un petit calcul peut être !
Pour le centre sur le coin haut gauche de la cellule F10:
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$2" Then Exit Sub
On Error Resume Next
With ActiveSheet
.Shapes("Cercle").Delete
.Shapes.AddShape(msoShapeOval, [F10].Left - zz / 10, _
[F10].Top - zz / 10, zz / 5, zz / 5).Name = "Cercle"
End With
End Sub
Alain CROS
"Back in white" <Backinwhite@discussions.microsoft.com> a écrit dans le message de news:
36A04D22-2757-43C5-AAFD-AE8D44CFCE69@microsoft.com...
| Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que
| j'ai
| quelques difficultés à l'adapter à ma main.
| J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner
| le cercle ailleurs dans la feuille.
| Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se
| comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il
| se
| ''décale'' à chaque fois.
| Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce
| probleme, et de lui ré-attribuer un centre.... central en son centre
| absolu...de cercle.
| Si vous avez une idée: elle est la bienvenue.
| Merci d'avance. Bonne soirée.
|
| --
| a force de patauger, on fini par...nager!
|
|
|
| > Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
| >
| > Adapte l'échelle. Je l'ai mise (au hasard) au 1/5
| > (Voir dans le code zz/5)
| >
| > AV
| >
| >
| >
Pour le centre sur le coin haut gauche de la cellule F10:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$2" Then Exit Sub On Error Resume Next With ActiveSheet .Shapes("Cercle").Delete .Shapes.AddShape(msoShapeOval, [F10].Left - zz / 10, _ [F10].Top - zz / 10, zz / 5, zz / 5).Name = "Cercle" End With End Sub
Alain CROS
"Back in white" a écrit dans le message de news:
| Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que | j'ai | quelques difficultés à l'adapter à ma main. | J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner | le cercle ailleurs dans la feuille. | Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se | comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il | se | ''décale'' à chaque fois. | Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce | probleme, et de lui ré-attribuer un centre.... central en son centre | absolu...de cercle. | Si vous avez une idée: elle est la bienvenue. | Merci d'avance. Bonne soirée. | | -- | a force de patauger, on fini par...nager! | | | | > Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz | > | > Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 | > (Voir dans le code zz/5) | > | > AV | > | > | >
Back in white
Bonjour Alain, merci pour ta réponse rapide et efficace. Oui, cela fonctionne parfaitement à mon gout. Me voila l'heureux possèsseur d'un cercle... centré! Si je peux t'aider (dans d'autres domaines que l'informatique, naturellement) construction, renovation, mecanique de precision, sonorisation, je le ferai avec plaisir. N'hésites pas à me contacter. Bonne journée. -- a force de patauger, on fini par...nager!
Bonjour,
Avec un petit calcul peut être !
Pour le centre sur le coin haut gauche de la cellule F10:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$2" Then Exit Sub On Error Resume Next With ActiveSheet .Shapes("Cercle").Delete .Shapes.AddShape(msoShapeOval, [F10].Left - zz / 10, _ [F10].Top - zz / 10, zz / 5, zz / 5).Name = "Cercle" End With End Sub
Alain CROS
"Back in white" a écrit dans le message de news:
| Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que | j'ai | quelques difficultés à l'adapter à ma main. | J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner | le cercle ailleurs dans la feuille. | Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se | comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il | se | ''décale'' à chaque fois. | Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce | probleme, et de lui ré-attribuer un centre.... central en son centre | absolu...de cercle. | Si vous avez une idée: elle est la bienvenue. | Merci d'avance. Bonne soirée. | | -- | a force de patauger, on fini par...nager! | | | | > Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz | > | > Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 | > (Voir dans le code zz/5) | > | > AV | > | > | >
Bonjour Alain,
merci pour ta réponse rapide et efficace.
Oui, cela fonctionne parfaitement à mon gout.
Me voila l'heureux possèsseur d'un cercle... centré!
Si je peux t'aider (dans d'autres domaines que l'informatique, naturellement)
construction, renovation, mecanique de precision, sonorisation,
je le ferai avec plaisir. N'hésites pas à me contacter.
Bonne journée.
--
a force de patauger, on fini par...nager!
Bonjour,
Avec un petit calcul peut être !
Pour le centre sur le coin haut gauche de la cellule F10:
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$2" Then Exit Sub
On Error Resume Next
With ActiveSheet
.Shapes("Cercle").Delete
.Shapes.AddShape(msoShapeOval, [F10].Left - zz / 10, _
[F10].Top - zz / 10, zz / 5, zz / 5).Name = "Cercle"
End With
End Sub
Alain CROS
"Back in white" <Backinwhite@discussions.microsoft.com> a écrit dans le message de news:
36A04D22-2757-43C5-AAFD-AE8D44CFCE69@microsoft.com...
| Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que
| j'ai
| quelques difficultés à l'adapter à ma main.
| J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner
| le cercle ailleurs dans la feuille.
| Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se
| comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il
| se
| ''décale'' à chaque fois.
| Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce
| probleme, et de lui ré-attribuer un centre.... central en son centre
| absolu...de cercle.
| Si vous avez une idée: elle est la bienvenue.
| Merci d'avance. Bonne soirée.
|
| --
| a force de patauger, on fini par...nager!
|
|
|
| > Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz
| >
| > Adapte l'échelle. Je l'ai mise (au hasard) au 1/5
| > (Voir dans le code zz/5)
| >
| > AV
| >
| >
| >
Bonjour Alain, merci pour ta réponse rapide et efficace. Oui, cela fonctionne parfaitement à mon gout. Me voila l'heureux possèsseur d'un cercle... centré! Si je peux t'aider (dans d'autres domaines que l'informatique, naturellement) construction, renovation, mecanique de precision, sonorisation, je le ferai avec plaisir. N'hésites pas à me contacter. Bonne journée. -- a force de patauger, on fini par...nager!
Bonjour,
Avec un petit calcul peut être !
Pour le centre sur le coin haut gauche de la cellule F10:
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$2" Then Exit Sub On Error Resume Next With ActiveSheet .Shapes("Cercle").Delete .Shapes.AddShape(msoShapeOval, [F10].Left - zz / 10, _ [F10].Top - zz / 10, zz / 5, zz / 5).Name = "Cercle" End With End Sub
Alain CROS
"Back in white" a écrit dans le message de news:
| Rebonsoir , ce petit programme fait exactement ce que je souhaite, sauf que | j'ai | quelques difficultés à l'adapter à ma main. | J'ai trouvé comment changer l'echelle. Parfait. De meme, comment repositioner | le cercle ailleurs dans la feuille. | Ce qui me fait defaut: lors de son accroissement ou reduction, le cercle se | comporte comme si son centre relatif etait situé à gauche. Ce qui fait qu'il | se | ''décale'' à chaque fois. | Je n'arrive pas à trouver la maniere (si elle existe) de corriger ce | probleme, et de lui ré-attribuer un centre.... central en son centre | absolu...de cercle. | Si vous avez une idée: elle est la bienvenue. | Merci d'avance. Bonne soirée. | | -- | a force de patauger, on fini par...nager! | | | | > Regarde là si ça te convient ? : http://cjoint.com/?cqrOok21Rz | > | > Adapte l'échelle. Je l'ai mise (au hasard) au 1/5 | > (Voir dans le code zz/5) | > | > AV | > | > | >
