Salut

J'ai un petit problème dans une condition. Ca me dit comme erreur dans le Debug:
There is no source code available for the current location.

Mon menu est dans ma Form1 et il se nomme vraiment mnuPointAzimut

Et le prob. se produit dans une Fonction qui est dans un Module

P.S. quand j'inscrit le code Form1. (après avoir écrit le point, ca me suggère mnuPointAzimut), etc...Bref j'ai pas de faute de frappe

merci d'avance

If

CompteurFormule = 2 Then
   AzimutDMS = Convert.ToDouble(Form1.txtAzimutSaisi.Text)
ElseIf CompteurFormule = 3 Then
   AzimutDMS = Convert.ToDouble(Form1.txtAzimutTA.Text)
ElseIf Form1.mnuPointAzimut.Checked = TrueThen ' C'est ici le problème
   AzimutDMS = Convert.ToDouble(Form1.txtPoint4.Text)
ElseIf Form1.mnuAzimutAzimut.Checked = TrueThen
   AzimutDMS = Convert.ToDouble(Form1.txtPoint2.Text)
   AzimutDMS2 = Convert.ToDouble(Form1.txtPoint4.Text)
   Degres__ = Convert.ToDouble(Fix(AzimutDMS2))
   Minutes__ = Convert.ToDouble(Fix((AzimutDMS2 - Degres__) * 100))
   Secondes__ = Convert.ToDouble((((AzimutDMS2 - Degres__) * 100) - Minutes__) * 100)
   Azimut2 = (((Secondes__ / 60) + Minutes__) / 60) + Degres__
EndIf

"Et le prob. se produit dans une Fonction qui est dans un Module"
La réponse je pense est là  : Form1 n'est pas déclaré dans ton module.
Comment passe-tu ta fonction ?

Bien par exmeple...

Variable = DMS_en_DegreDecimal()

Où DMS_en_DegreDecimal() est la Fonction dans le Module

Réponse acceptée !
La portée de ton contrôle est limitée à ta form, soit tu le rends public de manière à ce qu'il soit visible par ton module
soit tu le transmet dans ta fonction

Variable = DMS_en_DegreDecimal(Me.mnuPointAzimut)
et dans ta fonction
Public Function DMS_en_DegreDecimal(Byval mnuPointAzimut as CheckedBox) as double