Selectionner une cellule

[maval]

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 et la cellule devient jaune avec ce code ci-dessous. Jusque là tous va bien !

Private Sub ListBox1_Click()
Sheets("Feuil1").Cells(ListBox1.ListIndex + 3, 3).Interior.ColorIndex = 6
End Sub

J'aimerai que lorsque je selectionne un autre item que le premier redevienne sans couleur de fond pour que l'item selectionner prenne la couleur de fond a sont tour .....!


Merci d'avance

Cordialement


Maval

 

[Pierrot93]

Re : Selectionner une cellule

Bonjour,

pas ouvert ton fichier, mais peut être ainsi :

Private Sub ListBox1_Click()
With Sheets("Feuil1")
    .Range("C1:C30").Interior.ColorIndex = xlNone
    .Cells(ListBox1.ListIndex + 3, 3).Interior.ColorIndex = 6
End With
End Sub

bon après midi
@+

 

[maval]

Re : Selectionner une cellule

Bonjour Pierrot

Nickel

Merci beaucoup

Maval