appel de Sub

[Mosar3]

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

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

et en parallèle avec ce sub :

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]

Re : appel de Sub

Bonjour Mosar, Le forum,

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

Mais essaies ceci:

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...)

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

A+

 

[Mosar3]

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!!