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 ^^
C'est très laid vous trouvez pas lol
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
et j'aimerais faire quelque de plus fun dans ce sens :
Un code beaucoup mieux mais vous vous doutez que cela ne fonctionne pas même si je part d'une bonne intention lol
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Si quelqu'un pourrait m'expliquer en détail les solutions s'il vous plait ?
Merci
Partager