d'un clic colorer une cellule

[pierre]

bonsoir à tous
j'en appel à vous car je voudrai d'un clic sur une cellule dans excel colorier
cette derniére d'une couleur
si quelqu'un peut m'illuminer je l'en remercie d'avance

 

[Eric C]

Bonsoir le forum
Bonsoir Pierre


A placer dans ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.range)
With target
Selection.interio.ColorIndex = 3 (Rouge)
End With
End Sub

Ainsi un click gauche de souris te colorie la cell envisagée.
@ + Eric C

 

[Hervé]

bonsoir pierre

2 solutions :


toute simple : sélectionner sa cellule , puis choisir sa couleur grâce à l'icone représentant un peit seau, puis choisir sa couleur (si l'icone n'est pas présent : menu format----> cellule, et dans l'onglet motifs chosir une couleur)

en peu plus compliqué : code vba à placer dans le module de la feuille (clic droit sur le nom de l'onglet, puis visualiser le code)
'----------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Randomize
Target.Interior.ColorIndex = Int((56 * Rnd(1)) + 1)
End Sub
'-------------------------------------------------
je suis désolé, j'ai pas pu m'empécher de mettre des couleurs aléatoires.

voici un code pour connaitre les couleurs en VBA ( a placer dans un module) :

Sub delacouleur ()
dim i as byte
for i=1 to 56
range("a"&i).value=i
range("b"&i).interior.colorindex=i
next i
end sub

Salut
Hervé

 

[Hervé]

re

oups désolé eric C

ps pour pierre : le code VBA que je te donne fonctionne avec le double clic dans une cellule.

Salut
Hervé

 

[Eric C]

Re le forum
Re bonsoir Pierre, bonsoir Hervé



De rien Hervé.

Retif : Selection.Interior.ColorIndex et non Interio
Bon je pars en service now

@ + Eric C

 

[Brigitte]

Bonsoir à tous,


Eric, on te voit plus sur le t'chat... SNIF, depuis qu'on peut plus y accéder par ici, on voit plus personne.


Allo : Ya V, Jean-Marie, vous aussi, où êtes vous passés ?


Pardon Pierre pour cette intrusion sur ton post, mais le désespoir n'est pas loin...



Brigitte

 

[Eric_C]

Bonjour le forum
Bonjour Pierre, bonjour Hervé, Bisous Brigitte

Si si Brigitte, ce soir je viendrai par Wanascape, promis.

Sinon, je viens après une dure nuit de sommeil, me rendre compte que je venais d'inventer le coloriage avec la macro que je propose (stylo feutre à couleur unique). En effet, hormis colorier des cellules, l'on ne peut rien faire d'autre, pas de saisie RIEN de CHEZ RIEN .......... LOL........

Je penserai à placer ce fil sur le ZOPXLD, ce soir peut être.

@ + : signé : l'inventeur du siècle........Eric C