USF recherche de Thierry

[rudymagny]

Bonjour à tous,
J'ai trouvé sur un fil un USF de recherche qu'avait fait thierry et qui d'ailleurs est extra pour ce que je dois faire!!! Merci Thierry!
Mais je n'arrive pas à l'adapter dans mon cas!
J'ai 12 feuilles (mois de l'année) et 2 autres feuilles.

1er problème:
Je voudrais qu'il ne cherche que dans les 12 feuilles des mois de l'année

2ème problème:
Il ne m'affiche rien dans la listbox!

J'ai mis un fichier en exemple et j'ai laissé 7 mois pour que le fichier ne dépasse pas 50Ko.

Pouvez vous m'aider?
Merci d'avance

 

[pierrejean]

Re : USF recherche de Thierry

bonjour rudimagny

j'ai fait en sorte d'avoir un resultat en listbox1 a partir de la recherche dans les feuilles differentes de Tableau1 et Tableau2

Quant au double click je ne l'ai pas traité ne sachant pas si cela t'interesse

 

[rudymagny]

Re : USF recherche de Thierry

Bonsoir Pierrejean!
Je répond un peu en retard, excuse.

Déjà merci de ta réponse, et c'est pas mal déjà cela me donne un résultat.
Mais ce que je voudrais c'est que la recherche me donne le résultat (la ligne entière correpondant à ma recherche) dans la listbox et lorsque je clic dessus, il m'envoi sur la feuille correspondante.
Je sais je suis difficile!

Je vais essayé de trouver la méthode mais un ti coup de main serait cool.

 

[rudymagny]

Re : USF recherche de Thierry

J'ai essayé de retoucher le code et d'y ajouter déjà le initialyze qui est indispensable mais je il me sort n'importe quoi dans la listbox!!

j'ai mis la limite d'affichage dans la listbox à 12 car les cases à cocher apparaissent en o et y.

 

[Excel_lent]

Re : USF recherche de Thierry

Salut tous,

Pour ne tester que les 12 dernières feuilles, commence par janvier (Sheets(3)).
J'ai rajouté une boolean pour éviter l'affichage multiple de "trouvé".
j'ai neutralisé une ligne pour avoir la liste de tous les cas trouvés.

@+

 

[Excel_lent]

Re : USF recherche de Thierry

Re,

Avec le bon fichier,

@+

 

[rudymagny]

Re : USF recherche de Thierry

Salut Excel_Lent,
Vous êtes des chefs sur XLD, ça marche nickel, je vais l'adapter à ma petite appli.
Merci beaucoup

 

[rudymagny]

Re : USF recherche de Thierry

Bonjour à tous,
Voilà après plusieurs lectures de fil, j'ai pu remarquer qu'on ne pouvait pas afficher de titre avec une listbox.
Alors qu'avec une listview, c'est possible.
Je sais qu'avec le columnheader permet de le faire et c'est bon pour ça mais c'est l'alimentation de la listview que je ne comprend pas dans mon cas.
Comment est il possible de reproduire ce que m'a donnée Excel_lent avec la listbox pour l'alimentation mais avec ma listview?
J'essaye mais je sais que je vais avoir besoin de vous.
un petit fichier servira je pense.

Merci à vous.

 

[Spitnolan08]

Re : USF recherche de Thierry

Bonjour,

Juste une info : Il est possible d'afficher des titres dans une listbox mais avec une seule méthode : Listrows, sauf erreur.

Cordialement

 

[rudymagny]

Re : USF recherche de Thierry

Bonjour Spitnolan08, je ne sais pas mais j'ai utilisé la méthode:
ex: listview1.columnheaders.Add , , "Dossier", 45
et ça marche bien.
l'aide dit que listrows permet de Spécifier le nombre maximal de lignes à afficher dans la liste.

 

[rudymagny]

Re : USF recherche de Thierry

J'ai essayé un truc comme ça mais ça me crée a chaque fois une nouvelle ligne:


