code VB pour Userform de recherche

[hendrix]

Bonjour 🙂

J'ai une base de donnée concernant le suivi des formations des employés (BDD2010) et je cherche un code VBA pour un userform de recherche qui me permettrais selon que j'entre le nom marital ou le nom patronymique d'une personne, d'afficher son prénom, sa direction, les intitulés de formation (que la personne selectionnée a suivi) et les dates de debut et de fin de ces formations. la recherche s'effectuerai en cliquant sur un bouton de validation.

j'avoue n'être qu'une brèle dans le domaine de la programation VB, en vain j'ai essayé de m'inspirer de certain userfom de recherce.
je sèche 🙁

Merki

 

[fhoest]

Re : code VB pour Userform de recherche

Bonjour,
je peux te proposer ceci si cela t'interresse
Cijoint.fr - Service gratuit de dépôt de fichiers

A+

 

[pierrejean]

Re : code VB pour Userform de recherche

Bonjour hendrix
Salut fhoest

Vois si cela te convient

 

[Papou-net]

Re : code VB pour Userform de recherche

Bonjour à tous, Hendrix,

Vois également ma solution (que je n'ai pas comparée avec celles de mes prédécesseurs).

Cordialement.

 

[fhoest]

Re : code VB pour Userform de recherche

Bonjour,pierrejean,papou net
pierrejean- malgrès on error resume next j'ai une erreur de clé deja utilisé sur cette ligne

patro.Add .Range("A" & n), CStr(.Range("A" & n))

connais tu la solution car j'ai voulu utilisé ce morceau de code pour trié une combo (que l'on m'as filé) mais ayant cette erreur je ne l'ai pas utilisé, merci

Papou net, j'évite d'utilisé par expérience "With Feuil1" car en version anglaise excel mais par défaut sheet1 et non feuil1 et cela cause des probleme au code
a part ca super le usf et le rajout de plusieurs formation sur les differents textboxs si plusieurs formation

PS ce ne sont pas des critiques négatives,mais juste pierrejean (pour moi apprendre) et papou-net (parce que j'ai déjà rencontrer ce problème)
j'apprécie toujours vos conseil et vos coup de main ET JE SAIS TRES BIEN QUE JE FAIS EGALEMENT DES ERREURS

AU PLAISIR 🙂🙂

 

[pierrejean]

Re : code VB pour Userform de recherche

Re

@ fhoest

peux-tu poster la macro complete qui te donne une erreur même avec le on error resume next ???

 

[fhoest]

Re : code VB pour Userform de recherche

voici la macro pierrejean

Private Sub UserForm_Initialize()
Dim patro As Collection
Dim marit As Collection
Set patro = New Collection
Set marit = New Collection
With Sheets("BDD2010")
For n = 2 To .Range("A65536").End(xlUp).Row
[COLOR="Red"]On Error Resume Next
  patro.Add .Range("A" & n), CStr(.Range("A" & n))[/COLOR]
  If .Range("B" & n) <> "" Then marit.Add .Range("B" & n), CStr(.Range("B" & n))
On Error GoTo 0
Next n
For n = 1 To patro.Count
 ComboBox1.AddItem patro(n)
Next n
For n = 1 To marit.Count
 ComboBox2.AddItem marit(n)
Next n
End With
End Sub

Merci
A+

 

[Papou-net]

Re : code VB pour Userform de recherche

Bonjour,pierrejean,papou net
pierrejean- malgrès on error resume next j'ai une erreur de clé deja utilisé sur cette ligne

patro.Add .Range("A" & n), CStr(.Range("A" & n))

connais tu la solution car j'ai voulu utilisé ce morceau de code pour trié une combo (que l'on m'as filé) mais ayant cette erreur je ne l'ai pas utilisé, merci

Papou net, j'évite d'utilisé par expérience "With Feuil1" car en version anglaise excel mais par défaut sheet1 et non feuil1 et cela cause des probleme au code
a part ca super le usf et le rajout de plusieurs formation sur les differents textboxs si plusieurs formation

PS ce ne sont pas des critiques négatives,mais juste pierrejean (pour moi apprendre) et papou-net (parce que j'ai déjà rencontrer ce problème)
j'apprécie toujours vos conseil et vos coup de main ET JE SAIS TRES BIEN QUE JE FAIS EGALEMENT DES ERREURS

AU PLAISIR 🙂🙂

Bonjour fhoest,

Ta remarque est judicieuse, et j'avoue n'y avoir jamais pensé.

La raison pour laquelle je cite toujours les noms de feuilles par leur nom système est double :

- En cas de changement de nom, la feuille est toujours reconnue (pas besoin de reprendre le code)

- L'écriture du code est plus rapide, et comme j'ai une tendance prononcée au moindre effort (la programmation est pour moi une science de fainéant)

Je te remercie donc pour ton intervention appropriée.

Cordialement.

 

[Papou-net]

Re : code VB pour Userform de recherche

Bonjour à tous, hendrix,

Voici une version améliorée, avec le tri alphabétique des listes déroulantes.

Cordialement.

 

[hendrix]

Re : code VB pour Userform de recherche

Bonjour Papou-net, Bonjour fhoest, Bonjour pierrejean

Bravo à vous tous! c'est génial, du caviar, toutes les solutions proposées repondent exactement à ce que je voulais essayer de faire.

Rendons a Cesar ce qui est a Cesar, vous êtes des Genies.

Bien cordialement,

Hendrix