variable dans une procedure...Résolu

Question

Salut
J'ai une proc&#233;dure qui permet de griser mais buttons mais en fait j'ai plusieurs feuilles...et donc je passe en param&#232;tre le nom de la feuille et je voudrais donc griser les bouttons de celle-ci 


Public Sub DeGriserBouton(ByVal NomPage As String)


      Ferme.bt_rep1.Enabled = True
      Ferme.bt_rep2.Enabled = True
      Ferme.bt_rep3.Enabled = True
      Ferme.bt_rep4.Enabled = True
      Ferme.bt_rejouer.Enabled = True

End Sud

Donc en fait, Ferme est le nom pass&#233; en parametre et il y a d'autres noms comme Ville, Jungle...Mais je ne trouves pas comment faire pour remplacer le NomPage

Par ex Ferme est pass&#233; en param&#232;tre 

NomPage.bt_rep1.Enabled = True   &#231;a doit me donner &#231;a mais la on comprend plus que la feuille s'appelle NomPage...vous voyez le truc ^^

Merci d'avance

jrivet · Accepted Answer

POur placer la feuille dans laquelle tu est; utilise le mot cle Me qui representera la feuille dans laquelle tu es

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_DARKSIDIOUS · Answer

Il ne faut pas passer le nom de la feuille, mais la feuille elle même : Public Sub DeGriserBouton(ByRef Page As Object) Page.bt_rep1.Enabled = True Page.bt_rep2.Enabled = True Page.bt_rep3.Enabled = True Page.bt_rep4.Enabled = True Page.bt_rejouer.Enabled = True End Sud _

jiojioforever · Answer

oui mais le probleme c'est qu'il croit que j'ai une feuille qui s'appelle Page avec ta facon...
j'ai comme erreur 'Qualificateur incorrect'...
merci

forum_ma · Answer

Tu y va bien par Ref et non par Val??

jiojioforever · Answer

ouep j'ai fait le changement

forum_ma · Answer

Vb.net ou vb6???

jiojioforever · Answer

Vb6 :)

cs_DARKSIDIOUS · Answer

Page est le nom de la variable, pas de la form ! GrossoModo, cela veut dire que tu ne passe pas le nom de la feuille, mais la feuille elle même : Donc si tu l'appelle ainsi : Call DeGriserBouton(Form1) Alors les contrôles de Form1 seront modifié, et si tu l'appelle par : Call DeGriserBouton(Form2) Ce seront alors les contrôles de Form2 qui seront modifiés, etc. _

jiojioforever · Answer

oui mais en fait j'ai attribu&#233; le nom des pages &#224; des variables

en gros j'ai 4 feuilles Ferme Jungle Ville

Fer = Ferme
Jun = Jungle
Ville = Vil

et quand j'appelle la fonction je fais Call DeGriserBouton(Fer)

cs_DARKSIDIOUS · Answer

Aie Aie Aie, de quel type sont tes variables ? Il faut que ce soit des Object et non des String ou des Variant. En gros, ca doit donner : Dm Fer As Object Dim Jun As Object Dim Vil As Object Set Fer = ferme Set Jun = Jungle Set Vil = Ville call DeGriserBouton(Fer) _

jiojioforever · Answer

euh c'est type string :s et commet &#231;a se fait qu'il fait mettre en Object ?

jiojioforever · Answer

Par contre tu les mets o&#249; les 

Set Fer = ferme
Set Jun = Jungle
Set Vil = Ville

parce qu'il me dit que &#231;a peu pas &#234;tre mis ds une procedure

cs_DARKSIDIOUS · Answer

Tu es en quel langage ? Il faut que ce soit des Object pour que ce soit les feuilles qui soit stockées, et non uniquement leur nom. _

jrivet · Answer

Salut,

Si ce sont des feuilles (form) qui doivent etre passees en parametre pourquoi ne pas mettre


Public Sub DeGriserBouton(ByRef LeForm As Form)

     with LeForm
      .bt_rep1.Enabled = True
      .bt_rep2.Enabled = True
      .bt_rep3.Enabled = True
      .bt_rep4.Enabled = True
      .bt_rejouer.Enabled = True
   end with 
End Sud

Mais il est vrai que des precisions quant au langage et aux types seraient les bienvenues

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jiojioforever · Answer

Je suis sur Vb6  et euh j'utilise juste un module avec mes proc&#233;dures dedant c'est tout...

&#231;a je d&#233;clare en haut de mon module ?
Dm Fer As Object
Dim Jun As Object
Dim Vil As Object

et je mets ou &#231;a ?

Set Fer = ferme
Set Jun = Jungle
Set Vil = Ville

merci pour l'aide en tout cas

cs_DARKSIDIOUS · Answer

Ben à quoi ce te sert d'utiliser des variables publiques pour stocker tes feuilles ??? _

jiojioforever · Answer

Pour sotcker le nom de la feuille et pouvoir pass&#233; en parametre la feuille dans laquelle je suis quand je veux griser mes buttons.

cs_DARKSIDIOUS · Answer

Tout à fait, tes objets te serviront à rien à ce moment là Donc ca donne : dans un module : Public Sub DeGriserBouton(ByRef Page As Object) Page.bt_rep1.Enabled = True Page.bt_rep2.Enabled = True Page.bt_rep3.Enabled = True Page.bt_rep4.Enabled = True Page.bt_rejouer.Enabled = True End Sud Et dans tes feuilles, là ou tu veux dégriser les boutons : Call DeGriserBouton(Me) _

jiojioforever · Answer

un grand merci &#224; vous deux...c'est vraiment &#233;norme ce ME  hey hey :)

Variable dans une procedure...

19 réponses

Discussions similaires