Discussion :

[fidecourt]

Bonjour à tous,

dans un formulaire, je souhaite mettre une TexBox de recherche afin de pouvoir lorsque je tape le début de ma REF ARTICLE, positionner le curseur dans la listview sur la ligne correspondante, cela fonctionne avec les listbox, mais je voudrais le faire avec la listview que j'ai mis en place, car cela me donne en ligne l'intégralité des infos dont j'ai besoin

la première colonne de la listview est la REF ARTICLE

j'ai regardé le doc sur "Utiliser le contrôle Listview en VBA" de Silkyroad, très intéressant, mais je n'ai rien trouvé à ce propos

quelqu'un sait il s'il est possible de le faire ou pas ?
d'avance merci pour votre aide

[laetitia]

bonjour fidecourt le forum si tu pouver zip un fichier sans donnees confiden...
comme cela pas facile de voir

[fidecourt]

bonjour Laeticia,

voici un exemple du formulaire pour plus de clarté

j'ai aussi un autre souci si tu vois pourquoi, malgré le positionnement lvwColumnRight ou Center, cela n'a aucun effet sur l'alignement des colonnes ?

pour les autres formulaires, tout fonctionne bien dans mon dossier avec toutes les données (liste des entrées, des sorties, etc...)

A+
Françoise

[laetitia]

re fidecourt le forum pour le premier point j ai renomer ta textbox recherche en textbox1 pour faire simple
le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub textbox1_Change()
Dim Plage As Range, cell As Range
    Dim Recherche As String, Adresse As String
    Dim Ligne As Integer, N As Integer
    Dim C As Range
        ListView1.ListItems.Clear
       N = 0
    Recherche = textbox1.Value
    Range("D3").Select
    Ligne = Sheets("STOCK").Range("a" & "65536").End(xlUp).Row
    Set Plage = Sheets("STOCK").Range("a2" & ":a" & Ligne)
        With Plage
        Set C = .Find(Recherche)
        If Not C Is Nothing Then
            Adresse = C.Address
            Do
                If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
                        ListView1.ListItems.Add , , C.Offset(0, 0)
                         ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 2)
                    ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 3)
                    ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 5)
                                     N = N + 1
                     End If
                Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> Adresse
        End If
    End With
End Sub

pour le le 2 souci j avais quelque chose la dessus un exemple a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With ListView1
    With .ColumnHeaders 'titre de la colonne et largeur et alignement
       .Clear
       .Add , , "Date", 60
       .Add , , "Heure", 60
       .Add , , "Nombre", 55, lvwColumnRight
       .Add , , "%", 40, lvwColumnCenter'center
    End With

[fidecourt]

Merci Laeticia

j'ai repris le code, mais j'ai une erreur :
Erreu 438 = propriété ou méthode non gérée
la macro s'arrête sur Adresse = C.Adress
la valeur d'Adresse est alors ""

d'autre part, la liste disparaît complètement dès que l'on va dans la zone TexBox1 (que j'ai renommé TBRecherche) ce qui est normal, mais lorsque l'on tape le premier car ne voit on pas la liste se reconstituer avec le 1er article commençant par ce car ??

pour le centrage des colonnes, j'ai le même souci, alignement toujours à gauche

je te renvoie le fichier avec le code inséré pour voir ce qui se passe

merci de ton aide

[fidecourt]

ça y est j'ai vu ! et pourtant j'ai repassé la syntaxe x fois...
là j'ai fait compléter le mot, et évidemment ça marche mieux.

dis moi, ne peut on avoir la liste classée par le début de la frappe dans la zone de recherche, je m'explique :
si je tape 22
j'obtiens dans la liste tous les articles commençant par 22, c-à-d :
22065
22085
22118
22119
22191
22199

ESt ce réalisable ?
encore merci
22250

[laetitia]

re j ai pas bien compris la question normalement ca marche comme cela tu tapes 2 tous ce qui commence par 2 est affichee!!!!!! ect...

[fidecourt]

désolée mais sur mon fichier je n'obtiens rien tant que je n'ai pas renseigné l'intégralité de la ref !

[laetitia]

re je comprends pas il y a un pb... tu reprends ton user usf stock dedans tu vires tous tu mets seulement le code ci dessous pour voir tu testes !!!
attention a cette ligne dans initialise elle fait reference au nom de ton classeur adapte stock ou stock1 ou autre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Workbooks("STOCK1.xls").Sheets("STOCK").Cells(iLigArticle, 1) <> ""

tu mets ce code que se passe t il !!!

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Plage As Range, cell As Range, Recherche As String, Adresse As String, Ligne As Integer, N As Integer, C As Range
Private Sub TBRecherche_Change()
 ListView1.ListItems.Clear
    N = 0
    Recherche = TBRecherche.Value
    Ligne = Sheets("STOCK").Range("A" & "65536").End(xlUp).Row
    Set Plage = Sheets("STOCK").Range("A2" & ":A" & Ligne)
        With Plage
        Set C = .Find(Recherche)
        If Not C Is Nothing Then
            Adresse = C.Address
            Do
            If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
                ListView1.ListItems.Add , , C.Offset(0, 0)
                ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 2)
            ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 3)
            ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 5)
                N = N + 1
            End If
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> Adresse
        End If
    End With
    End Sub

dans initialise' attention a ce que j ai dit plus haut!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , "Référence", ListView1.Width * 0.2
ListView1.ColumnHeaders.Add , , "Désignation", ListView1.Width * 0.4
ListView1.ColumnHeaders.Add , , "Prix public", ListView1.Width * 0.2
ListView1.ColumnHeaders.Add , , "Valeur Stock Totale", ListView1.Width * 0.2
Dim iLigArticle As Integer
iLigArticle = 2
ListView1.ListItems.Clear
While Workbooks("STOCK1.xls").Sheets("STOCK").Cells(iLigArticle, 1) <> ""
       ListView1.ListItems.Add iLigArticle - 1, , Sheets("STOCK").Cells(iLigArticle, 1)
    ListView1.ListItems(iLigArticle - 1).SubItems(1) = Sheets("STOCK").Cells(iLigArticle, 3)
    ListView1.ListItems(iLigArticle - 1).SubItems(2) = Format(Sheets("STOCK").Cells(iLigArticle, 4), "## ##0.00 €")
    ListView1.ListItems(iLigArticle - 1).SubItems(3) = Format(Sheets("STOCK").Cells(iLigArticle, 6), "## ##0.00 €")
    iLigArticle = iLigArticle + 1
Wend
TextBoxValeurTotaleStock = Format(Sheets("STOCK").Range("g2").Value, "## ##0.00 €")
 End Sub

pour le centrage j ai pas trouve quelque chose d interessant

[fidecourt]

bonjour Laeticia,

ça marche effectivement. En fait, j'ai compris ce qui clochait, j'avais mis le code de la recherche au mauvais endroit, à savoir après la détermination des listview entrées et sorties du formulaire UsfDetailArticle
ce qui est effectivement idiot à y réfléchir

voilà j'ai encore appris plein de choses avec toi
je te remercie beaucoup

pour l'alignement, je vais laisser tomber pour le moment, ce n'est pas très important

je vais tout de même essayer de trouver pourquoi, ça cloche

Encore merci