Discussion :

[xomus]

Mon probleme ?
une solution pour pouvoir dessiner le 2 eme cercle par rapport au premier ( les coordonnées du 2 eme par rapport au premier) , autrement dit je veux une relation entre les 2 fonctions et merci d'avance

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub trace_Buse()
    Dim e As Single
    Dim f As Single
    e = 200
    f = 200
    traceBuse e, f
End Sub
 
Function tracecable(pCentreX As Single, pCentreY As Single)
    ActiveSheet.Shapes.AddShape(msoShapeOval, cCentreX, cCentreY, 50, 50).Select
     Selection.ShapeRange.Fill.ForeColor.RGB = coul
End Function
Function trace_cable()
    Dim coul As String
    Dim e As Single
 
    Dim f As Single
    e = 200     'x
    f = 200      'y
    coul = RGB(240, 0, 0)
    tracecable e, f
End Function