Copier coller multiple

Version imprimable

Bonjour a tous,

Je bloque sur un problème de copier coller sur une sélection multiple et je n'arrive pas a trouver de solution

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set rang1 = Range("B5", ActiveSheet.Range("F65536").End(xlUp))
    Set rang2 = Range("H5", ActiveSheet.Range("J65536").End(xlUp))
    Set rang3 = Range("M5", ActiveSheet.Range("M65536").End(xlUp))
    Set rang4 = Range("N5", ActiveSheet.Range("R65536").End(xlUp))
    Set rang5 = Range("AE5", ActiveSheet.Range("AG65536").End(xlUp))
    Set rang6 = Range("AJ5", ActiveSheet.Range("AJ65536").End(xlUp))
    Set rang7 = Range("AQ5", ActiveSheet.Range("AU65536").End(xlUp))

    Set MyRange = Union(rang1, rang2, rang3, rang4, rang5, rang6, rang7)
    MyRange.Copy

    Workbooks.Add

    Range("B1").PasteSpecial Paste:=xlPasteValues

Et forcement ça bloque a:

Code:

MyRange.Copy

Merci d'avance

01/12/2017, 09h26
anasecu

Bonjour a tous,

Citation:

Envoyé par zoumzoum59

Et forcement ça bloque a: MyRange.Copy

Normal il te faut faire tes copies plage par plage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Lim As Long
Lim = UsedRange.Rows.Count
 
WSSource.Range("B5:AU" & Lim).Copy
Workbooks.Add
Range("B1").PasteSpecial Paste:=xlPasteValues
 
Range("G1:G" & Lim).ClearContents
Range("K1:L" & Lim).ClearContents
Range("S1:AD" & Lim).ClearContents
Range("AH1:AI" & Lim).ClearContents
Range("AK1:AP" & Lim).ClearContents

Bonjour

teste cela comme tel (ca va planter) et teste ensuite en enlevant ",rang4" en gras dans le code dans la ligne set myrange=......
tu comprendra tout seul

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()

    Set rang1 = Range("H5", ActiveSheet.Range("F65536").End(xlUp))
    Set rang2 = Range("H5", ActiveSheet.Range("J65536").End(xlUp))
    Set rang3 = Range("M5", ActiveSheet.Range("M65536").End(xlUp))
    Set rang4 = Range("N5", ActiveSheet.Range("R65536").End(xlUp))
    'Set rang5 = Range("AE5", ActiveSheet.Range("AG65536").End(xlUp))
    'Set rang6 = Range("AJ5", ActiveSheet.Range("AJ65536").End(xlUp))
    'Set rang7 = Range("AQ5", ActiveSheet.Range("AU65536").End(xlUp))
    Set myrange = Union(rang1, rang2, rang3, rang4)   ', rang5, rang6, rang7)
    myrange.Copy
     Workbooks.Add
    Range("B1").PasteSpecial Paste:=xlPasteValues
End Sub

ensuite explique moi a quoi te sert ces deux lignes

Code:

1
2
Set rang3 = Range("M5", ActiveSheet.Range("M65536").End(xlUp))
    Set rang4 = Range("N5", ActiveSheet.Range("R65536").End(xlUp))

pour quoi ne pas les englober en une puisque les colonnes sont contiguës

01/12/2017, 12h28
zoumzoum59

Bonjour Anasecu, Menhir et patricktoulon,

Et merci pour votre aide.

Patrick j'ai testé avec et sans , rang4 et même sans , rang4 ça plante, pour moi je n'ai pas de différence entre les deux codes.
Quand aux colonnes M et N, c'est exacte je l'ai fait en plusieurs étape et du coup je ne me suis pas aperçu quelles étaient contiguës, erreur de ma part.

re
oui en effet il est fort possible que ton contexte soit diffèrent et impossible pour toi de comprendre pour rang4

alors pour te montrer ou sa cloche dans ton code

analyse bien celui la ,; et peut être comprendra tu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    With ActiveSheet
        Set dercell = .Range(Split(.UsedRange.Address, ":")(1))
        Set rang1 = .Range("B5", .Range("F" & dercell.Row))
        Set rang2 = .Range("H5", .Range("J" & dercell.Row))
        Set rang3 = .Range("M5", .Range("R" & dercell.Row))
        Set rang4 = .Range("AE5", .Range("AG" & dercell.Row))
        Set rang5 = .Range("AJ5", .Range("AJ" & dercell.Row))
        Set rang6 = .Range("AQ5", .Range("AU" & dercell.Row))
    End With
    Set myrange = Union(rang1, rang2, rang3, rang4, rang5, rang6)
    myrange.Copy
    Workbooks.Add
    ActiveSheet.range("B1").PasteSpecial Paste:=xlPasteValues
End Sub

04/12/2017, 09h39
Menhir

Citation:

Envoyé par zoumzoum59

Je bloque sur un problème de copier coller sur une sélection multiple et je n'arrive pas a trouver de solution

Est-ce que tu veux que dans le fichier destination tes données restent dans les mêmes colonnes ou qu'elles soient regroupées dans des colonnes contigües ?