Remplir une cellule de texte en fonction de la Couleur

Résolu/Fermé

QsecX - Modifié par QsecX le 27/04/2016 à 10:47
QsecX - 27 avril 2016 à 11:03

Bonjour,

Je me suis fait une macro qui quand je double clique passe la cellule en vert puis en rouge si je re-double clique.
J'aimerai aussi maintenant que en plus, si ma cellule est rempli en vert cela rentre automatiquement OK dedans et bien entendu KO quand la cellule est rempli en rouge.

J'ai fait quelque recherche mais sans trop de résultat pour le moment, je continue malgré tout :)

Ma macro pour le moment qui change juste la couleur de la cellule avec un double clique.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(0, 255, 0), RGB(255, 0, 0))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Cancel = True
End Sub

Merci d'avance!

A voir également:

Remplir une cellule de texte en fonction de la Couleur
Excel cellule couleur si condition texte - Guide
Fonction si et - Guide
Aller à la ligne dans une cellule excel - Guide
Changer la couleur d'une cellule selon son texte - Forum Excel
Excel si cellule contient partie texte ✓ - Forum Excel

2 réponses

Réponse 1 / 2

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
27 avril 2016 à 10:56

Bonjour QsecX, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim couleurs()
couleurs = Array(RGB(0, 255, 0), RGB(255, 0, 0))
On Error GoTo color
Target.Interior.color = couleurs(Application.WorksheetFunction.Match(Target.Interior.color, couleurs, 0) Mod 3)
Target.Value = "KO"
Cancel = True
Exit Sub
color:
Target.Interior.color = couleurs(0)
Target.Value = "OK"
Cancel = True
End Sub

Réponse 2 / 2

QsecX
27 avril 2016 à 11:03

Super!! Cela fonctionne exactement comme je l'imaginais :)

Merci beaucoup

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel si cellule contient texte alors...

code couleur associé a une image

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Discussions similaires

Newsletters