type d'arguments ByRef incompatible

Bonjour,

J'ai une fonction que je déclare ainsi

Code:

---

1 2 3

Function ma_fonction(feuille As Worksheet) As Object ... End Function

---

que j'appelle ensuite avec une WorkSheet en arguments:

Code:

---

1 2 3 4

Dim Noms_Feuille As Object Dim feuille As Worksheet Set feuille = Worksheets("feuille") Noms_Feuille = ma_fonction(feuille)

---

cela me génère l'erreur type d'arguments ByRef incompatible

Je n'ai aucune idée de pourquoi, j'appelle bien ma fonction avec le bon type d'argument et c'est bien du Byref

Merci pour vos réponses.:ccool:

salut

j'ignore ce que tu cherches à faire dans ta fonction et crains le pire car le nom Noms_Feuille laisser penser que tu attends un string et non un objet.

Mais je veux croire qu'en dépit de son nom, tu attends que cette variable représente vraiment objet (ce que ta fonction semble vouloir retourner)...Je te rappelle alors simplement que la valeur d'une variable objet ne s'établit que par un Set
Ainsi donc ===>>

Code:

---

Set Noms_Feuille = ma_fonction(feuille)

---

(je reste cependant dubitatif sur ce que tu cherches à faire !)

Ce n'est pas la question... mais oui ma fonction renvoie bien un objet de type dictionnaire contenant les noms des différentes feuilles de mon classeur identifiées par des clefs. (une table de hash)

le fait de mettre set ne change rien.

Bon.
Nous allons voir cela.
Montre l'intégralité de ta fonction. Nous serons alors à même d'en parler en parfaite connaissance de cause

EDIT :

et il te suffit de faire cette petite expérience :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Private Sub CommandButton1_Click() Dim Noms_Feuille As Object Dim feuille As Worksheet Set feuille = Worksheets("feuille") Set Noms_Feuille = ma_fonction(feuille) ' ne provoque pas d'erreur 'Noms_Feuille = ma_fonction(feuille) ' <<=== ceci provoquera une erreur End Sub Function ma_fonction(feuille As Worksheet) As Object ' End Function

---

pour constater :
- qu'on attribue par Set un objet à une variable (erreur si non)
- que la connaissance du code de ta fonction est essentielle (sans rien dans la fonction : aucune erreur avec Set)

Ca ne vient pas du set (c'était juste un oubli) ce que je voulais dire c'est que même la plus simple des fonctions me génère la même erreur:

Code:

---

1 2 3

Function ma_fonction(feuille As Worksheet) As String ma_fonction = feuille.Name End Function

---

qd je teste: c'est toujours la même erreur:

Code:

---

1 2 3 4 5 6 7 8 9

Sub test()   Dim nom_feuille As String Dim Feuille As Worksheet Set Feuille = Worksheets("feuille") nom_feuille = ma_fonction(Feuille) Debug.Print nom_feuille   End Sub

---

Il doit y'avoir un truc que je ne vois pas!

Citation:

---

Envoyé par issoram

Ca ne vient pas du set (c'était juste un oubli) ce que je voulais dire c'est que même la plus simple des fonctions me génère la même erreur:

Code:

---

1 2 3

Function ma_fonction(feuille As Worksheet) As String ma_fonction = feuille.Name End Function

---

qd je teste: c'est toujours la même erreur:

Code:

---

1 2 3 4 5 6 7 8 9

Sub test()   Dim nom_feuille As String Dim Feuille As Worksheet Set Feuille = Worksheets("feuille") nom_feuille = ma_fonction(Feuille) Debug.Print nom_feuille   End Sub

---

Il doit y'avoir un truc que je ne vois pas!

---

ce code là ne peut que marcher et marche parfaitement (je viens de l'essayer) !
Encore faut-il qu'existe la feuille nommée "feuille" dans ton classeur actif !
Question : dans quoi as-tu placé ton code ?

Effectivement, le code précédent marche. Je viens de trouver ce qui faisait buguer le truc (mais je ne comprends absolument pas pourquoi). Je serais vraiment curieux d'avoir une explication.

ça vient du fait que je déclare 2 variables de type WorkSheet sur la même ligne (allez savoir pourquoi?).

Code:

---

Dim Feuille, Toto As Worksheet

---

Y'a t'il une erreur de syntaxe?
Alors que

Code:

---

1 2	Dim Feuille As Worksheet Dim Toto As Worksheet

---

fonctionne

Citation:

---

dans quoi as-tu placé ton code ?

---

je ne vois pas trop ce que tu veux dire?
il est dans un module vba...?

Au fait, merci de tes réponses

Citation:

---

Envoyé par issoram

Code:

---

1 2 3

Function ma_fonction(feuille As Worksheet) As String ma_fonction = feuille.Name End Function

---

qd je teste: c'est toujours la même erreur:

Il doit y'avoir un truc que je ne vois pas!

---

et :

Citation:

---

La feuille existe bien et un


Debug.Print Feuille.Name

me renvoie bien feuille.

---

:koi:
et qu'est-ce qui ne va alors pas ? :roll:
Si tu as un message d'erreur, il n'est certes pas provoqué par ce seul code-là, mais par d'autres instructions, ailleurs !

Cf message modifié ci dessus

rappelé plusieurs fois par semaine :
en VB :

Code:

---

Dim a, b as string

---

(exemple)
ne type que b en string (a reste non typé et donc un Variant) !

EDIT :
lu dans l'aide VBA pour l'argument type :

Citation:

---

Facultatif. Type de données de la variable ; elle peut être de type Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (non pris en charge actuellement), Date, String (pour les chaînes de longueur variable), String * length (pour les chaînes de longueur fixe), Object, Variant, un type défini par l'utilisateur ou un type objet. Utilisez une locution As type distincte pour chaque variable que vous déclarez.

---

Pour info:

Code:

---

Dim a, b as String

---

type bien a et b en String

Code:

---

typename(b)

---

renvoie String

Pour des objets:

Code:

---

Dim a, b as Object

---

ne type ni a ni b

Code:

---

1 2	typename(a) typename(b)

---

renvoient Nothing

Et c'est ensuite quand on affecte qqch à l'objet (au niveau du Set) que ça plante

j'ignore comment tu fais tes "tests" !!!
en voilà un :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim a, b As String MsgBox "a ===> " & TypeName(a) & vbCrLf & "b ===> " & TypeName(b) Dim c, d As Object MsgBox "c ===> " & TypeName(c) & vbCrLf & "d ===> " & TypeName(d) End Sub

---

seuls b et d sont typés (b en string et d en object (Nothing pour objet non encore existant.
a et c ne le sont pas (Empty retourné).

Tu as parfaitement raison.
désolé, il devait être tard...:zzz::zzz::zzz::zzz::zzz::zzz::zzz:

Bonsoir,
Étant programmeur en vba excel épisodique j'oublie parfois la réponse trouvée à un butoir deux ans plus tôt.
Je programme souvent en option explicit. Je pensais que cela suffisait mais aujourd'hui blocage.

Code:

---

Option Explicit

---

En déclaration de variables je viens de remarquer que parfois déclarer 2 variables de même type sur la même ligne génère le message

Code:

---

Dim Ip01, Dl01, Dc01 As Integer

---

En déclarant chaque variable sur une ligne différente le message disparaît lors de l'exécution.

Code:

---

1 2 3

Dim Ip01 As Integer Dim Dl01 As Integer Dim Dc01 As Integer

---

Les arcanes de la programmation sont parfois impénétrables!

Bonjour genets34
il ne s'agit pas de la nécessité de déclarer sur plusieurs lignes, mais de celle de typer expressément chaque variable (que ce soit sur une ligne ou plusieurs).
Exemple :

Code:

---

Dim Ip01 As Integer, Dl01 As Integer, Dc01 As Integer

---

Aide interne VBA (rubrique Dim, instruction) --->>

Citation:

---

Utilisez une locution As type distincte pour chaque variable que vous déclarez.

---