Pb de données avec listbox [Résolu]

[chanoir]

Bonsoir

Je bloque depuis plusieurs heures sur un probleme en VBA:
J'ai récupéré et modifié un code me permettant de rechercher sur une feuille excel, une cellule contenant un texte defini par l'utilisateur dans une inputbox. Le code me cherche la cellule concernée, récupère la ligne entière (de la colonne A à L) et m'indique dans une listbox le contenu de la ligne.
Ce code marche parfaitement sauf... qu'il m'indique seulement l'adresse de chaque cellule constituant ma ligne et non pas la valeur de chacune. J'ai beau creer de nouvelles variables (reclignval1) censées récupérer les valeurs, ça ne fonctionne pas. Pouvez vous m'aider?

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub RecherchePhrases() 
'Programme de recherche de phrases suivant critere de saisie 
 
Dim nom, c, msg, lign, reclign1, reclign2, reclign3, reclign4, reclign5, reclign6, reclign7, reclign8, reclign9, reclign10, reclign11, reclign12 as string
Dim reclignval1
 Dim NombrePhrasesTrouvées As Integer 
NombrePhrasesTrouvées = 0 
 
'Affichage du inputbox pour saisie 
nom = Trim(Application.InputBox("Entrez un critère", "Recherche")) 
'N'execute pas la rechereche si on clique sur Annuler ou si aucune saisie 
If nom = False Or nom = "" Then 
Exit Sub 
End If 
'Active la feuille nommée Base de données 
Sheets("Base de Données").Activate 
 
'Effectue la recherche dans la plage cellule 
For Each c In Range("a5:l1000") 
If c.Value Like "*" & nom & "*" Then 
'Incremente le nombre de phrases trouvés 
NombrePhrasesTrouvées = NombrePhrasesTrouvées + 1 
'texte trouvé suivant la saisie 
 
lign = c.Row 
reclign1 = "a" & lign 
reclignval1 = Range(reclign1).value
reclign2 = "b" & lign 
reclign3 = "c" & lign 
reclign4 = "d" & lign 
reclign5 = "e" & lign 
reclign6 = "f" & lign 
reclign7 = "g" & lign 
reclign8 = "h" & lign 
reclign9 = "i" & lign 
reclign10 = "j" & lign 
reclign11 = "k" & lign 
reclign12 = "l" & lign 
 
'fait une liste des phrases correspondantes a la saisie dans 
'le listbox 
UserFormResultat.ListBoxResultatRecherche.AddItem reclignval1 & Chr(9) & reclign2 & Chr(9) & reclign3 _
 & Chr(9) & reclign4 & Chr(9) & reclign5 & Chr(9) & reclign6 
 
 
 
 
End If 
Next 
'Affiche le liste 
If NombrePhrasesTrouvées > 0 Then 
UserFormResultat.Caption = NombrePhrasesTrouvées & " phrase(s) trouvé(s)" 
UserFormResultat.Show 
Else 
MsgBox "Aucun résultat !", vbInformation, "Resultat Recherche" 
End If 
 
End Sub

[jfontaine]

Bonjour,

Essais comme cela

Code :

UserFormResultat.ListBoxResultatRecherche.AddItem Range(reclignval1).value & Chr(9) & range(reclign2).value etc ...

[chanoir]

Un grand merci, ton code marche parfaitement!

[jfontaine]

Tu peux aussi optimiser ton code en utilisant la méthode Find qui trouvera directement la ligne qui contient le mot que tu cherches.
Cela évitera de faire une boucle qui sera plus longue à l'exécution

[chanoir]

Merci pour le conseil, mais mon niveau en VBA ne me permet pas de pouvoir faire ça pour l'instant, j'en suis au stade du bricolage! Je suis tellement content que cela marche...