Microsoft 365 Ecrire un texte si couleur

[Saumon80]

Bonjour,

Je voulais savoir si il etait possible lorsqu'une cellule est dans une certaine couleur ,d'afficher un texte?

Par exemple si la couleur est orange , ,d'afficher le mot "chat" dans la cellule?

Merci d'avance

 

[Robert]

Bonjour Saumon, bonjour le forum,

Essaie comme ça (couleur à adapter) :

Sub chat()
Dim CEL As Range 'déclare la variable CEL (CELlule)
For Each CEL In ActiveSheet.UsedRange 'boucle sur toutes les cellules CEL de la plage éditée de l'onglet actif
    'si la couleur de la cellule est 49407 (couleur à dapter car des "orange" il y en a plein...) écrit "chat" dans la cellule
    If CEL.Interior.Color = 49407 Then CEL.Value = "chat"
Next CEL 'prochaine cellule de la boucle
End Sub

Attention a ne pas te faire bouffer...

 

[Eric C]

Bonjour le forum
Bonjour Saumon80

Essaie ceci :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
  For Each cell In Range("A1:G40")
    If cell.Interior.ColorIndex = 45 Then
  cell.Value = "chat"
End If
Next cell
End Sub

Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.

Bonne après-midi à toutes & à tous
@+ Eric c