VBA : Passage de paramètres compliqué

[Anne1969]

Hello,

la réponse à ma question est sans doute trés bête mais je rame un peu là...

j'ai crée un fonction avec 6 paramètres...mais il est vrai que les données à passer en paramètres sont atypiques : ce sont des coordonnées geo avec beaucoup de décimales et ça ne passe pas tel quel et je ne sait pas comment faire :

subCalcul 789429,9490 1901391,89786 789454,56494 1901402,74160 789234,81975 1901429,92468

Si vous avez une idée, merci

 

[pierrejean]

Re : VBA : Passage de paramètres compliqué

bonjour ANNE

boule de cristal en revision

reseau telepathie haut debit en derangement

marc de café epuisé

peux-t-on en savoir un peu plus ???

 

[Anne1969]

Re : VBA : Passage de paramètres compliqué

Et bien, j'ai cette procédure :

Sub subCalcul(xPoint, yPoint, xPyl1, yPyl1, xPyl2, yPyl2 As Variant)

Dim coefDirAxe, coefDirPerpAxe, droiteAxe, droitePerpAxe As Variant

'Coef dir axe
coefDirAxe = (yPyl2 - yPyl1) / (xPyl2 - xPyl1)
MsgBox coefDirAxe
'Coef dir perp axe
coefDirPerpAxe = -((xPyl2 - xPyl1) / (yPyl2 - yPyl1))
MsgBox coefDirPerpAxe
'Droite de l'axe
droiteAxe = yPyl1 - (coefDirAxe * xPyl1)
MsgBox droiteAxe
'Droite perp de l'axe
droitePerpAxe = yPoint - (coefDirPerpAxe * xPoint)
MsgBox droitePerpAxe

End Sub

et je n'arrive pas à lancer cette procédure avec mes paramètres...j'ai une erreur :Erreur de compilation, Attendu : fin d'instruction

 

[pierrejean]

Re : VBA : Passage de paramètres compliqué

RE Anne

voila quelque chose qui fonctionne

Sub subCalcul(xPoint As Double, yPoint As Double, xPyl1 As Double, yPyl1 As Double, xPyl2 As Double, yPyl2 As Double)
Dim coefDirAxe As Double, coefDirPerpAxe As Double, droiteAxe As Double, droitePerpAxe As Double
'Coef dir axe
coefDirAxe = (yPyl2 - yPyl1) / (xPyl2 - xPyl1)
MsgBox coefDirAxe
'Coef dir perp axe
coefDirPerpAxe = -((xPyl2 - xPyl1) / (yPyl2 - yPyl1))
MsgBox coefDirPerpAxe
'Droite de l'axe
droiteAxe = yPyl1 - (coefDirAxe * xPyl1)
MsgBox droiteAxe
'Droite perp de l'axe
droitePerpAxe = yPoint - (coefDirPerpAxe * xPoint)
MsgBox droitePerpAxe
End Sub
Sub test()
Call subCalcul(789429.949, 1901391.89786, 789454.56494, 1901402.7416, 789234.81975, 1901429.92468)
End Sub

 

[Anne1969]

Re : VBA : Passage de paramètres compliqué

Merci beaucoup