Modification de couleur de cellule

[caro]

j'ai fait un programme qui permet de rentrer des noms dans un taableaau.

Je souhaaite montrer les innfluences de certaines données sur les autres.
L'idée est de en cliquant sur une cellule du tableau (et donc une donnée ) cela fasse clignoter (ou modifie la couleur) des autres cellules qui y ont un lien aavec.

C'est super urgent

Pouvez -vous m'aider!!

 

[Hervé]

re

LOL, abel, La meme idée, pour le raz des couleurs.

La version ci-jointe, stocke les dernières couleurs utilisées.

Attention, Abel, ton code n'annule pas la commande du raz couleur, lors de la fermeture du classeur.

A plus
[file name=caro.zip size=18561]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/caro.zip[/file]

 

[CBernardT]

Bonjour Hervé, Abel, Celeda, caro,


Je m'imisce de nouveau 🙁

J'ai conservé la logique de ma première macro et j'ai ajouté quelques modifs que vous m'avez suggérer pour colorer par exemple les nouvelles cellules ayant des formules.

Une difficulté m'arrête pour aller au delà, je n'arrive pas à matérialiser la condition de non existance d'un format conditionel dans une cellule ???

A+

CBernardT [file name=CouleursLiens.zip size=10289]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CouleursLiens.zip[/file]

 

[Abel]

Re,

Très juste Hervé. Je suis allé un peu vite pour cause d'urgence (arf !)
et je n'y ai pas pensé.

CBernardT, je regarde ton fichier.

Abel

 

[Hervé]

re


Joli code bernard, AH oui, et les MEFC....

Je ne sais pas si je répond à ta question, mais....

ce code te donne le nombre de conditions dans une mefc , 0, 1,2 ou 3

Public Sub vev2()
MsgBox ActiveCell.FormatConditions.Count
End Sub

Tandis que cuelui ci te donne les adresses des cellules utilisée, attention sans tests très poussés :

Public Sub vev()
Dim mefc As Object
With ActiveCell
For Each mefc In .FormatConditions
MsgBox mefc.Formula1
MsgBox mefc.Formula2
Next mefc
End With
End Sub

A plus

Message édité par: Hervé, à: 17/03/2005 18:58

 

[Abel]

Re,

Et pire encore, je n'ai pas géré la suppression du menu ...

Gare !


Abel.

 

[Abel]

Re,

Quelques lignes si vous vous retrouvez avec plusieurs 'RàZ couleurs' dans le menu contextuel.

Sub EradiqueRaZ()
On Error GoTo LaFin
Do While Application.CommandBars('Cell').Controls('RàZ couleurs').Enabled = True
Application.CommandBars('Cell').Controls('RàZ couleurs').Delete
Loop
LaFin:
End Sub

Abel.