Discussion :

[Eleanor]

Bonjour à toutes et à tous,

Voilà j'aimerai savoir s'il était possible de créer un mot de passe après des optionbutton.

Je m'explique : j'ai des optionbutton avec différentes matières(maths, espagnol, allemand,...). J'aimerai associer un mot de passe à chaque choix, et quand une optionbutton est choisie, qu'une fenêtre apparaisse avec la demande du mot de passe, pour faire une vérification.
Si optionbutton et mot de passe concordent : ok
sinon : retour à l'userform des optionbuttons

Merci d'avance pour votre aide

[jijie]

vite fait, mais voila!!

jijie

[Eleanor]

Peux-tu me l'envoyer en .zip s'il te plait éventuellement, je n'arrive pas à l'ouvrir.

Merci d'avance

[jijie]

voici!

[Eleanor]

Merci pour ta rapidité.

Le seul souci est que j'aimerai mettre un mot de passe différent à chaque choix et non le même.

Merci d'avance et encore pour ton aide

[jijie]

alors ds module1 tu ajoute :

Code :

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

1
2
3
 
 
Public CoDe As Variant

ds cd admin tu remplace:

Code :

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

1
2
3
4
 
If b = "111" Then ' autorise
'par
If b = CoDe Then ' autorise

ds userform1 tu modifie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OptionButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1 <> "Ok" Then
CoDe = "111"
CdAdmin.Show
End If
End Sub
 
Private Sub OptionButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1 <> "Ok" Then
CoDe = "123"
CdAdmin.Show
End If
End Sub

a+