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

 

[rudymagny]

Re : USF recherche de Thierry

Bonjour à tous,
Voilà j'ai modifié le fichier et j'obtiens le résultat que j'attendais à part le fait que la recherche ne me sort toutes les éléments de toutes les feuilles et je ne vois pas pourquoi?

par exemple si on cherche "CHATI" , il devait nous sortir 5 résultats mais il ne sort que deux résultats!
je comprend pas.

 

[ChTi160]

Re : USF recherche de Thierry

salut rudymagny
bonjour le fil
En pièce jointe le fichier modifié
Effectivement il y avait un problème Excuses (trop vite fait)

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

Bonne journée

 

[rudymagny]

Re : USF recherche de Thierry

Bonjour Chti160, j'avais pas vu que tu m'avais répondu! merci ça c bon maintenant mais une autre problématique s'ouvre à moi:

Comment faire pour qu'il m'affiche correctement les cases à cocher au bon format dans la listview et non les caractères o et y .
Je sais que c'est du wingdings mais comment je peux faire?

Et je voudrais que les titres soit centrés et qu'il s'adapte en largeur pas rapport au texte qu'il y a dedans?

Merci d'avance

 

[Excel_lent]

Re : USF recherche de Thierry

Salut à tous,

Petite remarque :
La recherche se fait sur tous les mots contenant la sélection et l’affichage paraît donc bizarre.

Dans le correctif joint, il n’y a que la ligne des colonnes B (Doss.) affichée.
A adapter selon besoin !

@+

PS : tout ce travail m’a servi pour améliorer un programme que j’avais créé.

 

[rudymagny]

Re : USF recherche de Thierry

Bonjour Excel_Lent et merci pour tes infos qui peuvent être extrement utiles lorsque l'on est novice dans le VBA!
C COOL!!!

et pour les questions du dessus je vais regarder sur la wikipage de MichelXLD qui m'a l'air bourrées d'infos ce qui est super et d'ailleurs je l'en remercie!

Mais une tite aide n'est pas de refus.
merci

Bon ça y est j'ai regardé sur cette page et je suis tombé sur un lien amenant à un fil de Chti160 qui est pas mal du tout :
https://www.excel-downloads.com/threads/listview-et-initialisation-listimage.47546/

j'ai utilisé :
Listview1.ColumnHeaders.Add , , "texte", 30, lvwColumnCenter
et c'est nickel
MERCI CHTI160

 

[rudymagny]

Re : USF recherche de Thierry

Le centrage des colonnes c'est bon !
Pour l'ajustement des colonnes en fonction du texte, j'ai essayé d'adapter le code de CHTI160 :
https://www.excel-downloads.com/threads/listview-et-initialisation-listimage.47546/

mais il me sort des erreurs que j'ai tracé dans mon fichier exemple.

Par contre les cases à cocher ??? vois po

 

[rudymagny]

Re : USF recherche de Thierry

Le code de CHTI160 ne fait qu'agrandir la colonne 1 du listview1 mais n'ajuste pas toutes les colonnes.
Je dois surement mal l'adapter dans mon cas:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Const LVM_FIRST = &H1000
Private Const LVM_SETCOLUMNWIDTH = LVM_FIRST + 30
Private Const LVSCW_AUTOSIZE = -1
Sub RefreshLV(ListView1 As ListView)

LockWindowUpdate ListView1.Hwnd
Call SendMessage(ListView1.Hwnd, LVM_SETCOLUMNWIDTH, 0, LVSCW_AUTOSIZE)

If ListView1.ColumnHeaders(1).Width < ListView1.Width Then
If ListView1.Height > (ListView1.ListItems.Count * 270) Then
ListView1.ColumnHeaders(1).Width = ListView1.Width - 80
Else
If ListView1.ColumnHeaders(1).Width < ListView1.Width - 320 Then
ListView1.ColumnHeaders(1).Width = ListView1.Width - 320
End If
End If
End If

LockWindowUpdate 0&

End Sub

 

[rudymagny]

Re : USF recherche de Thierry

voilà ce que ça me donne:

 

[rudymagny]

Re : USF recherche de Thierry

Bon j'abandonne les cases à cocher et l'ajustement des colonnes.
Par contre je voudrais lorsque je clic sur une des lignes de la listview qu'elle m'emmène sur la bonne feuille et la bonne cellule.

Thierry le faisait bien avec les listbox mais je n'arrive pas à reproduire le phénomère lol.

je veux utiliser le :
ListView1_DblClick()
end sub

Ce qui se passe c que j'insère en dernière colonnes le nom de la feuille ou se trouve le résultat et en plus l'adresse de la cellule comme faisait Thierry avec les listbox;

Par contre la gestion du double clic!!! moi pas trouver.

 

[rudymagny]

Re : USF recherche de Thierry

fichier avec le code, c plus simple:

 

[Bebere]

Re : USF recherche de Thierry

bonjour Rudymagny,Jean-Marie,Excel-lent
le code qui t'intéresse

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim NomFeuille As String, CelAddress As String, Ligne As Integer, C As Byte
With ListView1
If Item.Checked = True Then
Ligne = .SelectedItem.Index
C = .ColumnHeaders.Count - 1
NomFeuille = .ListItems(Ligne).ListSubItems(C - 1).Text
CelAddress = .ListItems(Ligne).ListSubItems(C).Text
End If
End With

Sheets(NomFeuille).Select
Range(CelAddress).Select

End Sub

à bientôt

 

[rudymagny]

Re : USF recherche de Thierry

Bonsoir bebere,
Merci beaucoup pour la réponse c exactement ce que je voulais!
J'étais vraiment mal parti!

Je tiens à remercier tous ceux qui m'ont aidé et conseillé sur ce fil et sur ces deux sujets:
ChTi160, Excel_Lent, Bebere, pierrejean, Spitnolan08

XLD est vraiment le repère des meilleurs sur excel et vba.

MERCI A TOUS