Copier

apdf1 · 11 Novembre 2011

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:

Code:

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 · 11 Novembre 2011

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 · 11 Novembre 2011

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 · 11 Novembre 2011

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 · 11 Novembre 2011

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 · 11 Novembre 2011

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 · 11 Novembre 2011

Re : Copier

Re,

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

Attention je suis en 2007

@+

Max

roro69 · 11 Novembre 2011

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 · 11 Novembre 2011

Re : Copier

Re,

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

@+

Max

Copier

apdf1

XLDnaute Impliqué

roro69

XLDnaute Impliqué

apdf1

XLDnaute Impliqué

roro69

XLDnaute Impliqué

apdf1

XLDnaute Impliqué

roro69

XLDnaute Impliqué

apdf1

XLDnaute Impliqué

Pièces jointes

roro69

XLDnaute Impliqué

apdf1

XLDnaute Impliqué

Discussions similaires