Re
Ok!
n’hésite pas si besoin
Bonne fin de Journée
jean marie
Bonjour a tous.
Mon petit programme avance mais j'ai un souci au niveau des utilisateurs.
(je vais essayer d’être clair)
j'ai 4 utilisateurs avec mot de passe pour se connecter avec différents droit pour chacun.
Quand je me connecte avec un de ces 4 comptes le numéro de ma fiche (qui sacrement en auto comme une facture)
fonction bien quant je reste sur le même utilisateur, mais si je me connecte avec un autre identifiant, le numéro de fiche (facture) saute de 1
c'est bizarre mais je comprend pas pourquoi le dernier numéro de fiche n'est pas le même pour tous . ci joint le code vba pour mes comptes:
Private Sub CommandButton1_Click()
On Error Resume Next
'déclaration de variable.
Dim mot_de_passe As String
Dim role As String
'configuration de variable.
mot_de_passe = WorksheetFunction.VLookup(Txt_user, Sheets("base").Range("T:V"), 2, 0)
role = WorksheetFunction.VLookup(Txt_user, Sheets("base").Range("T:V"), 3, 0)
If mot_de_passe = Txt_pass And role = "Admin" Then 'controler si c'est l'admin
Sheets("Tableau de bord").Visible = True
Sheets("Tableau de bord BF").Visible = True
Sheets("Tableau de bord AR").Visible = True
Sheets("Tableau de bord NM").Visible = True
Sheets("AGIR").Visible = True
Sheets("base").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2
ElseIf mot_de_passe = Txt_pass And role = "User" Then 'controler si c'est un utilisateur enregistré
Sheets("Tableau de bord BF").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = 2
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2
ElseIf mot_de_passe = Txt_pass And role = "Visiteur" Then 'controler si c'est un utilisateur enregistré
Sheets("Tableau de bord AR").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2
ElseIf mot_de_passe = Txt_pass And role = "Testeur" Then 'controler si c'est un utilisateur enregistré
Sheets("Tableau de bord NM").Visible = True
Sheets("AGIR").Visible = True
Sheets("SD_AD").Visible = True
Sheets("Centre Route").Visible = True
Sheets("Source").Visible = True
Sheets("login").Visible = 2
Else
Merci d'avance