Discussion :

[Jbo21]

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

[Marc-L]

Bonjour,

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, …

[BENNASR]

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 :

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
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 :

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

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