'Aide de Excel_Lent et pierrejean et thierry sur XLD
Private Sub RechercheGo_Click()
Dim C As Range
Dim Tablo() As String
Dim Text As String
Dim Text2 As String
Dim S As Byte
Dim Firstaddress As String
Dim i As Integer, X As Integer, num_result As Integer
Dim Compte As Integer
num_result = 0

ListView1.ListItems.Clear

TextBox20.SetFocus
Text = Me.TextBox20

If Text = "" Then
MsgBox ("Veuillez renseigner ce que vous cherchez voyons!!!"), vbInformation
TextBox20.SetFocus
Exit Sub
End If

For S = 1 To Worksheets.Count
With Sheets(S).UsedRange

Set C = .Find(Text, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
num_result = num_result + 1
ReDim Preserve Tablo(34, i)
For X = 1 To 31
'Tablo(X - 1, i) = C.Offset(0, X - C.Column).Text
With ListView1
.ListItems.Add , , C.Offset(0, X - C.Column).Text
With .ListItems(.ListItems.Count)
.ListSubItems.Add , , C.Offset(0, X - C.Column).Text
.ListSubItems.Add , , C.Offset(0, X - C.Column).Text
.ListSubItems.Add , , C.Offset(0, X - C.Column).Text
End With
End With
Next X

'Tablo(32, i) = Sheets(S).Name
'Tablo(33, i) = C.Address(0, 0)
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
Next S

If i <> 0 Then
'Me.ListBox1.Column() = Tablo()
TextBox21.Value = num_result
End If
If i = 0 Then
MsgBox ("Le Texte " & Text & " n'a pas été trouvé dans le fichier de suivi"), vbCritical
TextBox20 = ""
Exit Sub
End If
End Sub

 

[rudymagny]

Re : USF recherche de Thierry

Encore une info, j'ai remodifier le code et maintenant il ne m'affiche les résultats que sur une colonne ???

'Aide de Excel_Lent et pierrejean et thierry sur XLD
Private Sub RechercheGo_Click()
Dim C As Range
Dim Tablo() As String
Dim Text As String
Dim S As Byte
Dim Firstaddress As String
Dim X As Integer, num_result As Integer
num_result = 0
ListView1.ListItems.Clear
TextBox20.SetFocus
Text = Me.TextBox20
If Text = "" Then
MsgBox ("Veuillez renseigner ce que vous cherchez voyons!!!"), vbInformation
TextBox20.SetFocus
Exit Sub
End If
For S = 1 To Worksheets.Count
With Sheets(S).UsedRange
Set C = .Find(Text, LookIn:=xlValues, LookAt:=xlPart)

If Not C Is Nothing Then
Firstaddress = C.Address
Do
num_result = num_result + 1
ReDim Preserve Tablo(34, i)
For X = 1 To 31
'Tablo(X - 1, i) = C.Offset(0, X - C.Column).Text
ListView1.ListItems.Add , , C.Offset(0, X - C.Column).Text
Next X

'Tablo(32, i) = Sheets(S).Name
'Tablo(33, i) = C.Address(0, 0)
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
Next S
If i <> 0 Then
'Me.ListBox1.Column() = Tablo()
TextBox21.Value = num_result
End If
If i = 0 Then
MsgBox ("Le Texte " & Text & " n'a pas été trouvé dans le fichier de suivi"), vbCritical
TextBox20 = ""
Exit Sub
End If
End Sub
voilà ce que cela me donne

 

[rudymagny]

Re : USF recherche de Thierry

fichier exemple

 

[ChTi160]

Re : USF recherche de Thierry

salut rudymagny

en pièce jointe ce que j'ai bidouillé Lol

Le Fichier : Regarde la pièce jointe Question_XLD_ListviewV2.zip

Bonne fin de Journée

 

[rudymagny]

Re : USF recherche de Thierry

Bonjour Chti160,
déjà merci pour ta réponse,
C déjà pas mal il me sort le résultat sur une seule ligne!! soupère

mais il ne me sort pas les infos dans le bon sens, j'ai l'impression qu'il en retire.
Normalement il prend les données de la ligne contenant le mot recherché exactement dans le même ordre.

Je vais essayer de voir.
merci