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

  • 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 !

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!
 
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
 
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
 
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 🙂
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…