1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| Option Explicit
Option Explicit
'J'ai fait le chiox d'une fonction car il ne s'agit que de savoir
'si le mot de passe correspond à l'utilisateur.
'par conséquent, il nous faut une procédure qui compare les 2
'et qui renvoie VRAI ou FAUX (d'où la fonction déclarée As Boolean).
'ICI : (Utilisateur As String, MdP As String)
'sont des paramètres envoyés lors du clic sur le bouton
Function VerifMDP(Utilisateur As String, mdp As String) As Boolean
Dim rngTrouve As Range
VerifMDP = False 'par défaut, renvoie FAUX
With Sheets("DATA") 'dans la feuille DATA
'cherche, colonne A, le nom d'utilisateur saisi
Set rngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
If rngTrouve Is Nothing Then 'si il ne trouve pas
VerifMDP = False 'la fonction renvoie faux
Else 's'il le trouve
'vérifie que le mot saisi feuille parametrgae colonne B est identique
'au mot de passe saisi dans l'USF
If rngTrouve.Offset(0, 1) <> mdp Then
VerifMDP = False 'si FAUX
Else
VerifMDP = True 'si VRAI
End If
End If
End With
With Sheets("DATA R") 'dans la feuille DATA
'cherche, colonne A, le nom d'utilisateur saisi
Set rngTrouve = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole)
If rngTrouve Is Nothing Then 'si il ne trouve pas
VerifMDP = False 'la fonction renvoie faux
Else 's'il le trouve
'vérifie que le mot saisi feuille parametrgae colonne B est identique
'au mot de passe saisi dans l'USF
If rngTrouve.Offset(0, 1) <> mdp Then
VerifMDP = False 'si FAUX
Else
VerifMDP = True 'si VRAI
End If
End If
End With
End Function
Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
With Sheets("DATA") 'dans la feuille DATA
'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
'------------EN ROUGE -------------
Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
'--------------------------------------------------------------------------------------------------
For i = 3 To Col
If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
Else
Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
End If
Next i
End With
End Sub |
projet emploi du temps
Répondre avec citation
pour chaque message ayant aidé puis sur 
pour clore cette discussion.
je peu mettre le fichier pour que se soi plus compréhensible ,mais je n'arrive pas a enregistrer les fichier VB donc il n'y aura pas les fonctionnalité . le but est que quand l' employer entre son mot de passe et identifiant il accè a son emploi du temps que le patron aura préalablement défini en se connectant également et même chose pour les chefs d’équipe . j'ai déjà réussi a faire l'userform mais je ne parvient pas a trouver la solution pour faire correspondre l'emploi du temps avc l'utilisateur et faire en sorte que si l'emploi du temps est modifier dans la feuille patron ou seul le patron a accès il soi modifier pour les emploi du temps des ouvriers et chefs d’équipes . merci d'avance pour votre aide . j'ai le droit d'avoir recours qu'à excel car je doit monter ce projet pour mes études en informatique et cela est imposé 
Envoyé par lauraSTAPS
Partager