colorer les lignes dans listbox multicolonne

Question

bonjour, 
j'ai une listebox multicolonne ( 18 colonne ) qui regroupe les enregistrements de la feuille excel,
je veut bien colorer toutes  les lignes a condition que la valeur de la colonne 5 soit vide

merci d'avance mes cher respecter.

cs_Le Pivert · Answer

Bonjour,

Comme ceci:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  With Sheets("BD") 'adapter nom de la feuille
    If Application.CountA(Range("E2:E" & Range("A65536").End(xlUp).Row)) = 0 Then 'E2 si en-tête
    ListBox1.ForeColor = RGB(255, 0, 0) 'rouge
    Else
     ListBox1.ForeColor = RGB(0, 0, 0) 'noir
    End If
End With
End Sub 


Essai fait avec Recherche d'un mot dans une BD de Boisgontier


http://boisgontierjacques.free.fr/pages_site/formulaireListes2colonnes.htm#RechIntuitif

 
@+ Le Pivert

cs_Le Pivert · Answer

Pour faire cela il faut passer par une Listview:

 https://silkyroad.developpez.com/VBA/ListView/

Colorer les lignes dans listbox multicolonne

2 réponses

Discussions similaires

Newsletters