J
JC de Lorient
Guest
Bonjour le forum,
j'ai un souci avec la macro suivante
je pense d'après le message d'erreur que g dépassé la capacité d'arguments (plus de 30)
existe il une solution ou une autre méthode pour arriver a mes fins?
Merci a vous
JC
Sub MultiCellCopy()
Dim PlageSource As Range, Cell As Range
Dim LastLine As Long
Dim Colonne As Byte
With Sheets("Fiche_paye")
Set PlageSource = Application.Union(.Range("i9"), .Range("e21"), .Range("f21"), .Range("e22"), .Range("e23"), .Range("g25"), .Range("g26"), .Range("g29"), .Range("f31"), .Range("f33"), .Range("f35").Range("f43"), .Range("f45"), .Range("f49"), .Range("f51"), .Range("f53"), .Range("f55"), .Range("f57"), .Range("j31"), .Range("j33"), .Range("j35"), .Range("j37"), .Range("j39"), .Range("j41"), .Range("j43"), .Range("j45"), .Range("j47"), .Range("j49"), .Range("j51"), .Range("j53"), .Range("j55"), .Range("k59"), .Range("i61"), .Range("k61"), .Range("g65"), .Range("f67"), .Range("f69"), .Range("e71"), .Range("f71"), .Range("e75"), .Range("f75"), .Range("i62"), .Range("i63"), .Range("i64"), .Range("k62"), .Range("k63"), .Range("k64"), .Range("e76"), .Range("f76"), .Range("i76"), .Range("k76"))
End With
LastLine = Sheets("Récap").Range("A65536").End(xlUp).Row + 1
Colonne = 1
For Each Cell In PlageSource
With Sheets("Récap")
.Cells(LastLine, Colonne) = Cell
End With
Colonne = Colonne + 1
Next
End Sub
j'ai un souci avec la macro suivante
je pense d'après le message d'erreur que g dépassé la capacité d'arguments (plus de 30)
existe il une solution ou une autre méthode pour arriver a mes fins?
Merci a vous
JC
Sub MultiCellCopy()
Dim PlageSource As Range, Cell As Range
Dim LastLine As Long
Dim Colonne As Byte
With Sheets("Fiche_paye")
Set PlageSource = Application.Union(.Range("i9"), .Range("e21"), .Range("f21"), .Range("e22"), .Range("e23"), .Range("g25"), .Range("g26"), .Range("g29"), .Range("f31"), .Range("f33"), .Range("f35").Range("f43"), .Range("f45"), .Range("f49"), .Range("f51"), .Range("f53"), .Range("f55"), .Range("f57"), .Range("j31"), .Range("j33"), .Range("j35"), .Range("j37"), .Range("j39"), .Range("j41"), .Range("j43"), .Range("j45"), .Range("j47"), .Range("j49"), .Range("j51"), .Range("j53"), .Range("j55"), .Range("k59"), .Range("i61"), .Range("k61"), .Range("g65"), .Range("f67"), .Range("f69"), .Range("e71"), .Range("f71"), .Range("e75"), .Range("f75"), .Range("i62"), .Range("i63"), .Range("i64"), .Range("k62"), .Range("k63"), .Range("k64"), .Range("e76"), .Range("f76"), .Range("i76"), .Range("k76"))
End With
LastLine = Sheets("Récap").Range("A65536").End(xlUp).Row + 1
Colonne = 1
For Each Cell In PlageSource
With Sheets("Récap")
.Cells(LastLine, Colonne) = Cell
End With
Colonne = Colonne + 1
Next
End Sub