Recherche via une macro

[natacha]

Bonjour à tous,
voila je souhaiterais créer une macro qui execute une recherche sur le libellé et en fonction de la saisie on nous renvoie le code . Ex : la personne saisie "Ouvriers qualifiés", la liste contenant "Ouvriers qualifiés" apparait dans une liste deroulante et l'utisaleur selectionne celui qui lui correspond et on lui renvoie le code.
Je sais pas si je suis tres claire. N'hesitez pas si vous ne comprenez pas.
Je vous transmets le fichier de base.
Merci d'avance.
Natacha

 

[natacha]

Re : Recherche via une macro

Bonsoir à tous,
je réactive ma demande car j'avoue que je suis un peu coincée!
Je vous remercie par avance pour vos propositions.
Bonne soirée.
Natacha

 

[Si...]

Re : Recherche via une macro

salut

en attendant la confirmation de Robert, essaie de complèter ain Si...

...
If Not r Is Nothing Then
    pa = r.Address
    Do
        With Me.ListBox1
            .AddItem r.Value
            .Column(1, .ListCount - 1) = r.Row
        End With
        Set r = pl.FindNext(r)
    Loop While Not r Is Nothing And r.Address <> pa
'i Si... pour le message puis la correction
Else
  MsgBox "non trouvé", vbCritical, "Attention..."
  TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
...

 

[job75]

Re : Recherche via une macro

Bonjour natacha, le fil, le forum,

Robert doit dormir encore

Le bug se produit quand on clique sur le bouton OK alors que TextBox2 est vide.

Il suffit donc de la tester, ainsi par exemple :

Private Sub CommandButton1_Click() 'bouton "Ok"
If TextBox2 = "" Then
  With TextBox1
    .SetFocus
    .SelStart = 0 'facultatif
    .SelLength = Len(.Text) 'facultatif
  End With
  MsgBox "Famille d'activité inexistante..."
  Exit Sub
End If
Dim x As New DataObject 'déclare la variable x
With x 'prend en compte la variable x
    .SetText Me.TextBox2.Text 'définit le texte de la variable
    .PutInClipboard 'place la variable dans le presse-papier
End With 'fin de la prise en compte de la variable x
Unload Me 'vide et ferme l'UserForm
End Sub

A+

 

[natacha]

Re : Recherche via une macro

Bonjour,
je vous remercie beaucoup, c'est exactement cela.
Bonne journée à tous.
Natacha