Remplir une cellule de texte en fonction de la Couleur
Résolu
QsecX
-
QsecX -
QsecX -
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.
Merci d'avance!
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
- Transcription audio en texte word gratuit - Guide
- La boite a couleur - Télécharger - Divers Photo & Graphisme
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour QsecX, bonjour le forum,
Essaie comme ça :
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
