Discussion :

[erfindel]

Bonjour,


je suis entrain de faire un traçage de flèche de ce tuto la

J'ai quelque soucis :

dans la fonction TraceFlch j'ai un souci avec Couleur je le remplace par LngBlck car je veux que mes fleche soit noire

Synthaxe d'origine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function TraceFlch(ByVal Couleur As Long, ByVal Taille As Long, ByVal Angle As Double) 
 
Dim v As Variant
Const CoeffTaille   As Double = 0.1         'Taille de la pointe : 10% longueur fleche
Const DecalAngle    As Double = 15          'Angle de la pointe : 5° par rapport au corps
 
'Définition de la couleur
 
    trCorps.BorderColor = Couleur
    trGauche.BorderColor = Couleur
    trDroit.BorderColor = Couleur

J'ai donc modifier :

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
Function TraceFlch(ByVal Taille As Long, ByVal Angle As Double)
 
Dim v As Variant
Const CoeffTaille   As Double = 0.1         'Taille de la pointe : 10% longueur fleche
Const DecalAngle    As Double = 15          'Angle de la pointe : 5° par rapport au corps
 
Dim lngBlack As Long
 
lngBlack = RGB(0, 0, 0)
 
'Définition de la couleur
 
    trCorps.BorderColor = lngBlack
    trGauche.BorderColor = lngBlack
    trDroit.BorderColor = lngBlack
...

Le souci est qu'il me sort une erreur sur cet ligne est je ne sait pas pourquoi

[Tofalu]

Bonjour,

Quel est le message d'erreur ?

Il est aussi possible d'utiliser les constantes de couleur. Exemple : vbBlack

[erfindel]

le message d'erreur :

Erreur d'execution : '424':

Objet requis

j'ai testé avec vbBlack rien de mieux

[Tofalu]

Tes 3 traits existent bien ?

[erfindel]

comment ça existe bien dans le code je suppose que oui c'est un copier/coller à part si il faut faire une manip que je n'ai pas faites


sinon dans mon formulaire je n'est encore rien tracer !

[Tofalu]

Si tu n'as pas tracer tes traits sur ton formulaire, tu ne peux pas y faire référence en VBA.

Place ces fameux trois petits traits (n'importe où et de n'importe quelle taille) le code se chargera ensuite d'en faire une flèche

[erfindel]

effectivement j'avais oublier de les créer

Comment j'appelle ma procédure ?

Code :

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

1
2
 
traceflch(Taille, Angle)=1

ne marche pas je ne comprend pas pourquoi il me demande de mettre égale à quelque chose