Bonjour Boisgontier,
j'ai telechargé sur votre site le fichier pour permettre l'ouverture des onglets par un mot de passe en fonction des utilisateurs...
J'ai adapté votre fichier au mien, mais j'ai constamment un bug sur la ligne suivante en gras:
Private Sub B_ok_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub
Quand je clique sur le Ok de mon userform pour le mot de passe, ca me met un bug sur cette ligne (elle se met en jaune)
Je ne comprends pas le pb parce que j'ai bien mis les meme noms pour le userform, Textbox, pour le mot MotPasse...
De plus, j'ai essayer de mettre CStr( devant la ligne, comme vous le disiez precedemment, mais ca ne change rien!
Avez vous une reponse a ce probleme?
Merci d'avance pour votre reponse.