Discussion :

[darkvadave]

Bonsoir,
je cherche à copier une plage de cellules contenant des MFC et à coller leur contenu sur une autre plage.
Le problème : la MFC est également collée, mais le résultat n'est pas celui escompté car j'ai des références relatives dans mes MFC (et je ne peux pas utiliser que des références absolues).
Ma question : comment coller le contenu d'une cellule avec le résultat de la MFC (mais pas la MFC) . Par exemple, une plage de cellules d'un planning où se cottoient des cellules colorée en bleu pâle (JF, week-end...) grâce à une MFC et des cellules contenant des informations (texte, couleur de fond et de polices...).
NB : le but est d'élaborer un planning annuel pour une personne (pouvant tenir sur une ou deux pages) à partir du planning d'une équipe (une colonne de 365 lignes) avec des WE parfois travaillés (donc parfois des cellules colorées pour marquer la garde) mais en conservant la couleur bleuté des WE et JF de la MFC quand ces jours ne sont pas attribués.
Merci d'avance.

[pressdell]

Bonjour dark,

Peux tu essayer ceci :

Code :

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

 .PasteSpecial Paste:=xlPasteValues

ÉDIT : Cela correspond au collage special d'excel, valeurs uniquement.

[ZebreLoup]

Ca c'est pour copier les valeurs, pour le format sans garder la MFC je ne vois pas de solution simple à part boucler sur toutes les cellules et copier la couleur de fond, la couleur de police...
Je vais voir si je trouve mieux

[Golonne]

Bonjour à tous,

pressdell a la bonne solution mais le bon paramètre est le suivant :

Code :

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

.PasteSpecial (xlPasteValuesAndNumberFormats)

Cordialement,

Guillaume

[ZebreLoup]

Tu as testé ? J'avais essayé ça sans grande conviction et ça ne marchait pas chez moi.

[Golonne]

Tu as testé ? J'avais essayé ça sans grande conviction et ça ne marchait pas chez moi.

Oui, j'ai testé dans un classeur en mettant en A1 "11" et une MFC (colorie le fond de cellule en vert si valeur > 10) avec le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
 
ActiveSheet.Cells(1, 1).Copy
 
    ActiveSheet.Cells(2, 1).PasteSpecial (xlPasteValuesAndNumberFormats)
 
Application.CutCopyMode = False
 
End Sub

Chez moi ça marche (XL2003)

Cordialement,

Guillaume