Discussion :

[Callaway]

Bonjour,

J'ai une fonction :

Code :

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

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 :

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

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 :

Erreur de compilation : Type d'argument ByRef Imcompatible.

Auriez-vous une idée du purquoi ?

Merci d'avance

[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

[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 :

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

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