Pointer CelluleX et Activer CelluleY

njogou · 22 Décembre 2005

Bonjour

Je souhaite faire en sorte que lorsque la souris pointe une cellule, une autre cellule change de couleur. Par exemple je pointe la cellule A1 et la cellule C20 change de couleur ou change de format.

Merci

jepi67 · 22 Décembre 2005

Bonsoir Njogou,
Bsr le forum,

As-tu fais une petite recherche sur 'changer couleur' ? tu devrais y trouvé la réponse il y a une bonne douzaine de fils qui en parle.

Bon courrage et Joyeux Noël

Charly2 · 23 Décembre 2005

Bonsoir njogou et jepi67

Je te joins un tout petit fichier exemple. Tu trouveras l'initialisation de la variable globale dans ThisWorkbook et le code dans Feuil1.

Si tu sélectionnes A1, C20 change de couleur. Si tu es déjà sur A1, il te suffit de double-cliquer dessus pour obtenir le même résultat sur C20

Amicalement
Charly [file name=njogou.zip size=9289]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/njogou.zip[/file]

jepi67 · 23 Décembre 2005

Bonjour à tous,
bonjour Charly,

Merci pour l'exemple, mais avant que Njogou revienne, il y a un petit bug dans l'initialisation car à l'ouverture du fichier j'ai une erreur d'exécution '438' ...
J'ai cherché un peu et en remplaçant

Code:

Couleur = Sheets('Feuil1').Range('A1').ColorIndex

par

Code:

Couleur = 0

je ne l'ai plus et tout fonctionne normalement.
Mais comme je suis débutant en Vba je ne suis pas sûr que c'est la bonne solution

à+

Charly2 · 23 Décembre 2005

Bonjour jepi67, bonjour à toutes et à tous

Effectivement, il y avait une erreur :whistle:
Je n'avais pas testé et quand on écrit vite, on se trompe parfois d'objet, c'est donc :
Couleur = Sheets('Feuil1').Range('A1').Interior.ColorIndex

qu'il faut écrire pour initialiser la variable Couleur

Amitiés
Charly

njogou · 27 Décembre 2005

Merci à tous pour votre soutien. ça marche maintenant

Pointer CelluleX et Activer CelluleY

njogou

Guest

jepi67

XLDnaute Occasionnel

Charly2

Nous a quittés en 2006

Pièces jointes