variable dans une procedure...

Salut
J'ai une procédure qui permet de griser mais buttons mais en fait j'ai plusieurs feuilles...et donc je passe en paramè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é 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é en paramètre

NomPage.bt_rep1.Enabled = True   ça doit me donner ça mais la on comprend plus que la feuille s'appelle NomPage...vous voyez le truc ^^

Merci d'avance

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

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

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

ouep j'ai fait le changement

Vb.net ou vb6???

Vb6 :)

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.

oui mais en fait j'ai attribué le nom des pages à 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)

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)