OVH Cloud OVH Cloud

Erreur bizarre

1 réponse
Avatar
Patrice Henrio
Dans le code suivant, j'obtiens l'erreur "paramètre ByRef impossible pour ce
type" sur NbPtsAux qui est un integer.
La "bizarrerie", c'est que cela ne se produit que sur le case 1, alors qu'il
passe sasn problème dasn le case -1 et le case 0
Ce sont les mêmes paramètres d'une fois sur l'autre. Les Sub TraiterCas...
sont écrites pratiquement de la même façon et le passage de paramètres est
le mëme.

Select Case CadreApr
Case -1 'Apr est à l'extérieur, Il peut y avoir deux
intersection
TraiterCasExtExt PtAvt, PtApr, Ecran, Pt1, Pt2, _
NbPtsAux, NbEntrées, Entrées, _
PtsAux, CadreAvt, IndexPt, Coins
Case 0 'Apr est sur le cadre
TraiterCasExtCad PtAvt, PtApr, Ecran, Pt1, Pt2, _
NbPtsAux, NbEntrées, Entrées, _
PtsAux, CadreAvt, IndexPt, Coins, _
DrapeauCadre
Case 1 'Apr est à l'intérieur, il y une
intersection
TraiterCasExtInt PtAvt, PtApr, Ecran, Pt1, _
NbPtsAux, NbEntrées, Entrées, _
PtsAux, CadreAvt, IndexPt
End Select

Qui a le début d'une réponse ?

1 réponse

Avatar
Patrice Henrio
Désolé, j'ai posté trop vite.
L'erreur n'a rien à voir avec ce qui est indiqué par VB.
Il s'agit en fait d'une erreur de type, la sub attend un PointAPI et je lui
envoie un integer.

"Patrice Henrio" a écrit dans le message de
news: %23PSt9%
Dans le code suivant, j'obtiens l'erreur "paramètre ByRef impossible pour
ce type" sur NbPtsAux qui est un integer.
La "bizarrerie", c'est que cela ne se produit que sur le case 1, alors
qu'il passe sasn problème dasn le case -1 et le case 0
Ce sont les mêmes paramètres d'une fois sur l'autre. Les Sub TraiterCas...
sont écrites pratiquement de la même façon et le passage de paramètres est
le mëme.

Select Case CadreApr
Case -1 'Apr est à l'extérieur, Il peut y avoir
deux intersection
TraiterCasExtExt PtAvt, PtApr, Ecran, Pt1, Pt2, _
NbPtsAux, NbEntrées, Entrées, _
PtsAux, CadreAvt, IndexPt, Coins
Case 0 'Apr est sur le cadre
TraiterCasExtCad PtAvt, PtApr, Ecran, Pt1, Pt2, _
NbPtsAux, NbEntrées, Entrées, _
PtsAux, CadreAvt, IndexPt, Coins,
_
DrapeauCadre
Case 1 'Apr est à l'intérieur, il y une
intersection
TraiterCasExtInt PtAvt, PtApr, Ecran, Pt1, _
NbPtsAux, NbEntrées, Entrées, _
PtsAux, CadreAvt, IndexPt
End Select

Qui a le début d'une réponse ?