Positionnement auto dans LISTVIEW

Version imprimable

23/03/2009, 10h14
fidecourt

Positionnement auto dans LISTVIEW

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;)
23/03/2009, 10h40
laetitia

bonjour fidecourt le forum si tu pouver zip un fichier sans donnees confiden...
comme cela pas facile de voir
23/03/2009, 11h25
fidecourt

ListView et positionnement

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

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

Code:

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:

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

23/03/2009, 13h29
fidecourt

ListView et Adresse

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

re le forum le pb vient de la Adresse = C.Adress

Code:

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 TBRecherche_Change()
Dim Plage As Range, cell As Range
    Dim Recherche As String
    Dim Adresse As String
    Dim Ligne As Integer, N As Integer
    Dim C As Range
        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

je regarde pour le centrage avec un peu de chance

23/03/2009, 17h42
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:mouarf:
22250
23/03/2009, 18h26
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...
23/03/2009, 18h51
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 !:mouarf:

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:

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

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

Option Explicit

Code:

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:

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

24/03/2009, 10h06
fidecourt

MERCI !

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:yaisse2:

re, pour centrer les colonnes sauf la premiere j ai un code pour centrer la premiere mais ca fait modifier le code

Option Explicit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim i As Long, 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: Beep
  End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Référence", 100
       .Add , , "Désignation", 250, (2)
       .Add , , "Prix public", 110, (2)
       .Add , , "Valeur Stock Totale", 110, (2)
    End With
 .Gridlines = True
  For i = 2 To Sheets("STOCK").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("STOCK").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 4), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 6), "## ##0.00 €")
 Next: End With
TextBoxValeurTotaleStock = Format(Sheets("STOCK").Range("g2").Value, "## ##0.00 €")
 End Sub

25/03/2009, 11h00
fidecourt

ALIGNEMENT LIST VIEW

bonjour Laeticia

ça fonctionne très bien, j'ai modifié le code pour aligner à droite les colonnes de chiffre, et c'est parfait

je cherche maintenant à faire une listview des articles par Fournisseur

j'ai un peu de mal, dans l'idéal, j'aurai voulu rajouter sur la listview de base, une colonne Fournisseur et pouvoir comme on appelle les articles par le début de leur ref, appeler le fournisseur par le début de son nom

cela sous entend, un classement de la listview par 2 colonne : refarticle et fournisseur

et appel par article et par fournisseur

Toi qui semble connaître les possibilités ListView sur le bout des doigts, peux tu me dire si techniquement c'est possible à faire avec une listview où s'il est préférable de faire un autre userform avec une autre listbox pour appeler par fournisseur ?

D'autre part, peux tu m'indiquer où je peux trouver une documentation complète sur ce contrôle (ouvrage, ou site...) cela m'intéresse et comme j'ai d'autres formulaires à mettre en place, j'avoue que cela me serait bien utile

Encore merci pour tes précieux conseils:lol:

re,sur le meme principe j ai supprime le label3"recherche article" a la place j ai mis un checkbox que j ai nommer cbx1 tu click pour modifier le critere de recherche puis j ai changer le code de recherche j aurais du partir sur un autre code dynamique mais bon on va rester sur celui la tres basique plus facile a comprendre

Code:

1
2
3
Private Sub cbx1_Click()
If cbx1 = True Then cbx1.Caption = "recherche par fournisseur" Else cbx1.Caption = "recherche par article"
End Sub

Code:

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
29
30
31
32
33
34
35
36
37
38
Private Sub TBRecherche_Change()
ListView1.ListItems.Clear
N = 0
Recherche = TBRecherche.Value
If cbx1 = False Then
Ligne = Sheets("STOCK").Range("A" & "65536").End(xlUp).Row
Set Plage = Sheets("STOCK").Range("A2" & ":a" & Ligne)
Else
Ligne = Sheets("STOCK").Range("b" & "65536").End(xlUp).Row
Set Plage = Sheets("STOCK").Range("b2" & ":b" & Ligne)
End If
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
 Do
 If cbx1 = False Then
 If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 ListView1.ListItems.Add , , C
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 1)
 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
  Else
  If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
 ListView1.ListItems.Add , , C.Offset(0, -1)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C
ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 1)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 2)
 ListView1.ListItems(N + 1).ListSubItems.Add , , C.Offset(0, 4)
  N = N + 1
 End If:  End If
  Set C = .FindNext(C)
  Loop While Not C Is Nothing And C.Address <> Adresse
  End If: End With: Beep
  End Sub

j ai oublie initialise

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Référence", 100
        .Add , , "fournisseur", 100, (2)
       .Add , , "Désignation", 150, (2)
       .Add , , "Prix public", 110, (2)
       .Add , , "Valeur Stock Totale", 110, (2)
    End With
 .Gridlines = True
  For i = 2 To Sheets("STOCK").Range("A65536").End(xlUp).Row
.ListItems.Add , , Sheets("STOCK").Cells(i, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("STOCK").Cells(i, 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 4), "## ##0.00 €")
.ListItems(.ListItems.Count).ListSubItems.Add , , Format(Sheets("STOCK").Cells(i, 6), "## ##0.00 €")
 Next: End With
TextBoxValeurTotaleStock = Format(Sheets("STOCK").Range("g2").Value, "## ##0.00 €")
 End Sub