Discussion :

[rampage92]

Bonjour a tous,

J ai cree une liste view avec des checkbox en colonne 1. Je voudrais que la colonne 4 soit egale a la colonne 2 fois la colonne 3 si la checkbox est cochee. VOus avez des idees de syntaxes ?


Merci

[Jean-Philippe André]

Bonjour,

un peu de lecture qui te sera des plus utiles !
http://silkyroad.developpez.com/VBA/ListView/

[rampage92]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton_Accept_Click()
 
For i = 1 To ListView_Trading.ListItems.Count
 
If ListView_Trading.ListItems(i).Checked = True Then
 
ListView_Trading.ListItems(i).ListSubItems(4).Text = "Test"
 
End If
 
Next i
 
End Sub

Me donne une erreur, Index out of bounds PK?

[Jean-Philippe André]

Les compteurs vont de 0 a n-1

[rampage92]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton_Accept_Click()

For i = 1 To ListView_Trading.ListItems.Count - 1

If ListView_Trading.ListItems(i).Checked = True Then
 
ListView_Trading.ListItems(i).ListSubItems(4).Text = "Test"

End If

Next i

End Sub

ca ne marche toujours pas meme erreur

[Jean-Philippe André]

Tu as combien de subitems ?

si tu en as a 4, ca va de 0 a 3

[rampage92]

j en ai 8 ...

[Jean-Philippe André]

Bon, alors soyons methodiques :

- lance en mode pas a pas
- a quelle ligne est-ce que le code genere une erreur ?

[rampage92]

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
For i = 1 To ListView_Trading.ListItems.Count
    
    tt_amount_per_found = 0

        If ListView_Trading.ListItems(i).Checked = True Then
   
            tt_amount_per_found = TextBox_Cash.value * ListView_Trading.ListItems(i).ListSubItems(2)

                If tt_amount_per_found >= GetInstrData(strIsin, "BBG", "Minpiece") Then

                    If tt_amount_per_found >= (GetInstrData(strIsin, "BBG", "Minpiece") + GetInstrData(strIsin, "BBG", "MinIncrement")) Then
                    
                        buyin = WorksheetFunction.Quotient(tt_amount_per_found, GetInstrData(strIsin, "BBG", "MinIncrement"))
                        
                    Else
                    
                        buyin = 0
                    
                    End If

                End If

   
            ListView_Trading.ListItems(i).ListSubItems(3).Text = buyin

        End If

    Next i

End Sub

J'ai resolu le probleme ne voila un second, a la ligne en rouge il y a un type Mismatch ... je vois pas pk

[rampage92]

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
For i = 1 To ListView_Trading.ListItems.Count
 
    tt_amount_per_found = 0
 
        If ListView_Trading.ListItems(i).Checked = True Then
 
            tt_amount_per_found = TextBox_Cash.value * ListView_Trading.ListItems(i).ListSubItems(2)
 
                If tt_amount_per_found >= GetInstrData(strIsin, "BBG", "Minpiece") Then
 
                    If tt_amount_per_found >= (GetInstrData(strIsin, "BBG", "Minpiece") + GetInstrData(strIsin, "BBG", "MinIncrement")) Then
 
                        buyin = WorksheetFunction.Quotient(tt_amount_per_found, GetInstrData(strIsin, "BBG", "MinIncrement"))
 
                    Else
 
                        buyin = 0
 
                    End If
 
                End If
 
 
            ListView_Trading.ListItems(i).ListSubItems(3).Text = buyin
 
        End If
 
    Next i
 
End Sub

[Jean-Philippe André]

Verifie que les valeurs sont numeriques (attention au . vs ,)

[rampage92]

Est ce que c est possible de remplir la couleur d'une case dans une listeview ?

[Jean-Philippe André]

Le fond de la case, non , mais la couleur du texte et sa mise en forme oui

http://silkyroad.developpez.com/VBA/ListView/#LII-E

[rampage92]

Ca j'avais lu. J ai vu par contre que l on pouvais surligner la ligne selectionnee... Tu connais la manoeuvre ? Si oui est ce que tu penses qu on peut surligner plusieurs lignes en meme temps ?

[Jean-Philippe André]

Si tu arrives a le faire pour une, il est donc plus que probable que tu puisses le faire pour plusieurs =]

Quelle solution as-tu trouve pour 1 ligne ?

[rampage92]

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
Private Sub ListView_UserPct_ItemCheck(ByVal Item As MSComctlLib.ListItem)

    'MsgBox (Item.SubItems(1) & " : index " & Item.Index)

    
    If Me.ListView_UserPct.ListItems(Item.Index).Checked = True Then
    
         If Me.ListView_Trading.ListItems(Item.Index).SubItems(3) <= 0 Then

            
            
            Me.ListView_UserPct.ListItems(Item.Index).SubItems(2) = Me.ListView_Trading.ListItems(Item.Index).SubItems(3)
            ListView_UserPct.ListItems(Item.Index).SubItems(2).ForeColor = RGB(255, 0, 0)
            Me.ListView_UserPct.ListItems(Item.Index).SubItems(2).Bold = True
            ListView_Trading.ListItems(Item.Index).Checked = False
        
                 Else
                
                    Me.ListView_UserPct.ListItems(Item.Index).SubItems(2) = Me.ListView_Trading.ListItems(Item.Index).SubItems(3)
                   ' Me.ListView_UserPct.ListItems(Item.Index).SubItems(2).ForeColor = RGB(9, 106, 9)
                    'Me.ListView_UserPct.ListItems(Item.Index).SubItems(2).Bold = True
                    ListView_Trading.ListItems(Item.Index).Checked = False
        
        End If
        
        
    End If
    
        If Me.ListView_UserPct.ListItems(Item.Index).Checked = False Then
    
        Me.ListView_UserPct.ListItems(Item.Index).SubItems(2) = ""
        ListView_Trading.ListItems(Item.Index).Checked = False
    
    End If
    
    
    
End Sub

Ce code me met comme erreur invalid qualifier. La ligne qui ne marche pas est la ligne en rouger

[Jean-Philippe André]

Tu n'utilises pas le Me devant, est-ce voulu ?

Regarde le code issu du tuto :

Il est possible de modifier la mise en forme de la ListView afin de personnaliser la visualisation des informations:
Cet exemple modifie la couleur du texte dans le 2eme sous élément de la 1ere ligne.

Code :

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

ListView1.listitems(1).ListSubItems(2).ForeColor = RGB(100, 0, 100)