luke3300
XLDnaute Impliqué
Bonjour le forum,
J'utilise 3 macros actuellement et j'aimerais les simplifier et n'en avoir qu'une seule.
Voici les codes:
Il s'agit de Macros de copier/coller et de remplacement de valeurs.
Merci d'avance pour l'aide que vous pourrez m'apporter et excellent début de semaine à toutes et tous.
J'utilise 3 macros actuellement et j'aimerais les simplifier et n'en avoir qu'une seule.
Voici les codes:
Code:
Sub Macro2()
'
' Copie les noms
'
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("New").Select
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Distribution").Select
Range("D26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False 'supprime le clignotement lié au copier/coller
Range("F26").Select
Sheets("Données").Select
Range("A1").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("New").Select
Range("D2").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Distribution").Select
Range("F9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="J0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="JS", Replacement:="S", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False 'supprime le clignotement lié au copier/coller
Range("F26").Select
Sheets("Données").Select
Range("A1").Select
End Sub
Sub Macro5()
'
' Macro5 Macro
'
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("New").Select
Range("D5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Distribution").Select
Range("F26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Replace What:="2", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="3", Replacement:="1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False 'supprime le clignotement lié au copier/coller
Range("F26").Select
Sheets("Données").Select
Range("A1").Select
End Sub
Il s'agit de Macros de copier/coller et de remplacement de valeurs.
Merci d'avance pour l'aide que vous pourrez m'apporter et excellent début de semaine à toutes et tous.