Dans un ListBox : Séparer les colonnes et les Formater

Bonjour

Si tu prends ton premier tableau ile faut te baser sur la colonne B

[barrer]For J = 2 To WsF1.Range("A" & Rows.Count).End(xlUp).Row[/barrer]
For J = 2 To WsF1.Range("B" & Rows.Count).End(xlUp).Row

Et pour la clé je n'en sais pas plus, c'est une zone de stockage de ce que tu veux (moi je l'utilise pour y mettre la ligne)

Je sais qu'elle doit être unique

La clé n'est pas obligatoire

Le reste est dans le fichier PDF

A voir ton fichier

Pour les entêtes des colonnes tu n'es pas obligé de te servir des entêtes de ta base de données

A voir

Re,

Si tu prends ton premier tableau ile faut te baser sur la colonne B

Effectivement j'avais pas vu cette erreur

Merci pour le corrigé

Mais aucun article n'est toujours pas listé sur le ListView !

Bonjour

christG a écrit :

Mais aucun article n'est toujours pas listé sur le ListView !

Effectivement, je n'avais pas essayé avec le joker

Mais ce n'est pas le but de ce ListView

Le but c'est que si je tape "Art", il me ressorte tous les lignes contenant dans la colonne "B" les noms comme "Article"

Et là ce n'est pas le cas

c'est bien le cas dans le ListBox mais dans le ListView

Bonjour

Effectivement

Modifies le code

Sub AlimenteListView()
Dim J As Long
Dim I As Integer
Dim Nb As Integer

  With Me.ListView1
    .ListItems.Clear
    For J = 1 To WsF1.Range("B" & Rows.Count).End(xlUp).Row
     [barrer]If WsF1.Cells(J, 1) Like "*" & Me.TextBox1 & "*" Then[/barrer]
      If WsF1.Cells(J, 2) Like "*" & Me.TextBox1 & "*" Then

Le problème vient de ce que la recherche se fait sur la colonne A, alors qu’elle doit se faire dans la colonne B

Comme dans le ListBox :

On doit faire une recherche dans la colonne A, afin de tester si il y a bien le mot « Titre », et ainsi se positionner dans le coin supérieur du bon thème correspondant au mot recherché dans la colonne B.

Dans le ListView, y compris dans ta première proposition en te servant de ta feuille récapitulative, comme je te l’avais signalé auparavant, tu te positionnais uniquement sur l’article sans t’occuper du thème.

Je vois que je n’ai peut-être pas été assez clair.

Le ListView m’intéresse fortement, car il est nettement plus paramétrable que le ListBox.

Mais ce que je pensais faire, c’est remplacer le ListBox par le ListView avec tous ses avantages, mais tout en conservant si possible, ce que j’obtenais au niveau du positionnement avec le ListBox.

Je prends un exemple pour être le plus clair possible

Je tape dans le TextBox « Aticle 2 »

Dans le ListBox apparaissent 2 « Article 2 »

Je clique sur le 2ème, soit celui du Thème B

Le pointeur vient ce positionné dans 1er temps sur la cellule du Thème B de manière que cette cellule vienne se positionner sans le coin supérieur gauche de la fenêtre

Puis dans un second temps, sur la cellule correspondant au mot recherché, soit sur l’ « article 2 du thème B »

(La colonne A n’a pas besoin d’être visualisée dans le ListView, c’est une colonne cachée dans mon tableau, qui ne sert que de test)

Ma réponse s’est croisée avec la tienne

Je vois que tu déjà solutionné le problème de l’affichage des mots recherchés, si le reste peut l’être aussi, se serait parfait

Merci déjà pour çà

Bonjour

A vérifier

Bonsoir

Cette fois on touche au but

Tous semble parfait

J'ai donc entrepris de le transférer dans mon tableau original

Mais je me retrouve avec le même problème de la dernière fois

Erreur de Type au niveau de

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim I As Integer
Dim Lg As Long

  I = Me.ListView1.SelectedItem.Index
  Lg = Mid(Me.ListView1.ListItems(I).Key, 2)
  Do While WsF1.Cells(Lg, "A") = ""
    If Lg = 1 Then Exit Do
    Lg = Lg - 1
  Loop
  Application.Goto WsF1.Cells(Lg, 1), Scroll:=True
  Application.Goto WsF1.Cells(Mid(Me.ListView1.ListItems(I).Key, 2), 2)
End Sub

Message :

Erreur de compilation:

Type défini par l'utilisateur non défini

C'est le même nom de feuille

J'ai bon cherché, je ne vois pas d'où vient l'erreur

J'ai essayé de l'incorporé dans un autre tableau en reprenant exactement les même éléments, mêmes dispositions

En fait dès que je transfert dans un autre classeur, je me retrouve avec ce même message et même blocage

Bonjour

No lo sé

Vérifies si tu as les mêmes références entre les deux fichiers

Vérifies si dans les références il y en a de marqué "Manquant" (auquel cas il faut les décocher)

Le mieux cela serait de joindre ton fichier, parce que d'où je suis je vois mal

Normalement si tu as fait juste un copier/coller, il ne devrait pas y avoir de problème

Bonjour

J’ai fait un copié-collé de ton fichier (uniquement la feuille 1)

Tout est donc identique à ton fichier

J’ai fait un copié-collé de UserForm

Tu verras donc l’erreur tout de suite

Il ne peut s’agir dune erreur de frappe !

J’ai cherché dans les références

Dans ton fichier il y a

Microsoft Windows Common Controls 6.0 (SP6)

Dans le mien, je n’ai pas cette référence

Mais elle n’apparait pas manquante non plus

Je ne sais pas si cela peut être la cause ?

Bonjour

Si c'en est la cause

Coches cette référence et cela fonctionnera mieux

Je l'aurai fait si je pouvais

Mais elle n'est pas présente dans la liste !

J'ai cherché en vain où la trouver

Peux tu me dire si chez toi

le nouveau fichier que j'ai joint fonctionne ?

Bonjour

Il fonctionne si je coche cette référence

Si tu me dis que les fichiers, que je t'ai fait, fonctionnent, c'est que tu as cette référence

Dans ta liste de références recherche la, car elles sont classées par ordre alphabétique

Je n'en sais pas plus

Dans ton fichier outre la référence en question

il y a 4 références "Microsoft Winows ............"

Dans mes fichiers, apparaissent bien ces 4 références, mais il n'y pas cette cinquième référence

Bonjour

Et en cherchant dans la liste ?

Oui c'est ce que je fais en cliquant avec la flèche du bas

J'arrive donc sur ces 4 références Microsoft Windows Image, Installer, Média .....

Mais là pas de Common Controls

Bonjour

christG a écrit :

Oui c'est ce que je fais en cliquant avec la flèche du bas

???????

Il faut utiliser l'ascenseur

Mais c’est bien ce que je fais depuis des heures

Mais je viens de résoudre le problème

J’ai téléchargé ce fichier : MSCOMCT2.OCX

Je l’ai enregistré dans ma base de registre

…………

Puis à l’aide de parcourir dans le system 32, j’ai pu insérer ce cette référence

Malheureusement cela ne change rien à mon problème

Je me retrouve avec le même message d’erreur

Bonjour

Quand tu as installéMSCOMCT2.OCX as tu fait Regsvr32 C:\Windows\system32\MSCOMCTL.OCX ?

je ne vois pas où est le problème ?

Si quelqu'un a une solution ?

uand tu as installéMSCOMCT2.OCX as tu fait Regsvr32 C:\Windows\system32\MSCOMCTL.OCX

Oui, j'ai bien fait cela

Puis j'ai rebouté

Je suis dépité !!!

Maintenant cette référence est bien présente et cela ne vient plus de là

et je ne sais où chercher

Ya t'il d'autres controls que tu utlise ?

Je n'arrive pas à comprendre comment ton fichier fonctionne parfaitement

et que le nouveau fonctionne bien chez toi et pas chez moi ??