treza88
XLDnaute Occasionnel
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:
Et forcement ça bloque a:
Merci d'avance
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:
VB:
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:
VB:
MyRange.Copy
Merci d'avance
Dernière édition: