Coloriser une colonne d'une listbox

Bonjour le forum,

actuellement, j'ai le code suivant

'Si dans la colonne "2à6" alors
         If .ListItems(ligne).ListSubItems(4) = "2à6" Then
            Dim q As Byte
            'On selectionne l'item de la colonne "8" en bleu
            .ListItems(i).ListSubItems(4).ForeColor = vbBlue
            For q = 1 To 11
            Next q
         End If

Selon le critère de la colonne 4 "2à6", ça colorise la colonne 8

Voila le Problème dans la colonne 8 il peut y avoir soit V1 OU V2

Je souhaiterai pourvoir différencier en Bleu la V1, si V1 en colonne 8 en Bleu ou en Rouge la V2, si V2 en colonne 8

En fonction des deux critères "2à6 et V1" ou "2à6 ET V2"

Cordialement

Bonjour Pelerin65

Il suffit de tester la colonne en question, exemple pour la V1

If .ListItems(ligne).ListSubItems(4) = "2à6" And  .ListItems(ligne).ListSubItems(8) = "V1" Then
End If

A+

Bonjour le forum, Bruno M45

Merci de ta réponse rapide

Si je veux tester pour V1 ou V1BIS

Le code comme ci-dessous

If .ListItems(ligne).ListSubItems(4) = "2à6" And  .ListItems(ligne).ListSubItems(8) = "V1" or .ListItems(ligne).ListSubItems(8) = "V1bis"  Then
End If

Cordialement

Re,

Il y a plus simple

  If .ListItems(ligne).ListSubItems(4) = "2à6" And _
    InStr(1, .ListItems(ligne).ListSubItems(8), "v1", vbTextCompare) > 0 Then
  End If

Comme ça tu testes tout les v1 quelque chose qu'il soit écrit en minuscule ou majuscule

A+