Discussion :

[eliot.raymond]

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

[Philippe Tulliez]

Bonjour,
Il n'est pas possible d'avoir des polices de couleurs différentes dans un ListBox.
Si c'est un impératif, il faut te tourner vers le contrôle ListView
Un tutoriel sur le sujet Utiliser le contrôle ListView en VBA Excel

[eliot.raymond]

Salut Philippe,

Merci pour ta réponse, je vais revoir le tuto sur Listview

Sinon juste pour info a propos de la question N° (2) Enlever la petite barre bleu qui s'affiche lorsque l'on coche (une ou des) cases, si possible bien sur.

Bonne journée et merci

Cdlt Ray

[Philippe Tulliez]

Bonjour,
Pour la question 2, je ne pense pas que l'on puisse supprimer le ForColor des lignes sélectionnées mais je ne peux pas l'affirmer.

[eliot.raymond]

salut

Ok ce n'ai pas grave, je vais modifier pour utiliser Listview plus de possibilité qu'avec ListBox semble t'il


Merci pour tes infos, bonne après midi a toi

Cdlt Ray