Discussion :

[kaspar]

Bonjour,

Je souhaiterais que dans mon listview, chaque ligne donc la valeur de la 2eme colonne est inférieur à 25 soit coloriée en rouge. Je crois que le backcolor que sur une ligne en VB6 est impossible, donc alors modifier simplement la couleur du texte.

Voici ce que j'ai écris:

Code :

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

1
2
3
4
      If (tabforlist(j).total) < 25 Then
           listArbeit2.ListItems(j).ForeColor = vbRed
           listArbeit2.ListItems(j).ListSubItems(1).ForeColor = vbRed
      End If

des fois cela me colorie des valeurs, ou d'autres fois cela fait planter mon programme donc je ne sais pas trop comment faire !

Merci de votre aide

[jmfmarques]

listArbeit2.ListItems(j).ListSubItems(1).ForeColor = vbRed

et qu'as tu prévu pour le cas où il n'y aurait pas de subitem 1, par exemple ?
:

PS : dis nous aussi comment "ça plante" : avec ou sans message d'erreur et, le cas échéant, lequel ?

[kaspar]

heu je n'ai rien prévu, mais il y a toujours un subitems 1.
le message d'erreur qui apparait est "erreur 35600 - Limite de l'index dépassée".

J'ai longuement cherché avant de poster mon message, mais vraiment je ne trouve pas.

[jmfmarques]

et ton j ? est-il toujours là ? inclut-il bien le fait que le 1er item est 0 ?
: :

[kaspar]

ah oui pardon j'ai oublié de le mentionner:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For j = 0 To cpt - 1
 
      Set vlist = listArbeit2.ListItems.Add(, , tabforlist(j).nrarb)
      vlist.SubItems(1) = tabforlist(j).total
 
      If (tabforlist(j).total) < 25 Then
            listArbeit2.ListItems(j).ForeColor = vbRed
            listArbeit2.ListItems(j).ListSubItems(1).ForeColor = vbRed
      End If
 
Next j

Mon For me permet de remplir en même temps ma ListView, et donc il n'a logiquement aucun probleme car l'insertion mar très bien.

Sinon lorsque je met comme condition de mon If (listArbeit2.ListItems(j).ListSubItems(1)) il m'indique une erreur dessus.

[jmfmarques]

Je persite à croire que le responsable est un subitem 1 absent...

essaye (juste pour voir ce qui se passe) de faire précéder le traitement par un "on error resume next" (avec un err clear à la fin du traitement) et dis-nous ? :

[kaspar]

J'ai donc inséré un "on error resume next", je n'ai donc plus de message d'erreur, mais le probleme est que les lignes coloriées n'ont pas vraiment de rapport avec la condition du si.

par ex la condition est < 25

et ca me souligne le 27 le 10; mais le 14 et le 12 ne sont pas coloriés.

[jmfmarques]

Hé !

ton "on error resume next" doit être bien évidemment pacé juste après ton 'Then" !!!!!!!!!!...........

Où as-tu la tête ?????

Excuse-moi....

et :

et ca me souligne le 27 le 10; mais le 14 et le 12 ne sont pas coloriés

donne à penser que ton 14 et ton 12 n'ont pas de subitem 1

[kaspar]

et bien avec le "On Error Resume Next" après le Then c'est pas mieux !

Mais j'ai remarqu' quelquechose. Juste avant le If, j'ai placé un "MsgBox listArbeit2.ListItems(j).ListSubItems(1)" et lors de l'execution 2 msgbox s'affichent alors qu'il y a trois éléments...

[Amri_Daly]

salut,
l'erreur vient du faite que la collection listitems commence par l'index 1 et non zéro

For j = 0 To cpt - 1

Set vlist = listArbeit2.ListItems.Add(, , tabforlist(j).nrarb)
vlist.SubItems(1) = tabforlist(j).total

If (tabforlist(j).total) < 25 Then
listArbeit2.ListItems(j+1).ForeColor = vbRed
listArbeit2.ListItems(j+1).ListSubItems(1).ForeColor = vbRed
End If

Next j

[jmfmarques]

Bravo !!!!

Celà va résoudre une partie, mais pas le reste...
Pour être sur que tout fonctionne maintenant bien, il va falloir vérifier sans le "on error resume next".

[kaspar]

ah parfait !!
merci beaucoup !

meme sans le on error resume next ca marche parfaitement!

Merci à vous deux pour votre aide.

[jmfmarques]

et la petite balise "résolu" ?...
STP