Recherche VBA Excel

Version imprimable

Recherche VBA Excel

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:

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

26/05/2017, 15h15
Marc-L

Bonjour,

:tagcode: conformément aux règles de ce forum ‼

Voir l'aide VBA interne de la méthode Find et son exemple …

___________________________________________________________________________________________________________
Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonsoir
Pour la recherche pourquoi pas penser à une listbox je crois c'est mieux de charger ton USF par des textbox
(Sauf si tu cherche à modifier quelques données)
Avec une listbox tu peux chercher les données comme suit (à adapter) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim plage As Range
Set plage = Sheets("TONFEUILLE").Range("D2:D" & [A65536].End(xlUp).Row)
 
Monchiffre = CDbl(UserForm1.ComboBox1.Value) ' s'il s'agit d'un nombre
 i = 0
For Each Cell In plage
 If Cell.Value = Monchiffre Then
    UserForm10.ListBox1.ColumnCount = 4
    UserForm10.ListBox1.ColumnWidths = "50;70;40;180"
 
    UserForm10.ListBox1.AddItem
    UserForm10.ListBox1.Column(0, i) = Cell.Address
    UserForm10.ListBox1.Column(1, i) = Cell(1, -3)
    UserForm10.ListBox1.Column(2, i) = Cell(1, -2)
    UserForm10.ListBox1.Column(3, i) = Cell.Value
    i = i + 1
 End If
    Next Cell

si tu cherche à aller sur la ligne choisie sur ta LISTBOX : tu fais avec :

Code:

1
2
3
4
5
6
7
8
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LI As String
LI = Me.ListBox1
With Sheets("TONFEUILLE")
        Sheets("TONFEUILLE").Range(LI).Select
        Unload UserForm1
End With
End Sub

Bonne continuation