Discussion :

[Cahlagan]

Bonjour,

J'ai un problème que je ne parviens pas à résoudre, malgré mes recherches.

J'ai un planning annuel, où des collègues peuvent noter leurs vacances. Ce planning contient des mises en forme conditionnelle pour que, par exemple, les samedis et dimanches soient grisés. Mais lorsqu'un collègue note des vacances, il sélectionne les cellules correspondant aux dates où il sera absent. Un menu adapté du clic droit colle alors un format (par exemple, fond de la cellule rouge avec la lettre "v" dans chaque cellule.

Ce que j'aimerais faire par vba: copier les colonnes concernées et les coller sur une autre feuille. Et c'est là que je bute: j'aimerais que l'aspect visuel (fond gris ou rouge, contenu de la cellule) soit exactement le même que celui de la feuille d'origine, mais qu'Excel ne colle PAS la mise en forme conditionnelle. Si j'utilise valeurs, il ne colle que les "v", si j'utilise formats, il colle aussi la mefc. Quelqu'un a une idée?

Merci!

[deedolith]

Salut,

La méthode PasteSpecial de l'objet Range est ton amie.

[Cahlagan]

Merci Deedolith,

J'ai bien essayé de faire un collage spécial (d'abord sans vba), mais je n'en ai pas trouvé qui donnerait le même aspect aux cellules, mais qui n'aurait plus de mise en forme conditionnelle.
Celui qui dit "Coller tout, fusionner la mise en forme conditionnelle" donne le même aspect, mais contient toujours une mefc...

[Cahlagan]

J'ai jeté un oeil dans Chatgpt, pour voir. Il me conseille de faire un collage spécial (valeurs), puis de refaire la mise en forme des cellules manuellement, Excel ne permettant pas de recréer le même aspect, mais sans la mise en forme conditionnelle. Il est catégorique, mais... a-t-il raison?

[deedolith]

L'aspect d'une cellules est conditionné par sa propre mise en forme et les mises en forme conditionelles.
Si tu ne recopie pas les MFC (quelque soit la méthode), il est normal que les cellules n'aient pas le même aspect.

Si tu veux conserver le même aspect, il faut soit copier les MFC,
soit le format induit par les MFC.

[Cahlagan]

Le plus important, dans ce projet, est de retrouver le même aspect (couleur des cellules, texte, mise en forme). Donc si le seul moyen d'y parvenir est de faire un collage spécial - format, cela ne m'ennuie pas. Mais j'ai fait des essais, et cela ne fonctionne pas lorsque je colle les cellules sur une autre feuille (cela fonctionne, en revanche, si je les colle sur la même feuille). Dans l'exemple pris, j'ai indiqué dans la mise en forme conditionnelle de mettre la cellule en rouge si la valeur dans K4 était égal à "f". Le problème vient, je suppose, que le collage sur une autre feuille perd ce lien, il n'indique pas que c'est la cellule K4 de la feuille 1.
Comment résoudre ce problème?

[deedolith]

A ma connaissance, les MFC ne sont pas prises en compte sur les opérations de copier / coller.
Il va falloir soit les importer, soit reconstituer le visuel qu'elles génèrent.

La propriété FormatConditions de l'objet Range contient une collection de MFC impactant la ou les cellules ciblées.

[Cahlagan]

Je pense avoir trouvé une solution. Plutôt que de supprimer la mefc, je vais recréer la même sur la feuille 2. Ensuite, le collage spécial

Selection.PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation _
:=xlNone, SkipBlanks:=False, Transpose:=False

permet de coller les valeurs, les couleurs, etc, sans toucher à la mefc.

Merci deedolith!

[halaster08]

Bonjour,

On peut récupérer la couleur d'une MFC en utilisant DisplayFormat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1").Interior.Color = Range("a1").DisplayFormat.Interior.Color