Bonjour, j'ai besoin de savoir comment copier coller une plage de cellule sachant que je doit copier une plage du type :
sheets(1).range(sheets(2).range(A1):sheets(2).range(A2)).copy
En fait, avant cela, je viens copier une plage D20:BL20 (qui se trouvait dans une plage D19:BL30) ce qui laisse la grande plage avec une ligne vide. J'aimerais donc supprimer la ligne vide en décalant les suivantes de la grande plage(puisque je ne peux pas filtrer à cause de cellules fusionnées)
j'ai essayé de nommer des parties etc:
Sheets("Récap par stagiaire").Activate
Range("D2:F2").Select
Selection.Copy
Range("AT4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
m = Sheets("Récap par stagiaire").Range("AQ5").Value
n = Sheets("Récap par stagiaire").Range("AS5").Value
o = Sheets("Récap par stagiaire").Range("AQ6").Value
p = Sheets("Récap par stagiaire").Range("AQ7").Value
q = Sheets("Récap par stagiaire").Range("AQ4").Value
Sheets("Suivi Sessions").Activate
Sheets("Suivi Sessions").Range([m]).Offset([n], 60).Select
Selection.Copy
Range([q]).Select
ActiveSheet.Paste
Range([o]).Offset(0, 60).Select
Selection.ClearContents
Range([p]).Offset(0, 60).Select
Selection.Copy
Range([o]).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
sheets(1).range(sheets(2).range(A1):sheets(2).range(A2)).copy
En fait, avant cela, je viens copier une plage D20:BL20 (qui se trouvait dans une plage D19:BL30) ce qui laisse la grande plage avec une ligne vide. J'aimerais donc supprimer la ligne vide en décalant les suivantes de la grande plage(puisque je ne peux pas filtrer à cause de cellules fusionnées)
j'ai essayé de nommer des parties etc:
Sheets("Récap par stagiaire").Activate
Range("D2:F2").Select
Selection.Copy
Range("AT4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
m = Sheets("Récap par stagiaire").Range("AQ5").Value
n = Sheets("Récap par stagiaire").Range("AS5").Value
o = Sheets("Récap par stagiaire").Range("AQ6").Value
p = Sheets("Récap par stagiaire").Range("AQ7").Value
q = Sheets("Récap par stagiaire").Range("AQ4").Value
Sheets("Suivi Sessions").Activate
Sheets("Suivi Sessions").Range([m]).Offset([n], 60).Select
Selection.Copy
Range([q]).Select
ActiveSheet.Paste
Range([o]).Offset(0, 60).Select
Selection.ClearContents
Range([p]).Offset(0, 60).Select
Selection.Copy
Range([o]).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False