Mise en forme cellule

Question

Bonjour,

Ma question va paraître idiote mais voilà:

J'aimerai savoir comment faire une mise en forme conditionnelle mais UNIQUEMENT si la valeur de la cellule change et cette fonction doit s'appliquer si je change n'importe quelle valeur partout dans mon tableau.

Donc je ne demande PAS de mise en forme si la valeur est inférieur ou supérieur à une valeur précise mais simplement que celle-ci change couleur de remplissage ou couleur de police si je change cette valeur. D'avance merci

jordane45 · Answer

Bonjour,

Je pense qu'il faudra utiliser une macro 

Par exemple :

'------------------
'Code à placer dans l'objet feuille de ton choix
'------------------
Public oldVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 oldVal = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim newVal
  Dim newColor As Integer
  newVal = Target.Value
  
  If newVal <> oldVal Then
   Debug.Print "Valeur différentes :" & oldVal & " -> " & newVal
   'mise en couleur de la cellule par exemple
   If Target.Interior.ColorIndex = 28 Then
    newColor = 31
   Else
    newColor = 28
   End If
   
   Target.Interior.ColorIndex = newColor
   
  End If
  
End Sub

Mise en forme cellule

1 réponse

Discussions similaires

Newsletters