Faire copier d'une selection de cellule dans tous les onglets
J
Bonjour,
J'aimerais faire une macro qui sélectionnerait ma cellule E15 jusqu'a E75, et qui copie tout dans la cellule F15 jusqu'à F75 et ensuite sa supprime les donnée de la E15 à E75. J'ai faite une macro mais sa fonctionne juste un onglet à la fois mais j'aimerais que sa le fasse sur toute mes onglets en même temps.
Sub Macro1()
'
' Macro1 Macro
'
'
Range("E15:E75").Select
Selection.Copy
Range("F15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E15").Select
Application.CutCopyMode = False
Range("E15:E75").Select
Selection.ClearContents
Range("F15").Select
End Sub
3
Bonjour,
Voici un essai :
Sub Macro1()
for each ws in worksheets
ws.Range("F15:F75").value = ws.Range("E15:E75").value
ws.Range("E15:E75").clearcontents
next ws
End SubCdlt,