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