Couleur de cellule

Résolu/Fermé

Medestrac - 21 févr. 2019 à 10:46
Medestrac - 21 févr. 2019 à 15:53

Bonjour,

J'essaye de faire une macro qui inverse la couleur de remplissage de 2 cellules Excel
J'ai quelque chose du genre

c1=range("A1").interior.colorindex
t1=range("A1").interior.TintAndShade
range("A1").interior.colorindex = range("A2").interior.colorindex
range("A1").interior.TintAndShade = range("A2").interior.TintAndShade
range("A2").interior.colorindex=c1
range("A2").interior.TintAndShade=t1

Mais malgré ça les couleurs changent quand même. Si je lance une deuxième fois le code les couleurs ne bougent plus, j'en déduis que j'ai oublié de copier une propriété...mais laquelle?

A voir également:

Couleur de cellule
Excel cellule couleur si condition texte - Guide
Somme si couleur - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel si cellule contient texte alors 1 ✓ - Forum Excel

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
21 févr. 2019 à 15:48

Bonjour

ton code fonctionne correctement
https://www.cjoint.com/c/IBvoWbeBWOB

Cdlmnt

Réponse 2 / 2

Medestrac
21 févr. 2019 à 15:53

Merci du coup de main, mais ça ne fonctionne toujours pas. Je pense que ça vient de la notion de ThemeColor introduit par Excel depuis ta version.

J'ai remplacé ColorIndex par Color et j'ai l'impression que ça résout mon problème. Je vais le passer en résolu.

Discussions similaires

Si couleur, alors...

Excel si cellule contient texte alors...

sertissage des cables rj45

Changer la couleur d'une cellule selon son texte

Colorer une cellule quand une autre est non vide

Discussions similaires

Newsletters