Re : qui peu m'aider en vba pour faire fonctionne les UserForm
tout fonctionne toujour le même bug quand je suis sur la fenêtre général et qu'il me propose l'enregistrement il bug
son code et celui si
Public Feuil$
Sub USF() 'peut se lancer par les touches Ctrl+A
Feuil = ActiveSheet.Name
Application.DisplayFullScreen = True
UserForm5.Show
End Sub
Sub Ouverture()
Dim util As Range, mdp$
If UserForm3.TextBox5 = "" Then UserForm3.TextBox5 = " "
Set util = Sheets("Base").Range("Utilisateur").Find(Cherche(UserForm3.TextBox5), LookIn:=xlFormulas, _
LookAt:=xlWhole, MatchCase:=False)
If Not util Is Nothing Then mdp = util.Offset(0, 1)
If mdp = "" Or UserForm3.TextBox6 <> mdp Then
MsgBox "Mot de passe non valide", 48
Application.DisplayFullScreen = False
If Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
Else
Unload UserForm3
Load UserForm5
End
End If
End Sub
je comprend pas tous le reste fonctionne tres bien j'arrive a tous faire c'est des qu'il me demande si je veux enregistrer qu'il bug quand je dit oui.
voila job75
merci david