Bonjour a toutes et tous, forum bonjour


J'ai un usf avec un listbox et une petite liste sur la feuil(Compte)

Je souhaiterai svp dans la ListBox1

(1) Ecrire en Vert quand un Item est cocher, sinon de couleur Rouge quand les Items ne sont PAS cochés

(2) Enlever la petite barre bleu qui s'affiche lorsque l'on coche (une ou des) cases, si possible bien sur

Merci pour votre aide et pour votre temps

bonne journée a tous

Cdlt Ray


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 UserForm_Initialize()
Dim I As Integer
 
    With ListBox1
           ListBox1.Clear
 
       For I = 1 To Sheets("Compte").[T50].End(xlUp).Row
                   ListBox1.AddItem Sheets("Compte").Range("T" & I)           
       Next
 
    End With
End Sub