1. #1
    Nouveau membre du Club
    Inscrit en
    février 2007
    Messages
    35
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 35
    Points : 31
    Points
    31

    Par défaut Colorer une ligne d'une listview

    Bonjour ,
    je cherche toujours a colorer une ligne d'une listview selon des valeurs dans la 6eme colonne ... bon j'arrive tout juste a colorer le texte mais pas la ligne complète .
    ce code permet de colorer le text "Enabled" ou "desabled" de la 6eme colonne de la 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
    Dim i As Integer
    Dim j As Integer
      For i = 1 To lvStudentInfo.ListItems.Count
          j = 6
    If lvStudentInfo.ListItems(i).ListSubItems(j).Text = "Enabled" Then
            lvStudentInfo.ListItems(i).ListSubItems(j).ForeColor = vbRed
     
    Else
          If lvStudentInfo.ListItems(i).ListSubItems(j).Text = "Desabled" Then
            lvStudentInfo.ListItems(i).ListSubItems(j).ForeColor = vbBlue
     
    Else
            lvStudentInfo.Refresh
     
       End If
       End If
      Next

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    1 998
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 1 998
    Points : 4 543
    Points
    4 543

    Par défaut

    S'il s'agit de la couleur du texte d'une ligne, on peut utiliser ce
    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 Command1_Click()
        Dim I As Integer, K%
     
        For I = 1 To lvStudentInfo.ListItems.Count
          For K = 1 To 6
            If lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Enabled" Then
                    lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbRed
                    lvStudentInfo.ListItems(I).ForeColor = vbRed
     
            ElseIf lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Disabled" Then
                    lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbBlue
                    lvStudentInfo.ListItems(I).ForeColor = vbBlue
            End If
          Next K
        Next I
        lvStudentInfo.Refresh
    End Sub
    Mais s'il s'agit de la couleur de fond d'une ligne(arrière-plan), il faut passer par un SubClassing car la propriété BackColor pour un Item(Ligne) n'est pas disponible.
    Voici un exemple :
    Fichiers attachés Fichiers attachés
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Futur Membre du Club
    Homme Profil pro
    électricien
    Inscrit en
    mars 2016
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : électricien

    Informations forums :
    Inscription : mars 2016
    Messages : 11
    Points : 9
    Points
    9

    Par défaut

    Bonjour,
    je m'excuse de m'incrusté dans le sujet,
    super bien ton code l_autodidacte , mais comment faire si on veut sélectionné toute les lignes en rouge si dans la 6eme colonne c'est supérieur ou égal à 4
    merci
    cordialement

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 067
    Points : 8 072
    Points
    8 072

    Par défaut

    Salut

    Il existe un tutoriel Utiliser le contrôle ListView en VBA Excel, bien qu'en VBA, cela peut dépanner car il n'y a quasiment aucune différence de codage.

  5. #5
    Futur Membre du Club
    Homme Profil pro
    électricien
    Inscrit en
    mars 2016
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : électricien

    Informations forums :
    Inscription : mars 2016
    Messages : 11
    Points : 9
    Points
    9

    Par défaut

    j'ai fait ça et ça fonctionne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    If lvStudentInfo.ListItems(I).ListSubItems(6).Text >= 16 Then
                SetLIBackColor lvStudentInfo, I, vbRed
    bonne soirée

  6. #6
    Nouveau membre du Club
    Inscrit en
    février 2007
    Messages
    35
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 35
    Points : 31
    Points
    31

    Par défaut

    Merci a vous tous , le code de l_autodidacte à résolu mon problème.
    Merci encore.

  7. #7
    Nouveau membre du Club
    Inscrit en
    février 2007
    Messages
    35
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 35
    Points : 31
    Points
    31

    Par défaut

    Une autre solution simple et efficace qu'on m'a proposée : Listview_1.rar

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 18/01/2015, 18h30
  2. [WD18] Metre une colonne d'une Table sur une ligne d'une autre Table
    Par Totophe2 dans le forum WinDev
    Réponses: 2
    Dernier message: 22/11/2013, 12h58
  3. Colorer une ligne dans une image d'une interface
    Par yasmine2013 dans le forum Interfaces Graphiques
    Réponses: 0
    Dernier message: 27/05/2012, 22h32
  4. Réponses: 4
    Dernier message: 15/10/2009, 13h33
  5. [VB6]créer une copie d'une ligne d'une table
    Par h82kev dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 01/02/2006, 16h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo