Renseigner un txtbox à partir d'un élément dans la listbox

Bonjour à tous,

Avec l’aide d’un tuto je pu créer un formulaire de recherche par mot clé. Je suis en train d’apprendre le VBA, débutant. Impatient j’aimerai apprendre tout d’un coup mais cela ne marche pas. Voilà mon problème. Dans le formulaire de recherche par mot clé, que j’ai trouvé sur internet et que je l’ai adapté à mon fichier, j’ai deux textbox (txtRef et txtPrix) que je voudrai les renseigner avec les données leurs correspondants et qui sont situées dans la feuille « ListeOperation ». Ce renseignement devrait s’exécuter une fois que j’ai fait mon choix en cliquant sur un élément dans la ListBox.

Je vous remercie pour votre aide et je joint mon fichier.

Bonjour,

Je te poste les deux procédures qui on reçues des modifications :

Private Sub lstOperationService_Click()

    With lstOperationService

        Me.txtResultat.Value = .Text
        txtPrix.Text = Feuil9.Cells(.Column(1, .ListIndex), 3)
        txtRef.Text = Feuil9.Cells(.Column(1, .ListIndex), 1)

    End With

End Sub

Private Sub txtMotCle_Change()

    Dim i As Integer
    Dim NbLigne As Integer
    Dim MotRecherche As String
    Dim J As Long

    'On initialise à zéro la liste de résultat
    With lstOperationService

        .Clear
        'défini à deux colonnes dont une invisible qui va contenir le numéro de ligne
        .ColumnCount = 2
        .ColumnWidths = "100;0"

    End With

    'On définit une variable pour comptabiliser le nombre de ligne dans la liste
        NbLigne = Feuil9.Range("A100000").End(xlUp).Row
        MotCherche = Me.txtMotCle.Value

        'On test que ma zone de saisie (textBox) ne soit pas vide avant d'exécuter la recherche
        If Me.txtMotCle <> "" Then
            'On  parcour la liste à partir de la deuxième ligne
            For i = 4 To NbLigne

                If Feuil9.Cells(i, 2) Like "*" & Me.txtMotCle.Value & "*" Then
                lstOperationService.AddItem Feuil9.Cells(i, 2)

                lstOperationService.Column(1, J) = i
                J = J + 1

                End If
         Next i

         End If

 End Sub

Bonjour

j'ais refait un userform

a toi de voir

A+

Maurice

re

encore une modife

A+

Maurice

C'est super mille merci. t'es un champion Archer

Bonjour

j'ais jouer un peux avec ton truc

A toi de voir

A+

Maurice

Il est génial Maurice. T'es un champion . Au dernier macro que tu a fait, j'ai essayer de rajouter les TextBoxs de la recherche; référence (colonne 1) , Prix (colonne 2), et description (colonne 5). J'ai pas réussi

Finalement c'est un UserForme que tu as crée que j'outilise. T'as gagné un supér apéro