Copier/coller valeurs avec cellules fusionnées d'une feuille à l'autre

Bonjour à tous,

Voici mon problème : Je souhaite par le biais d'une macro, copier et coller uniquement des valeurs (afin de conserver des mises en forme conditionnelles ) dans les cellules de destination sur une autre feuille.

Ma macro fonctionne, mais des qu'il y a des cellules fusionnées dans la sélection, cette dernière ne fonctionne plus.

Voici ma macro :

Sheets("Offres AVN").Select

Range("D8:G15").Select
    Selection.Copy
    Sheets("Offres APN").Select
    Range("D8:G15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Merci de votre aide !

Edit : je vous joins le fichier en question !

Bien cordialement,

BOB

Bonjour,

C'est étrange vous transposez vos valeurs mais je ne vois pas l'intérêt ..

Ceci devrait convenir à votre utilisation bien que je vous déconseille les cellules fusionnées (tous comme les SELECT qui ralentissent et alourdissent inutilement le code)

Sheets("Offres AVN").Range("D8:G15").Copy
Sheets("Offres APN").Range("D8").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Cdlt,

En effet cela fonctionne !

J'ai essayé un copier coller "normal" mais cela écrasait la mise en forme conditionnelle de la cellule, d'ou le collage de la valeur uniquement.

Merci de votre aide !

Rechercher des sujets similaires à "copier coller valeurs fusionnees feuille"