Discussion :

[issoram]

Bonjour,

J'ai une fonction que je déclare ainsi

Code :

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

1
2
3
Function ma_fonction(feuille As Worksheet) As Object
...
End Function

que j'appelle ensuite avec une WorkSheet en arguments:

Code :

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

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.

[babaothe]

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 :

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

Set Noms_Feuille = ma_fonction(feuille)

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

[issoram]

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.

[babaothe]

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 :

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

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)

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

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

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 :

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

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!

[babaothe]

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 :

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

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 :

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

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 ?

[issoram]

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 :

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

Dim Feuille, Toto As Worksheet

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

Code :

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

1
2
Dim Feuille As Worksheet
Dim Toto As Worksheet

fonctionne

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

[babaothe]

Code :

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

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 :

La feuille existe bien et un


Debug.Print Feuille.Name

me renvoie bien feuille.

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

[issoram]

Cf message modifié ci dessus

[babaothe]

rappelé plusieurs fois par semaine :
en VB :

Code :

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

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 :

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.

[issoram]

Pour info:

Code :

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

Dim a, b as String

type bien a et b en String

Code :

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

typename(b)

renvoie String

Pour des objets:

Code :

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

Dim a, b as Object

ne type ni a ni b

Code :

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

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

[babaothe]

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

Code :

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

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é).

[issoram]

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

[genets34]

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 :

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

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 :

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

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 :

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

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!

[unparia]

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 :

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

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

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

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