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

[anthoYS]

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

 

[Staple1600]

Re

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

 

[Phil69970]

Re

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

Spoiler: ==>

==> afflelou ???

@Phil69970

 

[anthoYS]

Re

Spoiler: ==>

==> afflelou ???

@Phil69970

 

[Jacky67]

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

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]

---Sujet clos---

merci aux intervenants ...

agréable fin d'après midi !

 

[Staple1600]

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]

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]

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]

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]

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

Sub Verdifie_mon_bleu()
ActiveWorkbook.ResetColors
End Sub

 

[Jacky67]

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

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]

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]

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

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]

Re,

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

Sub Verdifie_mon_bleu()
ActiveWorkbook.ResetColors
End Sub

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

 

[Jacky67]

Re,

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

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