USF recherche de Thierry

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #16

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.

 

Pièces jointes

• Question_XLD_ListviewV3.zip

  24.6 KB · Affichages: 17
• Question_XLD_ListviewV3.zip

  24.6 KB · Affichages: 16
• Question_XLD_ListviewV3.zip

  24.6 KB · Affichages: 17

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Avril 2007

• #17

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

Cliquez pour agrandir...

Bonne journée

 

Pièces jointes

• Question_XLD_ListviewV3.zip

  24.8 KB · Affichages: 20
• Question_XLD_ListviewV3.zip

  24.8 KB · Affichages: 20

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #18

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

 

Dernière édition: 3 Avril 2007

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 3 Avril 2007

• #19

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éé.

 

Pièces jointes

• Question_XLD_ListviewV3.zip

  25.3 KB · Affichages: 33
• Question_XLD_ListviewV3.zip

  25.3 KB · Affichages: 34
• Question_XLD_ListviewV3.zip

  25.3 KB · Affichages: 31

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #20

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

 

Dernière édition: 3 Avril 2007

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #21

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

 

Pièces jointes

• Question_XLD_ListviewV4.zip

  26.7 KB · Affichages: 11
• Question_XLD_ListviewV4.zip

  26.7 KB · Affichages: 12
• Question_XLD_ListviewV4.zip

  26.7 KB · Affichages: 12

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #22

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

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #23

Re : USF recherche de Thierry

voilà ce que ça me donne:

 

Pièces jointes

• Question_XLD_ListviewV4.zip

  28.5 KB · Affichages: 13
• Question_XLD_ListviewV4.zip

  28.5 KB · Affichages: 12
• Question_XLD_ListviewV4.zip

  28.5 KB · Affichages: 13

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #24

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.

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #25

Re : USF recherche de Thierry

fichier avec le code, c plus simple:

 

Pièces jointes

• Question_XLD_ListviewV4.zip

  30.7 KB · Affichages: 33
• Question_XLD_ListviewV4.zip

  30.7 KB · Affichages: 33
• Question_XLD_ListviewV4.zip

  30.7 KB · Affichages: 34

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 3 Avril 2007

• #26

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

 

Vote positif 0 Vote négatif

R

rudymagny

XLDnaute Occasionnel

• 3 Avril 2007

• #27

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

 

Vote positif 0 Vote négatif