Sub Bouton40_Clic() UserPass.Show End Sub Sub Bouton41_Clic() UserPass.Show End Sub Sub Bouton42_Clic() UserPass.Show End Sub Sub Bouton82_Clic() UserPass.Show End Sub Sub Bouton83_Clic() UserPass.Show End Sub Sub Bouton84_Clic() UserPass.Show End Sub
Private Sub UserPass_Initialize() Set f = Sheets("Users") 'feuille contenant noms et pass TextBox1.Value = Environ(User) TextBox2.Value = pass End Sub Private Sub CB_Change_Pass_Click() UserPass.Hide UserForm6.Show End Sub
Private Sub CB_annuler_Click() UserForm6.Hide End Sub
Private Sub UserPass_Initialize() 'Set f = Sheets("Users") Me.TextBox1 = Environ("username") 'TextBox2.Value = pass End Sub
Private Sub UserForm_Initialize() Me.TextBox1 = Environ("username") End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub Aller_a_Consultation_PV() UserPass.Show Sheets("ConsultPV").Select Consult_Campagne End Sub
Sub Aller_a_Consultation_PV() UserPass.Show 'Ici ça doit mettre Vrai ou Faux à la variable Valide If not Valide Then Exit sub Sheets("ConsultPV").Select Consult_Campagne End Sub
m6 pour ce que vous faites pour ns les bleus,g s8 un amateur programmeur qui cherche de l'expérience pour devenir un expert programmeur.