Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplir une cellule de texte en fonction de la Couleur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion QsecX
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Q

QsecX

XLDnaute Nouveau
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 🙂
Merci d'avance!
 
Trier par date Trier par votes
Re : Remplir une cellule de texte en fonction de la Couleur

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

Code: 
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
 
Vote positif 0 Vote négatif
Re : Remplir une cellule de texte en fonction de la Couleur

Re,

Teste avec ce code

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
  If Target.Interior.ColorIndex = 3 Then
    Target.Interior.ColorIndex = 4
    Target.Value = "OK"
  Else
     Target.Interior.ColorIndex = 3
     Target.Value = "KO"
  End If
  Cancel = True
End Sub
 
Vote positif 0 Vote négatif
Re : Remplir une cellule de texte en fonction de la Couleur

Super ça marche bien 🙂
Entre temps j'ai trouvé un autre code qui marche aussi.

Code: 
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

Merci beaucoup en tout cas.
Ciao 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
394
wDog66
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
95
job75
L
  • Résolu(e)
Microsoft 365 Aide : Colorer une cellule en fonction de sa valeur
Réponses
2
Affichages
392
Leo98
L
H
  • Question Question
XL 2010 taux en fonction de valeurs mini de cellules
Réponses
1
Affichages
51
JHA
J
M
  • Question Question
XL 2016 Changement de couleur cellule
Réponses
1
Affichages
239
Gégé-45550
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
93
didier09
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
305
pvander
P
G
  • Résolu(e)
XL 2013 Cellules en couleurs rapport aux résultats
Réponses
7
Affichages
409
Gae1
G
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
1 K
Dranreb
T
  • Question Question
XL 2021 Additionner la couleur du fond et la police de plusieurs cellule en vba
Réponses
7
Affichages
369
Tophe2
T
L
  • Résolu(e)
Microsoft 365 Fonction si et couleur texte, vert ou rouge suivant résultat
Réponses
10
Affichages
1 K
Dudu2
  • Question Question
Microsoft 365 Remplir cellules à partir de plusieurs fichiers Excel d'un dossier
2
Réponses
17
Affichages
591
alexga78
A
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
533
deuxnid
D
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
328
Droopyougo
N
  • Question Question
Microsoft 365 couleur de cellule en fonction de date echeance
Réponses
2
Affichages
656
natadom
N
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
169
sylvanu
D
  • Question Question
Microsoft 365 Cellule multiligne dans fichier texte.
Réponses
2
Affichages
377
sylvanu
E
  • Question Question
Microsoft 365 Mettre code couleur quand un texte en dessous d'un autre
Réponses
3
Affichages
368
Erakmur
E
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
894
jojo4738
J
S
  • Résolu(e)
XL 2016 si cellule de couleur alors écrire X
Réponses
2
Affichages
659
sevsev38
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…