vba ComboBox / TextBox recherche dans une autre feuille

Version imprimable

Bonjour,
Dans une userform comportant une combobox (données sont dans la 1ère colonne d'un tableau de la feuille2 (propriété rowsource = feuille2)
et une textbox dans laquelle sera écrit le résultat (dans la 2è colonne du tableau) de la recherche liée à la combobox

Je suis dans la feuille1 lors de l'appel du formulaire
je voudrais éviter la ligne 2 du code ci-dessous pour ne pas visualiser la feuille2 derrière mon userform

ce code fonctionne à l'aide de la fonction qui recherche le numéro de ligne correspondant à la donnée de la combobox.
Code:

1 2 3 4 5 6 7 8 9 sub () 1. Dim Ligne As Integer 2. Sheets("feuille2").Activate 3. Ligne = Recherche(ComboBox1.Text, 1) 4. If Ligne = 0 Then Exit Sub 5. TextBox1 = Range("B" & Ligne) End Sub
Code:

1 2 3 4 5 6 7 Function Recherche(Valeur, Colonne As Integer) As Long Dim Trouve As Range Set Trouve = Columns(Colonne).Find(Valeur, , xlValues, xlWhole) If Not Trouve Is Nothing Then Recherche = Trouve.Row End If End Function
Merci de votre aide

Salut
Une piste et à adapter selon votre IHM
Par contre je ne vois pas trop l'intérêt de votre function pour déterminer le n°ligne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
Dim Wks As Worksheet
Dim Rng As Range
Dim i As Long
 
Set Wks = Worksheets("Feuil2")
With ComboBox1
    For i = 2 To Wks.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem Wks.Range("A" & i)
    Next i
End With
TextBox1.Visible = True
End Sub
Private Sub ComboBox1_Click()
Dim CurrentRecord As Long
    CurrentRecord = ComboBox1.ListIndex
End Sub
Private Sub ComboBox1_Change()
Dim Ligne As Long
    If ComboBox1.ListIndex = -1 Then Exit Sub
    Ligne = ComboBox1.ListIndex + 2
    TextBox1.Value = Worksheets("Feuil2").Cells(Ligne, 2)
End Sub

24/10/2021, 21h11
fredym

Bonjour,
C'est parfait!
Merci beaucoup.
Fredym
27/10/2021, 13h01
fredym

limiter la plage à la dimension du tableau de données au lieu de la colonne entière

Bonjour,
C'est parfait votre code fonctionne après adaptation mais je voudrais le parfaire:

Au lieu de déterminer la colonne entière de la feuille2 pour lister la combobox je voudrais paramétrer une plage nommée qui adapte et limite au nombre de ligne du tableau.

et utiliser
Dim rng As Range pour dimensionner la plage.
merci de votre aide.
Fredym