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

anthoYS

XLDnaute Barbatruc
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 :


Merci
 

Jacky67

XLDnaute Barbatruc
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
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :)
 

Jacky67

XLDnaute Barbatruc
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..
:mad:;);)
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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.
 

Jacky67

XLDnaute Barbatruc
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 :)
 

Discussions similaires

Réponses
16
Affichages
962

Statistiques des forums

Discussions
300 874
Messages
1 987 970
Membres
210 036
dernier inscrit
Vincent97438