Copier/Coller plusieurs colonnes distinctes

Bonjour à tous,

Je voulais savoir s'il était possible de copier/coller plusieurs colonnes distingues d'un onglet à l'autre sans passer par la répétition d'une macro pour chaque colonne...

Voici mon code et je voudrais par exemple copier/coller les colonnes B, F,H et R

Sub CopierValeur()

    Application.ScreenUpdating = False

    'Sélectionne la feuille précédant la nouvelle feuille
    Worksheets(2).Select
    Range("B6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    'Sélectionne la nouvelle feuille créer
    Worksheets(1).Select
    Range("B6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

Merci d'avance pour votre aide!

BZH83

Bonjour,

voici un exemple,

Sub CopierValeur()
Dim wk1 As Worksheet, wk2 As Worksheet, i As Long, rw As Long, addr As String
Set wk1 = Worksheets(1)
Set wk2 = Worksheets(2)

For i = 2 To 10 Step 2 'copie les colonnes B,D,F,H,J
rw = wk1.Cells(Rows.Count, i).End(xlUp).Row
addr = Range(Cells(6, i).Address, Cells(rw, i).Address).Address
wk1.Range(addr) = wk2.Range(addr).Value
Next

End Sub

Salut i20100

Merci beaucoup pour ta réponse!

C'est top!

BZH83

Rechercher des sujets similaires à "copier coller colonnes distinctes"