Pointer CelluleX et Activer CelluleY

[njogou]

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]

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]

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]

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

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

par

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]

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]

Merci à tous pour votre soutien. ça marche maintenant