Bonsoir

A l'aide d'un formulaire j'ai une combobox avec une liste de nom et lorsque je sélectionne un nom dans la liste sa met le fond de la cellule sélectionner en rouge, la police en gras, italique et en taille 16.

Mon problème et que lorsque je sort de la cellule pour aller dans une autre cellule ma première cellule ne revient pas comme a l’origine.

Je joint mon code puisque on ma enlever le fichier!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub ComboBox1_Change()
'Cette partie sert a selectionner la ligne de la Feuille
'Sheets("Race").Cells(ComboBox1.ListIndex + 2, 1).Select
With Sheets("Race")
 
 
    .Range("A2:A1000").Interior.ColorIndex = xlNone
    .Cells(ComboBox1.ListIndex + 1, 1).Interior.ColorIndex = 3
    .Cells(ComboBox1.ListIndex + 1, 1).Font.Bold = True
    .Cells(ComboBox1.ListIndex + 1, 1).Font.Italic = True
    .Cells(ComboBox1.ListIndex + 1, 1).Font.Size = 16
End With
End Sub
 
Private Sub CommandButton1_Click()
 
'Code pour vider la couleur des cellules "C" a la fermeture
       Range("A2:A280").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A2").Select
'Stop
Unload Me
End Sub

Je vous remercie de votre aide

Cordialement

Max