XL 2016 Modification de droits d'accès par UF

R

ReneDav14000

XLDnaute Occasionnel
Bonjour à toutes et à tous,
J'ai créé un formulaire pour gérer les droits d'accès des utilisateurs.
Certains agents existent déjà et peuvent voir leurs droits être modifiés et d'autres nouveaux utilisateurs se voir attribuer des droits d'accès.
Dans la feuille "Accès" du fichier ci-joint il y a un tableau nommé "List_User" dans lequel sont entrés des noms avec un mot de passe et des croix indiquant leur(s) droit(s).
Donc si un agent existe déjà et qu'on lui modifie ses droits, des croix doivent être ajoutées ou supprimées.
Pour un nouvel arrivant il ne peut y avoir que des ajouts de croix et l'attribution d'un mot de passe limité à 7 caractères.

Pourriez-vous m'aider à réaliser ce projets s'il vous plait car je n'y arrive pas ?
En vous en remerciant par avance

PS : J'ai oublié une donnée importante, certains utilisateurs peuvent avoir accès à certaine feuille en lecture seulement. Désolé pour cet oubli
 

Pièces jointes

  • Utilisateur.xlsm
    16.3 KB · Affichages: 18
Dernière édition:
Solution
dysorthographie
désolé!
VB: 
Private Sub ComboUtil_Change()
If Me.ComboUtil.Value = "" Or Me.TextPrenom.Value = "" Or Me.TextMdP.Value = "" Then Exit Sub

With ThisWorkbook.Sheets("Accès")
    Dim I As Integer: I = NomPnom(ComboUtil.Value, TextPrenom.Value, TextMdP.Value, .Range("A:A"))
    If I = 0 Then MsgBox "Pas trouvé": Exit Sub
    With .Cells(I, "A")
        Me.TextPrenom.Value = .Cells.Offset(, 1)
        Me.TextMdP = .Cells.Offset(, 2)
        Me.CheckBoutAgent = .Cells.Offset(, 3) = "X" 'True/False
        Me.CheckBouEntSort = .Cells.Offset(, 4) = "X"
        Me.CheckBoutHor = .Cells.Offset(, 5) = "X"
        Me.CheckBoutEtiq = .Cells.Offset(, 6) = "X"
        Me.CheckFeuilCalcul = .Cells.Offset(, 7) = "X"
        Me.CheckFeuilData =...
Trier par date Trier par votes
dysorthographie

dysorthographie

XLDnaute Accro
Nouvelle mouture!
J'imagine que tu devras faire la même chose pour le bouton modifier car actuellement tu ne cherches que le nom!

Note que la fonction NomPnom retourne la ligne du couple nom prénom trouvé.

VB: 
'***********************************************************************************************************
'   fonction recherche de doublons!
'-----------------------------------------------------------------------------------------------------------
Function NomPnom(Nom As String, Prenom As String, Plage As Range) As Integer
Dim r As Range, Pos As Integer
pose = 1
Do While pose <> 0
Set r = Plage.Find(Nom, After:=Plage(pose, 1), LookIn:=xlValues)
If Not r Is Nothing Then
    If pose => r.Row Then NomPnom = 0: Exit Function
   If UCase(r.Offset(, 1)) = UCase(Prenom) Then NomPnom = r.Row: Exit Function
   pose = r.Row
Else
    NomPnom = 0
    pose = 0
End If
Loop
End Function
'***********************************************************************************************************
 
Dernière édition:
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
dysorthographie à dit:
Nouvelle mouture!
J'imagine que tu devras faire la même chose pour le bouton modifier car actuellement tu ne cherches que le nom!

Note que la fonction NomPnom retourne la ligne du couple nom prénom trouvé.

VB: 
'***********************************************************************************************************
'   fonction recherche de doublons!
'-----------------------------------------------------------------------------------------------------------
Function NomPnom(Nom As String, Prenom As String, Plage As Range) As Integer
Dim r As Range, Pos As Integer
pose = 1
Do While pose <> 0
Set r = Plage.Find(Nom, After:=Plage(pose, 1), LookIn:=xlValues)
If Not r Is Nothing Then
    If pose => r.Row Then NomPnom = 0: Exit Function
   If UCase(r.Offset(, 1)) = UCase(Prenom) Then NomPnom = r.Row: Exit Function
   pose = r.Row
Else
    NomPnom = 0
    pose = 0
End If
Loop
End Function
'***********************************************************************************************************
Cliquez pour agrandir...
Bonjour dysorthographie,
Merci beaucoup. Cette fonction je l'a mets dans un module ou dans le code de la textbox, c'est pour m'assurer de bien faire. Le dernier je l'avais mis dans le code de la Text
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Voilà c'est fait. Le tri se fait dans la combo.
voici le code (merci Monsieur Boisgontier)
VB: 
Private Sub UserForm_Initialize()
Me.ComboUtil.Visible = False
Me.TextNOM.Visible = False
Set f = Sheets("Accès")
a = Application.Transpose(f.Range("A2:A" & f.[A65000].End(xlUp).Row))
    Call Tri(a, LBound(a), UBound(a))
    Me.ComboUtil.List = a
End Sub
'*************************************************************************'
Sub Tri(a, gauc, droi)
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
    temp = a(g): a(g) = a(d): a(d) = temp
    g = g + 1: d = d - 1
    End If

