Discussion :

[maxval18]

Bonjour,

Voila j'ai un USF avec une listbox quand je selectionne un item de la listbox sa selectionne la cellule qui correspond à l'item avec ce code jusque là tous va bien !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Cette partie sert a selectionner la ligne de la listbox
Private Sub ListBox1_Click()
Sheets("Feuil1").Cells(ListBox1.ListIndex + 3, 3).Select 
End Sub

J'aimerais que lorsque la cellule soit selectionner se colore en rouge;

Merci d'avance

Cordialement

Max

[djjilou]

Peut-être avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("Feuil1").Cells(ListBox1.ListIndex + 3, 3).Interior.ColorIndex = 6

Je ne connais pas le numéro pour la couleur rouge par contre.
Et tu n´es pas obligé de sélectionner la cellule avant, cela ne fait que ralentir le programme.

Est-ce que ca marche?

[maxval18]

Bonjour djjilou

Et merci de la réponse aussi vite mais juste une petite chose quand je selectionne un item ici il devien jaune (pas de probléme) mais si je selectionne un autre item j'ai les deux en jaune.
Comment peut on remedier a cela ?



@+

Max

[djjilou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ListBox1_Click()
Sheets("Feuil1").Cells(ListBox1.ListIndex + 2, 3).Select ' (9, 2) 9éme ligne 2 éme colonne
Sheets("Feuil1").Range("C2:C14").Interior.ColorIndex = 0
Sheets("Feuil1").Cells(ListBox1.ListIndex + 2, 3).Interior.ColorIndex = 3
 
End Sub

- J´ai trouvé le numéro correspondant au rouge (3).
- Avant de mettre en rouge la case en question, j´ai fait colorier les autres cases en blanc.
- Attention aussi dans ton fichier tu avais la case sélectionnée décalée par rapport à la liste.

[maxval18]

Re,

Je te remercie beaucoup Nickel et te souhaite une bonne après midi

@+

Max