Discussion :

[grisan29]

bonjour a vous tous
j'ai ce code qui fonctionne tres bien avec une listbox mais comment faire pour qu'il fonctionne dans une listview

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
Sub Cherche(x As String)
    Dim C As Range, firstAddress As String
 
    Application.ScreenUpdating = False
    With Ws
        Set C = .Columns(3).Find(x, LookIn:=xlValues, lookat:=xlPart)
        If Not C Is Nothing Then
            firstAddress = C.Address
            Do
                If Left(C, Len(x)) = x Then
                    travaux.ListBox1.Item C.Offset(, -1)
                    travaux.ListBox1.List(travaux.ListBox1.ListCount - 1, 1) = C
                    travaux.ListBox1.List(travaux.ListBox1.ListCount - 1, 2) = C.Offset(, 1)
                    travaux.ListBox1.List(travaux.ListBox1.ListCount - 1, 3) = C.Offset(, 2)
                End If
                Set C = .Columns(3).FindNext(C)
            Loop While Not C Is Nothing And C.Address <> firstAddress
        End If
    End With
    Application.ScreenUpdating = True
 
End Sub

j'ai déja fait ceci

Code :

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

1
2
3
4
travaux.ListView1.listItems.Cells(C.Row, 2)
                travaux.ListView1.ListItems(travaux.ListView1.ListItems.Count - 1, 1) = .Cells(C.Row, 3)
                travaux.ListView1.ListItems(travaux.ListView1.ListItems.Count - 1, 2) = .Cells(C.Row, 4)
                travaux.ListView1.ListItems(travaux.ListView1.ListItems.Count - 1, 3) = .Cells(C.Row, 5)

mais ca coince des la première ligne

cordialement


Pascal

[Cocotte278]

Bonjour Grisan29 ,

Selon moi, il faut d'abord mettre toutes les données que tu veux rentrer dans ta ListView dans un tableau :

Code :

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

1
2
3
4
5
6
7
 
With Worksheets(1)
    Set Tbl = .Range("B2:AF21") 'mets ta plage de données à toi
    For Each D In Tbl
        LN(D.Row - 1, D.Column - 1) = D.Value 'remplit ton tableau nommé LN
    Next D
End With

Ensuite, tu complètes ta ListView à l'aide de ce tableau LN :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With ListView1
    .ListItems.Clear
    For L = 0 To UBound(LN, 1)
        .ListItems.Add , , LN(L, 0)
        For c = 1 To UBound(LN, 2)
            .ListItems(.ListItems.Count).ListSubItems.Add , , LN(L, c)
        Next
    Next
End With

J'espère que je ne me suis pas trop mal exprimée...

Bonne chance

[grisan29]

bonsoir cocotte278
merci mais le code code joint est dans un module lancé a partir de ce 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
Private Sub TextBox1_Change()
 
    If Me.ComboBox1 <> "" Then
        If TextBox1 <> "" Then
        With Me.ListBox1
            .ColumnCount = 4
            .ColumnWidths = "60;110;60;60"
            .Clear
        End With
            Cherche TextBox1.Text
        End If
    Else
        MsgBox "Sélection d'une feuille,svp"
        Me.ComboBox1.SetFocus
    End If
 
End Sub

et toutes les données sont déja dans la listview
cordialement

Pascal

[Cocotte278]

Bonjour Pascal,

toutes les données sont déja dans la listview

???

En fait, tu récupères des données rentrées dans la TextBox1 par l'utilisateur. C'est ça ? Et du coup, tu remplis la ListView au fur et à mesure ?

Essaie peut-être de remplacer :

Code :

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

travaux.ListView1.ListItems(travaux.ListView1.ListItems.Count - 1, 1) = .Cells(C.Row, 3)

Par :

Code :

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

travaux.ListView1.ListItems(travaux.ListView1.ListItems.Count).ListSubItems.Add , , .Cells(C.Row, 3).Value

Mais je ne comprends pas l'écriture :

Code :

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

.Cells(C.Row, 3)

...
Pour moi, il faut que tu récupères directement la valeur de la TextBox...

[grisan29]

bonsoir cocotte

il y a eu maldonne dans le code fourni dans mon post précédent,dans lequel il y a une listbox1 or le fichier que j'aurais du mettre contient listview en remplacement de listbox
je voulais éclaircir ce point avant d'essayer ce que tu propose
je démarre avec les listview et j'ai du mal a comprendre leur fonctionnement
cordialement

Pascal

[Cocotte278]

Pascal,

Peux-tu me dire où se situent les données que tu veux mettre dans ta ListView ?
Elles sont dans ta feuille Excel ?

Pourquoi, selon toi, les premiers bouts de code que je t'ai envoyés ne sont pas compatibles avec ce que tu recherches ?