none
Problème en VBA lié à une RechercheV (Vlookup) dans un UserForm

    Question

  • Bonjour, 

    j'ai un problème avec sur du VBA, je vous explique mon problème ci-dessous

            j'ai un bouton sur ma feuille qui au click ouvre mon UserForm sur lequel j'ai une combobox avec les valeurs de ma première colonne de mon tableau qui correspondent à des références, j'ai également une textbox en dessous et je voudrais que lorsque je choisis un référence dans la combobox que cela me donne la valeur situé dans la colonne à côté correspondant à ma référence. 


    vendredi 22 juin 2018 12:28

Toutes les réponses

  • Voici le code à mette dans le userform :

    Private Sub ComboBox1_Change()
      Me.TextBox1.Text = Application.VLookup(Me.ComboBox1.Value, Sheets("Feuil1").[A:B], 2, 0)
    End Sub
    
    Private Sub UserForm_Activate()
      Dim C As Range
      With Sheets("feuil1")
        Me.ComboBox1.Clear
        Me.TextBox1.Text = ""
        For Each C In .Range("A1", .Cells(.Rows.Count, 1).End(xlUp))
          Me.ComboBox1.AddItem C.Value
        Next C
      End With
      Me.ComboBox1.ListIndex = -1
    End Sub
    

    La feuille s'appelle Feuil1. A modifier, le cas échéant.

    Cordialement.

    Daniel

    lundi 2 juillet 2018 13:54