XL 2019 colorer en vert après double clic la cellule concernée

anthoYS · 27 Mars 2022

Bonjour,

je souhaite simplement colorer la cellule concernée par un double clic en vert fluo...

Cela fait un peu référence à ce topic :

Colorer en vert ou rouge après double clic et compter les cel. vertes [résolu]

Bonjour, Dans mon fichier, j'ai de B3:B17 des pronostics. Le but, colorer par double clic le bon résultat (vert) et les mauvais (rouge).Pour cela, un double clic doit colorer en vert, 2, en rouge. Et ainsi de suite, faire une boucle. Revenir à rien, puis vert, puis rouge.Ensuite, en B19, compter...

www.excel-downloads.com

Merci

Phil69970 · 27 Mars 2022

Bonjour @anthoYS

Je te propose ceci :
1 dbl clic colorie en vert
1dbl clic enlève le vert

*Merci de ton retour

@Phil69970

Staple1600 · 27 Mars 2022

Re

Sur mon Excel 2013, le code de Jacky67 (ou ma version "the futile way" ) fonctionne et colorie en vert.

Phil69970 · 27 Mars 2022

Re

anthoYS à dit:
chez moi ça colore en bleu pas vert. Je ne comprends pas pourquoi.

==> afflelou ???

@Phil69970

anthoYS · 27 Mars 2022

Phil69970 à dit:
Re

==> afflelou ???

@Phil69970

Jacky67 · 27 Mars 2022

anthoYS à dit:
VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [a2:d20]) Is Nothing Then Exit Sub ' plage à adapter Cancel = True Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4) End Sub

Code:

chez moi ça colore en bleu pas vert. Je ne comprends pas pourquoi.

Merci à tous !

Re..
Arrêtes de boire

Modifier le chiffre "4" jusqu'à trouver la bonne couleur

anthoYS · 27 Mars 2022

---Sujet clos---

merci aux intervenants ...

agréable fin d'après midi !

Staple1600 · 27 Mars 2022

Re

Jacky67
C'est pas moi qui t'a énervé, j'espère ?
(cf le message où je me suis amusé avec ton code à cause d'un café trop chaud )

=>Anthoys
Un sujet n'est jamais clos.
Sauf peut-être en Corée du Nord

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Re

Jacky67
C'est pas moi qui t'a énervé, j'espère ?
(cf le message où je me suis amusé avec ton code à cause d'un café trop chaud )

=>Anthoys
Un sujet n'est jamais clos.
Sauf peut-être en Corée du Nord

aparté de lionel : Mordious JM quand tu es là, tu es partout lol ... Tu ne laisses donc pas tes neurones refroidir ?
Tu refroidis à l'eau plate lol

Staple1600 · 27 Mars 2022

Re

Lionel
Contrairement à toi, je lis les fils attentivement
(Ce tu ne sembles pas avoir fait avec celui-ci)
Sinon tu comprendrais ce qui motive le message#21

Jacky67 · 27 Mars 2022

Staple1600 à dit:
Re

Jacky67
C'est pas moi qui t'a énervé, j'espère ?
(cf le message où je me suis amusé avec ton code à cause d'un café trop chaud )

=>Anthoys
Un sujet n'est jamais clos.
Sauf peut-être en Corée du Nord

Re...
Meuuuuh non, je ne suis pas énervé du tout.
Envers et contre tout ma cellule est verte, quand je la verrais en bleu, j'arrête le thé

Staple1600 · 27 Mars 2022

Re

=>Jacky67
Ouf!
je disais cela car j'ai trituré ton code sans te demander la permission

Si il voit bleu, peut-être que ceci le ramènera vers de verts pâturages

VB:

Sub Verdifie_mon_bleu()
ActiveWorkbook.ResetColors
End Sub

Jacky67 · 28 Mars 2022

Staple1600 à dit:
Re

=>Jacky67
Ouf!
je disais cela car j'ai trituré ton code sans te demander la permission

Si il voit bleu, peut-être que ceci le ramènera vers de verts pâturages

VB:

Sub Verdifie_mon_bleu() ActiveWorkbook.ResetColors End Sub

Re..

Tout compte fait, et après conseil de ma conseillère juridique (tu remarqueras le féminin, pour rester dans les quotas)
Je m'élève fortement contre cette usurpation de code strictement confidentiel
-Contre le remplacement de ma cible par un misérable R
-Contre le rajout de constante
-D'avoir supprimer mon index de couleur
-D'avoir remplacé mon true par un misérable chiffre négatif
-D'avoir émis un doute sur le fonctionnement de mon code
Je vais donc de ce pas; contacter les instances juridiques compétentes

*Toute ressemblance avec.........

Staple1600 · 28 Mars 2022

Re

Je n'ai pas ursurpé, j'ai trituré
Et j'ai cité ton nom, Seigneur !
(pardon un reliquat de mes années d'église, quand j'étais enfant de choeur)
Oui, j'ai cité votre nom.
C'est donc plus un hommage en votre endroit, monsieur Jacky
Et pour moi quelques minutes de plus passées à jouer dans mon VBE.

Pour rester dans le vert, vous n'avez pas donné votre avis sur ma dernière remarque.
Merci de le faire (sinon j'appelle le médiateur de l'ARCOM!)

Jacky67 · 28 Mars 2022

Staple1600 à dit:
Re

Je n'ai pas ursurpé, j'ai trituré
Et j'ai cité ton nom, Seigneur !
(pardon un reliquat de mes années d'église, quand j'étais enfant de choeur)
Oui, j'ai cité votre nom.
C'est donc plus un hommage en votre endroit, monsieur Jacky
Et pour moi quelques minutes de plus passées à jouer dans mon VBE.

Pour rester dans le vert, vous n'avez pas donné votre avis sur ma dernière remarque.
Merci de le faire (sinon j'appelle le médiateur de l'ARCOM!)

Staple1600 à dit:
Pour rester dans le vert, vous n'avez pas donné votre avis sur ma dernière remarque.
Merci de le faire (sinon j'appelle le médiateur de l'ARCOM!)

RE...
Non, non!!! pas le médiateur
Cet avis ne peut-être que favorable
Il serait sage que le demandeur donne une réponse sur la résolution ou non de son problème de couleur avec ce code, et comment il s'y est pris pour le modifier.

Staple1600 · 28 Mars 2022

Re,

=>Jacky67
Je voulais dire le problème decouleurs ne sera-t-il pas résolu avec

VB:

Sub Verdifie_mon_bleu()
ActiveWorkbook.ResetColors
End Sub

C'est sur ce point que j'attendais votre expertise

Jacky67 · 28 Mars 2022

Staple1600 à dit:
Re,

=>Jacky67
Je voulais dire le problème decouleurs ne sera-t-il pas résolu avec

VB:

Sub Verdifie_mon_bleu() ActiveWorkbook.ResetColors End Sub

C'est sur ce point que j'attendais votre expertise

Ben, mis à part la première ligne, c'est bien de cela que je faisais référence.
Perso, je n'ai pas de problème de peinturlurage, donc ce code ne résout rien chez moi.
Il sera certainement d'une solution pour le demandeur. A lui de dire/écrire

XL 2019 colorer en vert après double clic la cellule concernée

anthoYS

XLDnaute Barbatruc

Colorer en vert ou rouge après double clic et compter les cel. vertes [résolu]

Phil69970

Staple1600

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Pièces jointes

Jacky67

XLDnaute Barbatruc

anthoYS

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Discussions similaires