Discussion :

[kissmytoe]

Bonjour à tous
Je veux envoyer un listbox à une fonction.

Je fais comme ceci :

Code :

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

1
2
3
creerTableauExcel anneeDebut, anneeFin, moisDebut, moisFin, numeroTYPEDONNEE, _
                Me!lstSh810, Me!lstProvinces, Me!lstPays, Me!CocherTousProvinces.Value, _
                Me!CocherTousPays.Value

Ceci a fonctionné et j'ai même utilisé le listbox "lstSh810" à l'intérieur de ma fonction.

Et un moment donnée. Ça a affiché le message suivant : "Utilisation incorect de null".
Bien entendu le listbox ayant le nom lstSh810 existe réellement alors il ne doit pas être null.

Quelqu'un comprend l'erreur???

Mary

[Dolphy35]

Salut,

et le débogueur s'arrête où ? Tous tes paramètres ont-ils une valeurs ?

Sinon montre nous ta fonction.

[kissmytoe]

Le débugger s'arrête sur la ligne que j'ai affiché, l'appel de la fonction creerFichierExcel

anneeDebut = "1996"
anneeFin = "2005"
moisDebut = ""
moisFin = ""
numeroTYPEDONNEE = 2
Me.lstSh810 = Null
Me.lstProvinces = Null
Me.lstPays = Null
CocherTousProvince = 0
CocherTousPays = 0

[Arkham46]

slt,

le listbox ayant le nom lstSh810 existe réellement alors il ne doit pas être null.

c'est pas le contrôle qui est null, c'est sa valeur

à tester au préalable avec IsNull ou utiliser la fonction Nz pour transformer le Null en chaîne vide

[Dolphy35]

re,

tu peux mettre ta fonction, stp.

[kissmytoe]

Ca change rien de mettre ma fonction.
Il n'entre jamais dans ma fonction.

Lorsqu'il j'essai de l'appelé ca plante tout simplement.

Je peux toujours te mettre l'en-tête de la fonction si tu veux.

Code :

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

1
2
Function creerTableauExcel(ByVal anneeDebut As String, ByVal anneeFin As String, ByVal moisDebut As String, ByVal moisFin As String, _
                         ByVal numeroTYPEDONNEE As Integer, ByRef listSH810 As listBox, ByRef listProvinces As listBox, ByRef listPays As listBox, ByVal tousProvinces As Boolean, ByVal tousPays As Boolean)

[Arkham46]

alors pour passer l'objet contrôle met un point à la place du point d'exclamation

le point d'exclamation c'est pour travailler sur le recordset du formulaire, donc c'est le champ de la source qui est renvoyé, pas le contrôle

[=JBO=]

Bonjour le Québec (ça fait plaisir ),

{EDIT} Ce qui suit n'est pas une solution au Pb évoqué.
Néanmoins, je suggère quand même d'éviter de typer les paramètres d'une fonction quand les valeurs de paramètres sont directement obtenues à partir de la propriété Value d'un contrôle, afin de "tolérer" une valeur Null toujours possible.{/EDIT}

Le Pb présenté me rappelle certains soucis.
Qu'est-ce qui te fait croire que le contrôle ListBox est à l'origine de l'erreur "Utilisation incorrecte de Null" ?

Ceci a fonctionné et j'ai même utilisé le listbox "lstSh810" à l'intérieur de ma fonction.

Et un moment donnée. Ça a affiché le message suivant : "Utilisation incorect de null".
Bien entendu le listbox ayant le nom lstSh810 existe réellement alors il ne doit pas être null.

En fait, d'après mon expérience, le Pb vient plutôt du typage des paramètres de la fonction qui se révèlent incompatibles avec le formulaire qui contient les contrôles, quand la source de données de ce formulaire est vide (ou encore à l'ouverture du formulaire, avant le chargement des données).
En effet, dans le cas d'une source de données vide, l'expression Me!CocherTousProvinces.Value retourne Null, ce qui est incompatible avec le type Boolean.

Aussi je te suggère, en ce qui concerne les valeurs de paramètres directement obtenues à partir des contrôles, d'utiliser plutôt un type Variant au lieu de Boolean.

Code :

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

1
2
3
4
5
Function creerTableauExcel(ByVal anneeDebut As String, ByVal anneeFin As String, _
            ByVal moisDebut As String, ByVal moisFin As String, _
            ByVal numeroTYPEDONNEE As Integer, ByRef listSH810 As listBox, _
            ByRef listProvinces As listBox, ByRef listPays As listBox, _
            ByVal tousProvinces As Variant, ByVal tousPays As Variant)

Dans le corps de la fonction, si le paramètre de fonction tousProvinces vaut Null, alors tu sais qu'il faut ignorer l'appel à la fonction (Exit Function).

D'une façon générale, contrôle le type des données passées en paramètres de la focntion.

[kissmytoe]

alors pour passer l'objet contrôle met un point à la place du point d'exclamation

le point d'exclamation c'est pour travailler sur le recordset du formulaire, donc c'est le champ de la source qui est renvoyé, pas le contrôle

Merci infiniment Tout fonctionne maintenant