SwimCoachNico79
XLDnaute Occasionnel
Bonsoir à tous,
Je souhaite regrouper les trois macros ci-dessous et les exécuter en une fois sur toutes les feuilles de mon fichier excel. Quelqu'un pourrait il m'aider ?
Merci d'avance !
SCN79
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("A:A").Select
Selection.Copy
Columns("E:E").Select
ActiveSheet.Paste
Selection.Replace What:=" (****)", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Application.CutCopyMode = False
Range("F1").Select
ActiveCell.FormulaR1C1 = "=MID(RIGHT(RC[-5],6),2,4)"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F25")
Range("F1:F25").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
Columns("B:B").Select
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
End Sub
Je souhaite regrouper les trois macros ci-dessous et les exécuter en une fois sur toutes les feuilles de mon fichier excel. Quelqu'un pourrait il m'aider ?
Merci d'avance !
SCN79
Sub Macro1()
'
' Macro1 Macro
'
'
Columns("A:A").Select
Selection.Copy
Columns("E:E").Select
ActiveSheet.Paste
Selection.Replace What:=" (****)", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Sub Macro2()
'
' Macro2 Macro
'
'
Application.CutCopyMode = False
Range("F1").Select
ActiveCell.FormulaR1C1 = "=MID(RIGHT(RC[-5],6),2,4)"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F25")
Range("F1:F25").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
Columns("B:B").Select
Selection.Copy
Columns("G:G").Select
ActiveSheet.Paste
End Sub