Discussion :

[zoumzoum59]

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 :

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

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 :

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

MyRange.Copy

Merci d'avance

[anasecu]

Bonjour a tous,

Et forcement ça bloque a: MyRange.Copy

Normal il te faut faire tes copies plage par plage

[Menhir]

Code :

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

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

[patricktoulon]

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 :

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

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 :

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

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

[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.

[patricktoulon]

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 :

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

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

[Menhir]

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 ?