Discussion :

[fredym]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hyperion13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fredym]

Bonjour,
C'est parfait!
Merci beaucoup.
Fredym

[fredym]

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