problème de code VBA userform

Bonjour j’espère que vous allez bien. Je commence à faire un peu de VBA et j’ai deux trois problèmes que je n’arriverai pas à résoudre sans votre précieuse aide

Message d’erreur pour le lancement de mon userform (mot de passe) :
L’erreur 424 sur la ligne
MsgBox "Identification correcte, Autorisation accordée!"
Unload Identification
Sheets("Tableau de bord").Select
Exit Sub¨
Je ne comprends pas où est le problème

Problème de trie par nom de l’onglet fichier collaborateur :
Je voudrais aussi mettre un trie par ordre alphabétique par le nom colonne D le nom de la macro : Sub Tri_Nom() je fonctionne pas

Je vous remercie de votre temps et j’espère avoir de vos nouvelles vite

le lien pour le fichier: http://we.tl/aWL5jKmN4z
Mot de passe: admin
code: ****

bonjour

Citation:

---

Envoyé par Benny87

Bonjour j’espère que vous allez bien. Je commence à faire un peu de VBA et j’ai deux trois problèmes que je n’arriverai pas à résoudre sans votre précieuse aide

Message d’erreur pour le lancement de mon userform (mot de passe) :
L’erreur 424 sur la ligne
MsgBox "Identification correcte, Autorisation accordée!"
Unload Identification
Sheets("Tableau de bord").Select
Exit Sub¨
Je ne comprends pas où est le problème

---

essaye avec

Code:

---

unload me

---

Citation:

---

Envoyé par Benny87

Problème de trie par nom de l’onglet fichier collaborateur :
Je voudrais aussi mettre un trie par ordre alphabétique par le nom colonne D le nom de la macro : Sub Tri_Nom() je fonctionne pas

Je vous remercie de votre temps et j’espère avoir de vos nouvelles vite

le lien pour le fichier: http://we.tl/aWL5jKmN4z
Mot de passe: admin
code: ****

---

l'enregistreur de macro te sort ca les doigt dans le nez. au cas ou regarde 'laide sur la métode sort

sinon j'ai l'impression que tu fais un userform pour entrer un code? Pourquoi pas passer par un inputbox?

Code:

---

1 2 3 4 5 6 7

Dim Le_CODE As String Le_CODE = Application.InputBox("Mot de passe : ", "Veuillez saisir le Mot de Passe SVP", , , , , , 2) If Le_CODE = "lecode" Then MsgBox "Identification correcte, Autorisation accordée!" else MsgBox "Identification incorrecte, Autorisation refusée!" end if

---

Car il y a le mot de passe admin et aussi d'autre personnes peuvent utiliser le fichier. Il y a aussi une inscription sur le userform pour les nouvelles personnes.

tu es dieu mec. je te remercie 1000 fois cela fonctionne pour le userform :P:P:P
et je n'avais pas penser à un enregistrement de macro

Je voudrai faire le trie par poste de travail puis par le nom de famille du personne.
Pour que la recherche d'une personne ne prenne pas trop long.
Je suis sur que cela est possible car j'ai un souvenir de l'avoir déjà fait, mais je ne me rappelle plus comment. As-tu une idée ?
mon cote pour le trie par poste:

Code:

---

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

Sub trier_Poste() ' ' trier_Poste1 Macro '   ' ActiveWindow.SmallScroll ToRight:=1 ActiveWindow.SmallScroll Down:=-1 ActiveWindow.SmallScroll ToRight:=8 ActiveWindow.SmallScroll Down:=-65 Range("A3:P1000").Select Range("P3").Activate Selection.AutoFilter ActiveWorkbook.Worksheets("fichier collaborateurs").AutoFilter.Sort.SortFields. _ Clear ActiveWorkbook.Worksheets("fichier collaborateurs").AutoFilter.Sort.SortFields. _ Add Key:=Range("I3:I9000"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("fichier collaborateurs").AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E12").Select Selection.AutoFilter End Sub

---

La colonne nom commence en E4

merci

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() With ActiveWorkbook.Worksheets("fichier collaborateurs") 'adapter le range et les key ( mettre la colonne des postes en 1 et la colonne des noms en 2 .Range("A1:I15").Sort _ Key1:=.Range("A1"), Order1:=xlAscending, _ Key2:=.Range("I1"), Order2:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With End Sub

---