Discussion :

[fredieuric]

Bonjour,

J'essaye (en vain!!!) de tracer un arc de cercle sous Excel...

J'ai bien trouvé un moyen avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With Shapes.AddShape(msoShapeArc, 10, 10,20 ,30 )
End with

mais on obtient un arc de cercle d'angle 90°...

Moi, je voudrais:
- soit tracer un arc de cercle passant par trois points dont je connais les coordonnées (départ, milieu, arrivée);
- soit tracer un arc de cercle dont je connais le centre, le rayon l'angle de départ et celui d'arrivée.
... J'ai passé pas mal de temps sur le forum pour essayer de trouver une réponse, sans y parvenir.

Quelqu'un pourrait m'aider???

Merci d'avance!

[Chewi]

Bonjour fredieuric,

Voici un code trouvé sur internet en anglais, je l'ai modifié à tes besoins,
Il devrait pouvoir t'aider!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub DemiArcDeCercleVertical()
Dim x As Single
Dim y As Single
x = 258#
y = 68.25
ActiveSheet.Shapes.AddShape(msoShapeArc, x, y, 114#, 89.25).Select
Selection.ShapeRange.Adjustments.Item(2) = 270
End Sub
'La 1ère ligne dessine l'arc de coordonnées (258,62.25), largeur 114, hauteur
'89.25
'Et ensuite modifie l'angle de fin à 270°

Bien à toi,

Chewi

[fredieuric]

Un grand merci!

[fredieuric]

Une autre petite question toutefois...

A quoi sert le # après le 258 ou le 114???

Merci!

[AlainTech]

C'est un héritage des anciens BASICs.
Cela sert au typage explicite des données.
Inutile quand les variables ont déjà été typées.

Dans le cas présent, ce n'est même pas tout-à-fait correct puisque x a été typé Single alors qu'on lui envoie un Double (#).
Le typage explicite pour un Single est !.

Autrement dit, tu peux t'en passer et ça marchera tout aussi bien.