Erreur, sur variable Résolu

Question

Boujour à tous. voici mon problème....

// Call dateax(Form2, Combo1)

Public Function dateax(formo As Form, Controle As Object)
formo.Controle.Clear
formo.Controle.Text = "1"
For i = 2 To 31
formo.Controle.AddItem i
Next
End Function

//
donc quand je lance mon apli, il me met dans la ligne formo.contole.clear
l'erreur suivante: 

L'objet je gère pas cette propriétée ou cette méthode.

Quand je survole dateax(formo As Form, Controle As Object) il me trouve le combo1 mais pas la form... donc j'en déduit que l'erreur est dans formo as form....

Si quelqu'un à une idée.... je l'en remercie d'avance.

:)Sator :)

mortalino · Accepted Answer

Et alors... ??
Peu importe le nom de la Form, si tu fais comme on te la montré, il n'y aura pas de problèmes.

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

jrivet · Answer

Salut, Et pourquoi ne pas faire simplement: Option Explicit Private Sub Form_Load() 'Exemple Call dateax(Form1.Combo1) End Sub

Public Function dateax(CBox As ComboBox) Dim i As Integer CBox.Clear For i = 1 To 31 Call CBox.AddItem(CStr(i)) Next End Function

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

mortalino · Answer

Salut,

déjà, n'utilise pas de fonction si tu n'attends pas de valeur en retour mais une Sub.
Sinon, je pense que ceci conviendrait :

Public Sub dateax(Controle As ComboBox)
Controle.Clear
Controle.Text = "1"
For i = 2 To 31
    Controle.AddItem i
Next
End Sub

Pour l'appeler : Call dateax(Form2.Combo1)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

cs_Sator · Answer

parce que je le met dans un module et que je peux l'ateindre depuis plusieurs form....

:)Sator :)

cs_Sator · Answer

Désolé mais je penssais qu'il falait définir la form.... Merci infiniment

:)Sator :)

jrivet · Answer

Salut,
Et moi ce que j'ai proposé ca fonctionne pas????

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Le nom de la Form étant "préfixée" au nom du contrôle, pas besoin :
Call dateax(Form2.Combo1)

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

chaibat05 · Answer

Salut,

Call dateax(Form2, Form2.Combo1)

chaibat05 · Answer

exact mortalino, moi aussi désolé :-)

mortalino · Answer

Pas de problème Chaibat  
Julien, et non, t'as mis Form1 en param  

@++ 

<hr size="2" width="100%" />( Nouveau forum : Exclusivement Office & VBA

chaibat05 · Answer

correction cependant , mortalino Public Sub dateax(Controle As ComboBox) Controle.Clear ~~Controle.Text = "1"~~ For i = 1 To 31 Controle.AddItem i Next Controle.ListIndex=0 End Sub le texte doit être dans la liste

jrivet · Answer

Re,
C'est donc en fait bien ce que je mettais dans mon premier post (sauf que j'avais pas vu la Sub au lieu de  Function )

@+: Ju£i?n
Pensez: Réponse acceptée

chaibat05 · Answer

chacun de nous a raté une épisode...
"On a tous quelque chose de Tenessi "

A trois sur un truc de deb...

cs_Sator · Answer

ça fais quand-même plaisir de voir autant de message.....
Merci à tous

:)Sator :)

chaibat05 · Answer

Plaisir partagé , 
surtout quand ça permt de croiser des amis

Bonne fin de journée à tous

Erreur, sur variable

15 réponses

Votre réponse

Discussions similaires