Discussion :

[tony76]

bonjour à tous,

Voilà je fait une petite application, et je récupère dans une listview des infos qui vienne d'une autre listview
ce que je souhaiterais c'est lors ce que la case et cocher dans le listview récupéré la valeur de la 2 eme colonne
pour pouvoir l'insérer dans le filtre et pouvoir faire les modif dont j'ai besoin dans ma base
le problème vient du filtre ligne 8

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Private Sub ListView3_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim Resultat2 As Integer, NumLigne As Integer, ResetAll As Integer
Dim AncienneValeur As Integer
Dim i As Byte
 
' a modifié dans une prochaine mise à jour Range("$A$1:$G$1048576")
       Sheets("base").Range("$A$1:$G$1048576").AutoFilter Field:=1, Criteria1:=ListView3.SelectedItem.Text
 
 
    For i = 1 To ListView3.ListItems.Count
        If ListView3.ListItems(i).Checked Then
            AncienneValeur = ListView3.ListItems(i).ListSubItems(4).Text
        End If
    Next i
 
 
Sheets("SF").Select
 
 
On Error GoTo fin
 
Resultat2 = Application.InputBox("Indiquez la nouvelle quantité à sortir ?", NOM_VERSION, "Nouvelle quantité", , , , , Type:=1)
    If Resultat2 > 1 Then
 
        For NumLigne = 1 To ListView3.ListItems.Count
            If ListView3.ListItems(NumLigne).Checked Then
                ListView3.ListItems(NumLigne).ListSubItems(4).Text = Resultat2
                Sheets("SF").Range("E" & NumLigne + 19).Value = Resultat2
 
                Sheets("base").Range("D1").End(xlDown).Offset(0, 0).Value = Sheets("base").Range("D1").End(xlDown).Offset(0, 0).Value + AncienneValeur - Resultat2 'Qte en stock
            End If
        Next NumLigne
    End If
 
 
fin:
 
    For ResetAll = 1 To ListView3.ListItems.Count
        If ListView3.ListItems(ResetAll).Checked Then
            ListView3.ListItems(ResetAll).Checked = False
        End If
    Next ResetAll
 
Worksheets("base").AutoFilterMode = False
 
End Sub

merci par avance

[a_diard]

je pense que ceci

http://silkyroad.developpez.com/VBA/ListView/



te permettra de résoudre ton problème.

bonne journée.

[tony76]

merci mais, malheureusement non

[tony76]

bonsoir à tous,

Si sa peux être utile à d'autre voici la solution que j'ai trouvé

Code :

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

1
2
 
Sheets("base").Range("$A$1:$G$1048576").AutoFilter Field:=1, Criteria1:=ListView3.ListItems(Item.Index).ListSubItems(1).Text

il me reste à optimisé cette parti Range("$A$1:$G$1048576") pour ne pas aller jusqu'à 1 million de ligne si la base en contient que 1000 ligne
si quelqu'un à une idée merci d'avance.

[a_diard]

par exemple

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test()
 
nblignes = Range("A1").CurrentRegion.Rows.Count
 'compte le nombre de lignes (si il y a des lignes vides, ça ne fonctionne pas)
 
Sheets("base").Range("$A$1:$G$" & Format(nblignes)).Select
 
End Sub

[tony76]

merci pour l'exemple