Discussion :

[Au2laDeNosReves]

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 :

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

C'est très laid vous trouvez pas lol

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

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

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

[Qwazerty]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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