Argument d'une fonction

Version imprimable

Bonjour,

J'ai une fonction :

Code:

1
2
3
4
5
Function ChargeTableau(iResult As Integer, iListe As Integer, rListe As Range, rResult As Range) As Integer
    rResult.Offset(iResult, 5) = rListe.Offset(iListe, 8).Value
    rResult.Offset(iResult, 6) = rListe.Offset(iListe, 9).Value
    If rListe.Offset(iListe, 8).Value > 0 Then rResult.Offset(iResult, 7) = (rListe.Offset(iListe, 9).Value / rListe.Offset(iListe, 8).Value) * 100
End Function

Quand j'appel la fonction :

Code:

1
2
3
4
5
6
7
8
9
Public Sub TableauCroise()
   Dim iStatus, iListe, iResult As Integer
   Dim rListe, rResult As Range
 
   ...
 
   iStatus = ChargeTableau(iResult, iListe, rListe, rResult)
 
end Sub

J'ai le message :

Citation:

Erreur de compilation : Type d'argument ByRef Imcompatible.

Auriez-vous une idée du purquoi ?

Merci d'avance

27/08/2009, 16h24
Krovax

Bonjour, de la lecture pour toi la réponse est a mon avis dedans

Car parmi les variable que tu lui passe en argument il y a plus de variant que d'integer ou de range ;) Je ne suis pas sur que ce soit le problème mais commence par le régler

Fondements sur les variables et les constantes

Ensuite j'allai te donner un lien pour apprendre a utiliser les balise de code mais il a disparu donc tu sélectionne le code et dans les boutons au dessus de la fenêtre pour taper un message tu clique sur le petit #
et la tu voi apparatre [/CODE] a la fin de la selection et [CODE] au début
Ca permet d'avoir un code lisible et pas l'immonde pâté que tu nous a pondu :mouarf:
27/08/2009, 16h27
david_atx
iliste dans ta déclaration si je dis pas de bétise c'est un variant et pas un integer

les virgules pour la déclaration il me semble que ca pose des soucis

essaye de mettre
Code:

1 2 3 4 5 Dim iStatus As Integer Dim iListe As Integer Dim iResult As Integer Dim rListe As Range Dim rResult As Range
pour le reste ta fonction est bien compliqué pour pas grand chose
tu pourrais presque te passer des rResult et iResult en la changeant un peu

mais bon

EDIT : c'est finit krovax de me griller aujourd'hui :)