Discussion :

[apdf1]

Bonjour,

Voila pour 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 :

Code :

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

1
2
3
4
5
6
1.	Sub Copy_Click()
With Sheets(21)
Sheets(20).Range("E4:G53").copy .Range("A4:C53")
Sheets(20).Range("I4:U53").copy .Range("D4:P53")
End with
End Sub

Mon problème est y a t-il une ligne de code special pour que les colonnes on la même largeur?

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

Cordialement
Max

[Daniel.C]

Bonsoir,

Essaie :

Code :

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

1
2
3
4
5
6
7
8
Sub Copy_Click()
With Sheets(21)
    Sheets(20).Range("E4:G53").Copy .Range("A4:C53")
    .Range("A4:C53").PasteSpecial xlPasteColumnWidths
    Sheets(20).Range("I4:U53").Copy .Range("D4:P53")
    .Range("D4:P53").PasteSpecial xlPasteColumnWidths
End With
End Sub

[apdf1]

Bonsoir Daniel

Je te remercie d'avoir répondu.

1 petite chose il me met un message d'erreur '400'

@+

Max

[Daniel.C]

Sur quelle ligne ?

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Copy_Click2()
With Sheets(2)
    Sheets(1).Range("E4:G53").Copy .Range("A4:C53")
    Sheets(1).Range("E4:G53").Copy
    .Range("A4:C53").PasteSpecial xlPasteColumnWidths
    Sheets(1).Range("I4:U53").Copy .Range("D4:P53")
    Sheets(1).Range("I4:U53").Copy
    .Range("D4:P53").PasteSpecial xlPasteColumnWidths
End With
End Sub

[apdf1]

Re,

Je te remercie beaucoup sa marche nickel

Bon WE

@+
Max