- Tu ouvres l'éditeur VBA
- Sur le panneau de gauche, tu choisis la feuille dans laquelle tu souhaites que la cellule soit modifiée
- Dans le 1er combobox de l'éditeur, tu choisis "Worksheet"
- Dans le second, tu choisis "Change"
- Tu obtiens cette fonction, dans laquelle tu place le code que je t'ai indiqué :
Code :
- Private Sub Worksheet_Change(ByVal Target As Range)
|
Target est un objet Range, donc tu peux remplacer Range("A1" ) par Target, à condition de réaliser un test pour voir si la cellule modifiée est bien A1 :
Code :
- If Target.Address = "$A$1"
- Range("A1" ).Select
- If Target.Value < 0 Then
- Selection.Interior.ColorIndex = (n° du rouge)
- Else
- Selection.Interior.ColorIndex = (n° du blanc)
- End If
- End If
|
---------------
J'ai un string dans l'array (Paris Hilton)