Loop While g <= d

    If g < droi Then Call Tri(a, g, droi)
    If gauc < d Then Call Tri(a, gauc, d)
End Sub
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
dysorthographie à dit:
Bonjour Patrick,
Cette fonction fait une recherche sur le couple nom prénom et retourne le RowNum

J'ai cherché pour un tableau structuré ,ou je suis pas très doué, j'ai rien trouvé !

Si tu as mieux je suis preneur !
Cliquez pour agrandir...
patricktoulon à dit:
Bonjour à tout les deux

moi j'ai rien compris en fait
a quoi sert cette fonction ?
Cliquez pour agrandir...
Bonjour patrick,
Cette fonction fonctionne très bien même sur un tableau structuré. J'ai fait plusieurs test.
Je ne suis pas assez doué en la matière pour aller chercher mieux.
 
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
Bonjour le forum,
Je reviens vers vous un instant car je rencontre un petit problème.
Dans mon application j'ai 2 LEGROS Jacques comme employés mais ils ont chacun un code différent (heureusement !).
Est-il possible de faire également un contrôle sur la TextMdP en plus de la fonction proposée par Dysorthographie au Post 17 que je répète ici :
Merci par avance
De plus, dans ma ComboUtil lorsque je clique sur LEGROS, c'est toujours le 1er qui a le focus, même si je clique sur le 2nd LEGROS.

VB: 
Function NomPnom(Nom As String, Prenom As String, Plage As Range) As Integer
Dim r As Range, Pos As Integer
pose = 1
Do While pose <> 0
Set r = Plage.Find(Nom, After:=Plage(pose, 1), LookIn:=xlValues)
If Not r Is Nothing Then
    If pose => r.Row Then NomPnom = 0: Exit Function
   If UCase(r.Offset(, 1)) = UCase(Prenom) Then NomPnom = r.Row: Exit Function
   pose = r.Row
Else
    NomPnom = 0
    pose = 0
End If
Loop
End Function
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
Bonsoir,
Ça va sans dire ma ça va mieux en le disant,il faut ajouter le TextMdP dans l'appel de la fonction !

Code: 
Function NomPnom(Nom As String, Prenom As String,MPass as string, Plage As Range) As Integer
Dim r As Range, Pos As Integer
pose = 1
Do While pose <> 0
Set r = Plage.Find(Nom, After:=Plage(pose, 1), LookIn:=xlValues)
If Not r Is Nothing Then
    If pose => r.Row Then NomPnom = 0: Exit Function
   If UCase(r.Offset(, 1)) = UCase(Prenom) AND 
MPass =r.Offset(, 2) Then NomPnom = r.Row: Exit Function
   pose = r.Row
Else
    NomPnom = 0
    pose = 0
End If
Loop
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
R

ReneDav14000

XLDnaute Occasionnel
patricktoulon à dit:
re
il me semble t'avoir donné cela il y a un moment déjà je crois non ?
a savoit un userform login / mdp travaillant sur un tableau de 2 colonnes
patricktoulon à dit:
re
il me semble t'avoir donné cela il y a un moment déjà je crois non ?
a savoit un userform login / mdp travaillant sur un tableau de 2 colonnes
Cliquez pour agrandir...
Bonsoir patrick,
Cliquez pour agrandir...
Bonsoir patrick,
Ce n'est pas trop histoire de login/mdp mais de remplissage de la combo.
Les deux sont liés dans mon application. Mais mon soucis tient aux doublons des Noms, prénoms, seul les codes d'accès sont différents. Par exemple, je travaille avec 4 MARIE Philippe.
Merci toutefois pour ta remarque.
Bonne soirée
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Question
Microsoft 365 Modification de mise en forme conditionnelle
Réponses
2
Affichages
234
Anne13
A
M
  • Question
XL 2016 Excel UserForm VBA
Réponses
3
Affichages
253
patricktoulon
patricktoulon
L
  • Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
158
l.et.lilou
L
P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
7
Affichages
440
sylvanu
sylvanu
A
  • Question
XL 2013 Liaisons de données externes avec un fichier contenant un mot de passe
Réponses
14
Affichages
514
Staple1600
Staple1600
A
  • Résolu(e)
XL 2019 Ouverture du fichier Excel par Authentification pour (Feuille & UserForm)
Réponses
7
Affichages
989
youky(BJ)
youky(BJ)
R
  • Résolu(e)
Microsoft 365 calculer une moyenne conditionnelle en retirant certaines valeurs par le biais de la couleur de fond d'une cellule
Réponses
7
Affichages
350
ricoben
R
S
  • Question
XL 2010 Format d'un mot de passe
Réponses
6
Affichages
463
scrib
S
G
  • Question
XL 2016 Répartition mensuelle de la charge par équipe en fonction d'une date de début et d'une date de fin
Réponses
4
Affichages
349
Lolote83
L
T
  • Question
Microsoft 365 Cacher / détailler certaines colonnes dans certains onglets avec mot de passe
Réponses
6
Affichages
379
ThierryP
T

Membres actuellement en ligne

1 membres et 43 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 196
Messages
2 086 101
Membres
103 116
dernier inscrit
kutobi87