appel de Sub

Mosar3 · 22 Novembre 2008

Bonjour, j'ai un problème que je n'arrive à résoudre :
comment faire l'équivalent de ceci :

Code:

Private Sub EffacerJour(Journée As Variant)
  NomPlatFroidJournée.Value = False
End Sub

et en parallèle avec ce sub :

Code:

Private Sub NomEffacerLundi_click()
  Call EffacerJour("Lundi")
End Sub

Avec NomPlatFroidLundi une checkbox.
Le but est de pouvoir faire avec les septs jours de la semaine et différents plats(PlatFroidLundi, PlatFroidMardi...DessertLundi, DessertMardi...).
Quand j'essaye, il me met "erreur 424, objet requis"...
Merci de vos réponses!
A bientôt!!

Guest · 22 Novembre 2008

Re : appel de Sub

Bonjour Mosar, Le forum,

C'est pas évident de comprendre sans un fichier exemple.

Mais essaies ceci:

Code:

Private Sub EffacerJour(Journée As Variant)
  Me.Controls("NomPlatFroid" & Journée).Value = False
End Sub

Si tu appelles toujours la macro EffacerJour avec les noms de jours ("Lundi","Mardi","Mercredi" etc...)

Code:

Private Sub EffacerJour(Journée As String)
  Me.Controls("NomPlatFroid" & Journée).Value = False
End Sub

A+

Mosar3 · 22 Novembre 2008

Re : appel de Sub

Bonjour le forum,
Merci infiniment Hasco c'est exactement ça ( en plus j'avoue que c'était difficilement compréhensible...).
C'est parfait ça marche super bien.
Encore un immense MERCI et à bientôt!!

appel de Sub

Mosar3

XLDnaute Nouveau

Guest

Guest

Mosar3

XLDnaute Nouveau

Discussions similaires