[Aide] Copier/Coller

[Ridame]

Bonjour à tous,

Je cherche une méthode pour copier/Coller une zone d'une feuille a une autre feuille.

j'arrive a faire correctement le copier/coller avec cette formule

Sheets("VIERGE").Range("A10 : AG31").Copy
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Le problème, c'est qu'il ne respecte pas la taille des colonnes et lignes(en gros ca fait un copie/coller tout moche)

J'aimerai savoir qu'est ce qu'il faudrait ajouter pour que la taille des colonnes et la taille de mes lignes soient respecté...

Cordialement

 

[Paritec]

Re : [Aide] Copier/Coller

Bonjour Ridame,
essayes comme cela
a+
Papou

Sheets("VIERGE").Range("A10 : AG31").Copy
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

 

[Ridame]

Re : [Aide] Copier/Coller

Bonjour Paritec,

Ca ne change rien :/
il ne modifie pas la taille de la colonne.

Merci encore

 

[Paritec]

Re : [Aide] Copier/Coller

Re Ridame
essayes cela
a+
papou 🙂

Sheets("VIERGE").Range("A10 : AG31").Copy
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

 

[Ridame]

Re : [Aide] Copier/Coller

Re Ridame
essayes cela
a+
papou 🙂

Sheets("VIERGE").Range("A10 : AG31").Copy
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Sheets("CL").Range("A10 : AG31").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

Re Papou xD

je te remercie
ca marche niquel

Cordialement

Ridou 😛