Recherche de l'aide pour une Fonction OptionButton

Bonjour,

Je rechercher une méthode simple pour créer une fonction OptionBouton
Je vous explique en détail

En gros j'ai 5 Options bouton dans mon userform
OptJour2
OptJour3
OptJour4
OptJour5
OptJour6

Je récupère la journée actuel et active OptionBouton en conséquence

Donc en gros voici mon code actuel qui n'est pas une fonction ^^

Code:

---

1 2 3 4 5 6

If DatePart("w", Date)Then FormAddCommande.OptJour2.Value = True If DatePart("w", Date)Then FormAddCommande.OptJour3.Value = True If DatePart("w", Date)Then FormAddCommande.OptJour4.Value = True If DatePart("w", Date)Then FormAddCommande.OptJour5.Value = True If DatePart("w", Date)Then FormAddCommande.OptJour6.Value = True

---

C'est très laid vous trouvez pas lol

et j'aimerais faire quelque de plus fun dans ce sens :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Sub AffichageDansUserForm() RecupJourneedAujourdhui (DatePart("w", Date)) End Sub   Function RecupJourneedAujourdhui(Journee As Long) Dim OptJour As OptionButton   OptJour = "OptJour" & Journee   FormUser1.OptJour.Value = True   End Function

---

Un code beaucoup mieux mais vous vous doutez que cela ne fonctionne pas même si je part d'une bonne intention lol

Si quelqu'un pourrait m'expliquer en détail les solutions s'il vous plait ?

Merci

Salut
Donc Sur ton UserForm tu as tes 5 boutons, ayant un groupe commun (propriete GroupeName).

Code:

---

1 2 3 4 5

Dim LeJour As String LeJour = DatePart("w", Date) If LeJour <= 6 And LeJour >= 2 Then Me.Controls("OptJour" & DatePart("w", Date)).Value = True End If

---

A++
Qwaz