Call fonction avec arguments en vba ?
Résolu
printfx000
-
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un problème avec la fonction call en vba. Mon code est le suivant:
Private Function Gauche(x As Integer, y As Integer)
If Cells(x, y - 1) = "" Then
Call Gauche(x, y - 1)
End If
End Function
Sub Macro1()
Dim x, y As Integer
x = 1
y = 10
Call Gauche(x, y)
Cells(x, y).Select
End Sub
A chaque execution, j'ai le message: Type d'argument ByRef incompatible.
Pourriez vous m'aider, svp ?
j'ai un problème avec la fonction call en vba. Mon code est le suivant:
Private Function Gauche(x As Integer, y As Integer)
If Cells(x, y - 1) = "" Then
Call Gauche(x, y - 1)
End If
End Function
Sub Macro1()
Dim x, y As Integer
x = 1
y = 10
Call Gauche(x, y)
Cells(x, y).Select
End Sub
A chaque execution, j'ai le message: Type d'argument ByRef incompatible.
Pourriez vous m'aider, svp ?
A voir également:
- Call function vba
- Excel compter cellule couleur sans vba - Guide
- Call identifier 2.08 - Télécharger - Téléphonie & Visio
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
11 réponses
Bonjour
Dans ta fonction tu reappel ta fonction c pas terrible comme facon de faire tu devrai plutot faire une boucle.
ton but est de trouver la derniere colonne ecrite de la 1 ere ligne ?
Dans ta fonction tu reappel ta fonction c pas terrible comme facon de faire tu devrai plutot faire une boucle.
ton but est de trouver la derniere colonne ecrite de la 1 ere ligne ?
en fait, je compte faire une fonction recursive. pour le moment, le but de la fonction n'a pas trop d'importance, c'est juste pour l'exemple.
Mon problème, c'est que j'arrive pas à rentrer dans ma fonction lors de l'instruction Call.
Comment faire ?
Mon problème, c'est que j'arrive pas à rentrer dans ma fonction lors de l'instruction Call.
Comment faire ?
Bah t deja dedans tu n'a cas bouclé au lieu de faire un appel de celle ci !!!
Private Function Gauche(x As Integer, y As Integer)
Do While Cells(x, y - 1) = ""
y = y - 1
Loop
End Function
Sub test()
Dim test As Variant
test = Gauche(1, 10)
End Sub
Private Function Gauche(x As Integer, y As Integer)
Do While Cells(x, y - 1) = ""
y = y - 1
Loop
End Function
Sub test()
Dim test As Variant
test = Gauche(1, 10)
End Sub
Bonjour,
Très bien de te lancer dans la récursivité, mais au préalable, pose ton problème.
Exemple de récursivité avec la une simple addition des nombres de 10 à 1 :
Et la macro d'appel correspondante :
Très bien de te lancer dans la récursivité, mais au préalable, pose ton problème.
Exemple de récursivité avec la une simple addition des nombres de 10 à 1 :
Private Function Addition(x As Integer) As Integer
If x = 0 Then
Addition = 0
Else
Addition = Addition(x - 1) + x 'la récursivité se trouve ici!!!
End If
End Function
Et la macro d'appel correspondante :
Sub AppelMaFonction() Debug.Print Addition(10) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
bonjour
pour le message d'erreur Type d'argument ByRef incompatible, dans ta macro modifie la déclaration des variables comme ceci:
bonne suite
pour le message d'erreur Type d'argument ByRef incompatible, dans ta macro modifie la déclaration des variables comme ceci:
Dim x As Integer Dim y As Integer
bonne suite
J'ai réussi à résoudre mon problème.
Il fallait que je déclare une variable de type variant et que je l'initialise avec ma fonction pour que ça marche.
(ex: Move=Fonction(x,y)).
Sinon, un dernier truc sans rapport particulier avec ce qui est été dit précédemment: savez vous s'il existe une fonction en vba permettant de stopper ou d'arrêter l'execution de la macro en cours ?
Il fallait que je déclare une variable de type variant et que je l'initialise avec ma fonction pour que ça marche.
(ex: Move=Fonction(x,y)).
Sinon, un dernier truc sans rapport particulier avec ce qui est été dit précédemment: savez vous s'il existe une fonction en vba permettant de stopper ou d'arrêter l'execution de la macro en cours ?
Merci de ta réponse.
J'ai essayé, mais on m'affiche un message du type 'Exit Sub' inutilisable dans une fonction ou une procédure.
Or, il faudrait que j'arrête le macro si ma condition dans ma fonction est vérifié ... Y'a t'il un autre moyen ?
J'ai essayé, mais on m'affiche un message du type 'Exit Sub' inutilisable dans une fonction ou une procédure.
Or, il faudrait que j'arrête le macro si ma condition dans ma fonction est vérifié ... Y'a t'il un autre moyen ?
