Afficher des references depuis Listbox

Bonjour,

Je suis tout débutant sur VBA et mon but c'est de, en cliquant sur une des références affichées sur ma listbox, que cela puisse faire apparaître les informations de la références cliquées automatiquement sur les textbox à côté "os", 'nombre',...

Mais comment faire ??

Edit Dan : modifié titre du sujet (VBA excel Please)

Bonjour,

Lorsque vous postez sur ce forum, merci de mettre un titre de sujet en rapport avec votre demande (VBA Excel Please que j'ai édité)

Comme vous êtes nouveau sur ce forum, si vous ne l'avez pas encore fait, je vous invite à lire ces quelques lignes qui vous aideront dans vos demandes et réponses sur ce forum --> https://forum.excel-pratique.com/excel/a-lire-avant-de-poster-charte-du-forum-et-informations-utiles...

Si vous le souhaitez, vous pouvez aussi faire une petit présentation de vous dans cet espace --> https://forum.excel-pratique.com/presentations

Un lien intéressant si vous voulez progresser avec VBA --> https://www.excel-pratique.com/fr/vba

Merci de votre participation

Cordialement

Désolé, merci.

Quelqu'un peut m'aider s'il vous plait ?

Oui bien sûr

Dans l'userform, lorsque vous faites un choix dans la listbox, la textbox1 doit aussi reprendre la référence outillage sur lequel vous avez cliqué ?

Sinon vous pouvez déjà modifier ce code-ci

Private Sub TextBox6_Change()
Dim i As Integer
Dim nbmax As Long

Me.lstRef.Clear

nbmax = Feuil1.ListObjects("Tableau1").DataBodyRange.Rows.Count

If Me.TextBox6 <> "" Then
    For i = 1 To nbmax
        If Feuil1.Cells(i, 6) Like "*" & Me.TextBox6 & "*" Then
            Me.lstRef.AddItem Feuil1.Cells(i, 6)
        End If
    Next i
End If
End Sub

Je souhaite que quand on clique sur une référence affichée sur la listbox que les informations liées à cette référence apparaissent sur les textbox 2 à 5.

Une idée svp ?

Je souhaite que quand on clique sur une référence affichée sur la listbox que les informations liées à cette référence apparaissent sur les textbox 2 à 5.

Mettez ce code dans votre userform1

Private Sub lstRef_Click()
Dim i As Integer
Dim valeur As String

lstRef.MultiSelect = fmMultiSelectSingle

For i = 1 To 5
    Me.Controls("Textbox" & i) = ""
Next i

For i = 0 To Me.lstRef.ListCount - 1
    If Me.lstRef.Selected(i) = True Then
        valeur = Me.lstRef.List(Me.lstRef.ListIndex, 0)
        With Feuil1.ListObjects("Tableau1")
            lig = .ListColumns(1).DataBodyRange.Find(valeur, LookIn:=xlValues, lookat:=xlWhole).Row
            'Me.TextBox1 = valeur
            Me.TextBox2 = .DataBodyRange.Item(lig, 2).Value
            Me.TextBox3 = .DataBodyRange.Item(lig, 3).Value
            Me.TextBox4 = .DataBodyRange.Item(lig, 4).Value
            Me.TextBox5 = .DataBodyRange.Item(lig, 5).Value
        End With
        Exit For
    End If
Next i
End Sub

Cordialement

Bonjour

Quid de la proposition ?

Bonjour à tous,

Interrogation > dans le fichier exemple proposé > il y a des doublons dans la colonne F > sera-ce aussi le cas dans le fichier final ?

ric

@ric : Exact ! et j'avais aussi vu pour ces doublons.

Bah il faut déjà qu'il revienne nous dire quoi. Là vu que la listbox contient toutes les infos il faudra qu'il choisisse la bonne dans les doublons... Peut être que cela n'a pas trop d'importance à ce stade