VBA fichier excel

Version imprimable

15/11/2016, 06h50
lolalg

1 pièce(s) jointe(s)

VBA fichier excel

Bonjour,

Dans le cadre de mon alternance je dois réaliser un suivi et un support candidature. J'ai trouvé le fichier qui me convenait, seulement, j'aimerais que la recherche de candidats puisse se faire par compétence. N'ayant aucune connaissance en VBA je me permets de vous demander de l'aide.

En vous remerciant par avance
15/11/2016, 10h39
MarcelG

Bonjour et bienvenu sur le Forum,
Bonjour le Forum,

Pourrais-tu expliciter ton besoin.
Ton classeur contient 3 formulaires.
L'un sert à saisir les candidatures. Les autres?
Quel processus veux-tu suivre.

Un conseil en passant, préfixe toujours tes contrôles de formulaires par un libellé indiquant sa nature
Exemple, pour une zone de texte "Txt_moncandidat"
Les avantages en sont la clarification du code et la possibilité d'informer des cellules de feuilles nommées à l'identique (ex : "moncandidat"° et ainsi de pouvoir boucler.

A plus.
21/11/2016, 09h39
lolalg

VBA

Bonjour Marcel,

Merci de votre retour. Veuillez m'excuser du retard de ma réponse.
La première page du classeur sert à effectuer des recherches de candidats par nom afin de consulter leur profil. Ces personnes sont préalablement rentrés en feuille 2 via le tableau. La troisième est dernière feuille du classeur sert, elle, a classer les qualifications des salariés.

Ce que je souhaiterais c'est pouvoir faire ma recherche sur la page 1 non pas par nom mais par qualification des salariés. Je ne suis pas l'auteur de ce support extrêmement bien fait.
Je rencontre également un problème concernant l'entrée d'un nouveau candidat en feuille 1. En effet lorsque je rentre les informations, cela ne fonctionne pas il m'affiche une erreur.

Je vous remercie par avance Marcel pour votre précieuse aide
21/11/2016, 11h15
MarcelG

Salut,

Ouh là!

Il n'y a aucune structure dans tes codes.
Dans celui affecté à la feuille "MENU", figurent la gestion des contrôles de formulaires et même l'évènement "Open" de ton classeur!!!
Excuse mon propos, mais c'est du n'importe quoi!
Retourne ton fichier en plaçant tes codes au bon endroit (formulaires)
Et surtout, renomme tes contrôles
Exemple : Txt_, Cbx_, suivi d'un nom évocateur.
Pour aborder ce genre de développement, il te faut un minimum d'acquis que tu peux obtenir sur ce forum, notamment 2 tutoriels sur les formulaires et contrôles
Pages Sylkiroad
21/11/2016, 12h28
patricktoulon

re

re
Bonjour
tout a revoir dans ce classeur
les intitulé de control difficile de leur trouver une correspondance avec les colonnes

des codes heu.... bref
je te suggère de commencer par le B A B A du vba sinon tu va droit dans le murs

exemple d'inutilité
insérer une ligne au dessus des existantes puis faire un tri dans l'ordre j'en vois pas trop l'utilité

je te suggère aussi par exemple (puisque après tout c'e sont des opérations simples ) de nommer tes controls avec la lettre de leur correspondance avec le sheets

avec un .end (xlup). row +1 d'un range tu obtient la première ligne disponible

donc la lettre du nom du control plus cette ligne te donne la cellule correspondante de chaque control dans une boucle for par exemple

etc....etc...
22/11/2016, 09h59
lolalg

Merci de vos retours. Comme je l'avais précédemment évoqué, je ne suis pas à l'origine de ce support. Ayant une échéance relativement courte j'ai trouvé ce support sur le forum.
L'idée était de pouvoir avoir rapidement quelque chose d'exploitable pour l'entreprise dans laquelle j'effectue mon alternance, mais cela semble mal parti.

Bonjour,

Je reviens vers vous car malgré les tuto, il est difficile de faire de la programmation rapidement et efficacement lorsque l'on débute. Serait-il possible de me donner un coup de main de manière effective directement sur le document s'il vous plait? Je suis étudiante en Ressources Humaines et je ne maitrise pas le langage VBA.

Je vous remercie par avance...
22/11/2016, 10h07
MarcelG

Bonjour lolalg,
Bonjour le Forum,

Désolé mais, sans vouloir me montrer présomptueux, le but du Forum n'est pas de fournir des développements clés en mains.

Il te faut apprendre au préalable les bases (les tutoriels, les FAQ et les discussions du Forum sont là pour cela.)
Ensuite, tu dois choisir un développement simple pour le finaliser.
Ce n'est qu'en fin de recherche que tu dois faire appel à l'aide des membres du Forum.
C'est, du moins pour moi, la seule voie de progression.

1 pièce(s) jointe(s)

Citation:

Envoyé par lolalg

Bonjour,

... Serait-il possible de me donner un coup de main de manière effective directement sur le document s'il vous plait? Je suis étudiante en Ressources Humaines et je ne maitrise pas le langage VBA....

Je vous remercie par avance...

bonjour,

Dans votre document les compétences n'apparaissent pas dans votre fichier, j'ai donc fait un exemple avec la recherche par qualif il suffira si vous le voulez de changer les colonnes par compétences.

Pour realiser votre recherche, créer un textbox ou un combobox lié à la colonne des qualifs puis avec l'événement box_change créer une procédure qui recherche les enregistrements voulus ...

voici les exemples modifiés et crées des deux recherches (par nom et par qualif) :

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
Private Sub trechnom_Change()
 
    Dim cel As Range
    Dim i As Integer, j As Integer
 
    'charge la ListBox en fonction des lettres entrées
    Listerech.Clear
    Listerech.ColumnWidths = "90 pt;90 pt;0 pt;130 pt;90 pt;100 pt;100 pt;100 pt;0pt;1pt"
    Listerech.Width = 715
    Listerech.Height = 366
    If trechnom.Text = "" Then Exit Sub
 
    j = 0
    For Each cel In plage
 
        If UCase(cel.Value) Like UCase(trechnom.Text) & "*" Then
           Listerech.AddItem cel.Value
 
           For i = 1 To 9
               Listerech.List(Listerech.ListCount - 1, i) = cel.Offset(0, i).Text
           Next i
           j = j + 1
        End If
    Next cel
 
End Sub

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
Private Sub trechcat_Change()
Dim cel As Range, celcat As Range
Dim i As Integer, j As Integer
 
    'charge la ListBox en fonction des lettres entrées
    Listerech.Clear
    Listerech.ColumnWidths = "90 pt;90 pt;0 pt;130 pt;90 pt;100 pt;100 pt;100 pt;0pt;1pt"
    Listerech.Width = 715
    Listerech.Height = 366
 
 
    If trechcat.Text = "" Then Exit Sub
 
    j = 0
    For Each celcat In plage
 
        If UCase(celcat.Value) Like UCase(trechcat.Text) & "*" Then
           Set cel = celcat.Offset(0, -5)
           Listerech.AddItem cel.Value
 
           For i = 1 To 9
               Listerech.List(Listerech.ListCount - 1, i) = cel.Offset(0, i).Text
           Next i
           j = j + 1
        End If
    Next celcat
 
End Sub

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
Private Sub combocat_Change()
Dim cel As Range, celcat As Range
Dim i As Integer, j As Integer
 
    'charge la ListBox en fonction des lettres entrées
    Listerech.Clear
    Listerech.ColumnWidths = "90 pt;90 pt;0 pt;130 pt;90 pt;100 pt;100 pt;100 pt;0pt;1pt"
    Listerech.Width = 715
    Listerech.Height = 366
 
 
    If combocat.Value = "" Then Exit Sub
 
    j = 0
    For Each celcat In plage
 
        If UCase(celcat.Value) = UCase(combocat.Value) Then
           Set cel = celcat.Offset(0, -5)
           Listerech.AddItem cel.Value
 
           For i = 1 To 9
               Listerech.List(Listerech.ListCount - 1, i) = cel.Offset(0, i).Text
           Next i
           j = j + 1
        End If
    Next celcat
 
End Sub

J'ai également "corrigé" quelques erreurs de fonctionnement et enlevé quelques champs pour l'essai.
Je vous joins mon essai, à vous de continuer :
Pièce jointe 225838
cordialement
geogeo