Remplacer les cellules jaunes par une valeur

[Aloha]

Bonjour,

Y a-t-il moyen de remplacer toutes les cellules d'une certaine couleur, jaune en l'occurence, par une valeur unique, "O" en l'occurence.

Si c'est possible, j'entrevois un problème: comment connaître la dénomination de la couleur?

Merci pour toute aide

Aloha

 

[BOISGONTIER]

Re : Remplacer les cellules jaunes par une valeur

Bonjour,

H1 contient la couleur de référence:

 For Each c In [A1:D20]
   If c.Interior.ColorIndex = [H1].Interior.ColorIndex Then c.Value = "O"
  Next c

JB
Formation Excel VBA JB

 

[alex67800]

Re : Remplacer les cellules jaunes par une valeur

Bonsoir Aloha, Boisgontier,
Dans le même esprit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
   For Each c In Selection
   If c.Interior.ColorIndex = [COLOR="Red"]6[/COLOR] Then c.Value = "O" [COLOR="Green"]'6=Jaune[/COLOR]
  Next c
End Sub

Dès que tu passes sur une cellule jaune, la valeur "O" s'ajoute à celle-ci, ou si tu selectionne un plage complète.

Si tu veux remplacer la couleur Jaune par valeur "O" alors:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Selection
   If c.Interior.ColorIndex = 6 Then
   With c
   .Value = "O"
   .Interior.ColorIndex = xlNone [COLOR="Green"]'Enlève la couleur[/COLOR]   End With
   End If
  Next c
End Sub

 

[Aloha]

Re : Remplacer les cellules jaunes par une valeur

Bonjour,

Merci beaucoup à vous tous qui m'avez proposé une solution.
Hélas je ne peux pas les utiliser puisque j'ai remarqué par après seulement que dans un classeur protégé (et que je n'ai pas fabriqué moi-même, dont j'ignore donc le mot de passe), je ne peux pas ajouter du code.

Il n'y dans ce cas sûrement pas de solution sauf entrer à la main 366*4=1 464 fois la lettre O!?

Bonne journée

Aloha

 

[alex67800]

Re : Remplacer les cellules jaunes par une valeur

Bonjour Aloha,
Une solution serait de dévérouiller le classeur en utilisiant une des astuces du lien ci dessous😉:
https://www.excel-downloads.com/threads/perdu-mot-de-passe.97658/

 

[tototiti2008]

Re : Remplacer les cellules jaunes par une valeur

Bonjour à tous,

tu peux trés bien exécuter un code sur un autre classeur que celui qui contient le code. Donc tu n'est pas obligé de mettre le code dans le classeur concerné.