Erreur d'éxécution 1004 Pour ce faire, la taille des cellules fusionnées

Bonjour,

J'essaie de copier coller en valeur un tableau d'un autre fichier.

Le problème est je n'arrive pas le copier coller en valeur et excel m'affiche :

"Erreur d'éxécution 1004 Pour ce faire, la taille des cellules fusionnées doit être identique"

et bug sur : Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Voici mon code

Windows("Synthèse Portefeuilles_20191231_V2.xlsm").Activate

Columns("CN:DQ").Select

Selection.Copy

Windows("Reporting Perp.xlsm").Activate

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

Bonjour,

C'est quoi cette plage ? Columns("CN:DQ").Select

Les colonnes que je veux copier

fanjaka a écrit :

Les colonnes que je veux copier

La référence CN et DQ n'est pas une liste de colonnes ( d'ailleurs les Lettres de colonnes sont dans le désordre )

Pourquoi les lettres de colonnes ne se suivent pas ? colonne C,D, N,Q

Pour une sélection colonne par colonne c'est plutôt :

Columns("C:C,D:D,N:N,Q:Q").Select

Pour une sélection par "plage de colonne" c'est du genre : ( colonne C à D et Colonne N à Q )

Columns("C:D,N:Q").Select

Les Deux points délimitent les plages et les virgules séparent l'énumération des plages.

Si tu as un doute , tu peux utiliser l'enregistreur de macro pour voir la façon dont excel

a écrit la selection et t'en servir ensuite dans ta propre macro.

C'est les numéros des colonnes où je veux prendre les valeurs : je veux copier les colonnes CN à DQ.

Çà commence à CN parce qu'il y a d'autres valeurs avant.

fanjaka a écrit :

C'est les numéros des colonnes où je veux prendre les valeurs : je veux copier les colonnes CN à DQ.

Çà commence à CN parce qu'il y a d'autres valeurs avant.

Ok donc la colonne CN ( 92ème ) colonne je comprend mieux dans ce cas.

As tu des cellules fusionnées dans ces colonnes ?

On peut avoir un fichier exemple sans les données confidentielles.

Oui, j'ai des cellules fusionnées dans le tableau et des données issues de TCD ou des formules.

J'ai trouvé, il fallait coller en Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats (coller Valeurs et formats des nombres) au lieu Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False (qui est le coller valeur classique).

Merci de ton aide