Copier

[apdf1]

Bonjour,

Voila je voudrais copier les colonnes "E4:G53" et "I4:U53" se trouvant sur la feuil20 vers la feuil21 dans le colonnes "A4:C53" et "D453" j'ai mis comme code ceci mais ne fonctionne pas bien sur:

Sub Copy_Click()
   Sheets("Feuil21").Select
 Sheets(21).Range("A4:C53") = Sheets(20).Range("E4:G53") '
 Sheets(21).Range("D4:P53") = Sheets(20).Range("I4:U53") '

End Sub

Un très grand merci pour celui ou celle qui pourra m'aider……..

Cordialement
Max

 

[roro69]

Re : Copier

bonjour

Sub Copy_Click()
With Sheets(21)
Sheets(20).Range("E4:G53").copy .Range("A4:C53")
Sheets(20).Range("I4:U53").copy .Range("D453")
End with
End Sub

A++

 

[apdf1]

Re : Copier

Bonsoir roro69

Et merci pour le code super! y a t-il une ligne de code special pour que les colonnes on la même largeur?


Bonne soirée

@+
Max

 

[roro69]

Re : Copier

Rebonjour

sub copy_click()
with sheets(21)
sheets(20).range("e4:g53").copy .range("a4:c53") paste:=xlpastecolumnwidths
sheets(20).range("i4:u53").copy .range("d453") paste:=xlpastecolumnwidths
end with
end sub

a++

 

[apdf1]

Re : Copier

Re,

Je te remercie mais je pense qu'il doit manquer soit un point ou quelque chose parce que j'ai le code se met en rouge en signalant une erreur sur les deux lignes

@+

Max

 

[roro69]

Re : Copier

Rebonjour

sub copy_click()
with sheets(21)
sheets(20).range("e4:g53").copy .range("a4:c53").PasteSpecial paste:=xlpastecolumnwidths
sheets(20).range("i4:u53").copy .range("d453").PasteSpecial paste:=xlpastecolumnwidths
end with
end sub

a++

 

[apdf1]

Re : Copier

Re,

Regarde je te met un fichier exemple car c'est toujours pareil

Attention je suis en 2007

@+

Max

 

[roro69]

Re : Copier

rebonjour
là c'est bon

Sub copy_click()
With Sheets(2)
Sheets(1).Range("e4:g53").Copy
.Range("a4:c53").PasteSpecial Paste:=xlPasteColumnWidths
Sheets(1).Range("i4:u53").Copy
.Range("d4:c53").PasteSpecial Paste:=xlPasteColumnWidths
Sheets(1).Range("e4:g53").Copy .Range("a4:c53")
Sheets(1).Range("i4:u53").Copy .Range("d4:c53")
End With
End Sub

A++

 

[apdf1]

Re : Copier

Re,

La Nickel!!!! je te remercie infiniment et te souhaite un bon week end

@+

Max