Discussion :

[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

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: ****

[bboy-eazy]

bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

unload 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: ****

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Benny87]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bboy-eazy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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