code VB pour Userform de recherche

hendrix · 17 Mars 2010

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 · 17 Mars 2010

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 · 17 Mars 2010

Re : code VB pour Userform de recherche

Bonjour hendrix
Salut fhoest

Vois si cela te convient

Papou-net · 17 Mars 2010

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 · 17 Mars 2010

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

Code:

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 · 17 Mars 2010

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 · 17 Mars 2010

Re : code VB pour Userform de recherche

voici la macro pierrejean

Code:

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 · 17 Mars 2010

Re : code VB pour Userform de recherche

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

Code:

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 · 17 Mars 2010

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 · 17 Mars 2010

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

code VB pour Userform de recherche

hendrix

Guest

Pièces jointes

fhoest

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

fhoest

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

fhoest

XLDnaute Accro

Papou-net

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

hendrix

Guest

Discussions similaires

code VB pour Userform de recherche

hendrix

Guest

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

hendrix

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency