Discussion :

[FrancisZheng]

Bonjour :

Les deux feuilles sont dans un même classeur actif. Il y des cellules fusionnées dans la plage.

Voici mon code :

Code :

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

1
2
3
        Sheets("Données générales").Range(Cells(2, 3), Cells(lastLig, lastCol)).Copy
        Sheets(nameSheets).Range("A1").PasteSpecial Paste:=xlPasteFormats And xlValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Déjà à la première ligne, il renvoie une erreur "Erreur définie par l'application ou par l'objet". De plus je ne suis pas que la deuxième ligne est correct.

Merci d'avance pour m'aider le corriger.

[parmi]

Bonjour,

Il faudrait voir que valent les variables lastLig et lastCol. Si elles valent moins de 1, il y a problème...
Pour le PasteSpecial, essaie sur 2 lignes

Code :

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

1
2
Sheets(nameSheets).Range("A1").PasteSpecial  xlPasteValues
Sheets(nameSheets).Range("A1").PasteSpecial  xlPasteFormats

[patricktoulon]

bonsoir
a savoir !!!!
la fonctionrange(.....). copy destination:=range(......) copie la plage comme tel

[FrancisZheng]

Bonjour,

Il faudrait voir que valent les variables lastLig et lastCol. Si elles valent moins de 1, il y a problème...
Pour le PasteSpecial, essaie sur 2 lignes

Code :

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

1
2
Sheets(nameSheets).Range("A1").PasteSpecial  xlPasteValues
Sheets(nameSheets).Range("A1").PasteSpecial  xlPasteFormats

Bonjour,

J'ai essayé mais il renvoie "Erreur définie par l'application ou par l'objet" à la ligne :

Code :

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

Sheets("Données générales").Range(Cells(2, 3), Cells(lastLig, lastCol)).Copy

Donc je ne peux pas tester votre code

bonsoir
a savoir !!!!
la fonctionrange(.....). copy destination:=range(......) copie la plage comme tel

Bonjour Patrick,

J'ai écrit cette ligne :

Code :

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

Range(Cells(2, 3), Cells(lastLig, lastCol)).Copy Destination:=Sheets(nameSheets).Range("A1")

Il n'y a pas d'erreur mais la copie n'a pas été effectué non plus.

[parmi]

Comme il n'y a pas d'erreur, est-ce que tu aurais mis à quelque part avant

Code :

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

On Error Resume Next

[FrancisZheng]

Euh non, il n'y a pas cette ligne dans mon code.