Bonjour,

J'ai créé un Userform pour créer un formulaire de saisie et j'ai également fait un deuxième userform qui permet de rechercher une information avec l'aide d'une comboBox qui est alimentée par ma colonne D.
Lorsque que je sélectionne une donnée dans ma comboBox, j'aimerais que toutes les informations de la ligne s'affiche dans mon userform. Pour cela j'ai créer toutes les textBox, comboBox nécessaires. Seulement, mon problème est que ma formule fonctionne une fois sur trente.

Ma formule est la suivante :
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
24
25
26
27
Private Sub REF_Change()
With Sheets("Fiche prospect")
Dim a As Integer
Dim cherche As String
cherche = REF.Value
a = Cells.Find(What:=cherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
ComboBox_Manager = Range("A" & a).Value
TextBox_Client = Range("B" & a).Value
TextBox_Fonction = Range("E" & a).Value
TextBox_Tél = Range("F" & a).Value
TextBox_Mail = Range("G" & a).Value
TextBox_Ville = Range("C" & a).Value
ComboBox_Departement = Range("H" & a).Value
TextBox_Commentaires = Range("L" & a).Value
ComboBox_Secteur = Range("I" & a).Value
TextBox_Génie = Range("J" & a).Value
ComboBox_Métier = Range("K" & a).Value
TextBox_Profil = Range("M" & a).Value
ComboBox_Métier = Range("N" & a).Value
TextBox_Expérience = Range("O" & a).Value
TextBox_Outils = Range("P" & a).Value
TextBox_Prospecté = Range("Q" & a).Value
TextBox_Qualifications = Range("R" & a).Value
TextBox_Businessactuel = Range("S" & a).Value
TextBox_Businessantérieur = Range("A" & a).Value
End With
End Sub
Cette ligne "a = Cells.Find(What:=cherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row" est surlignée en jaune.

Auriez-vous des conseils à me donner concernant ce petit problème ? Merci d'avance