Bonjour le Forum,
J'ai crée une macro avec l'enregistreur de macro me permettant d'extraire des doublons. Elle fonctionne très bien, et je voudrais pouvoir utiliser ce code dans les autres onglets. Elle a été enregistrée sur la feuille JANVIER et je voudrais pouvoir changer les lignes portant le nom de la feuille("Janvier") ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear de façon à rendre ce code utilisable sur tous les autres onglets de ce classeur.
Je voudrais éviter de créer une macro spécifique à chaque onglet. Chose faisable mais très lourd je suppose.
Je ne sais pas faire. Merci de votre aide
Ci-dessous est présent le code enregistré. Merci de pouvoir le modifier.
Amicalement
BONNES FÊTES
Sub Doublon_Trie()
'
' Macro2 Macro
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123", UserInterfaceOnly:=True 'Enlève et remet le mot de passe
'Copie Motif
Range("E5:E152").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=1
Range("AA155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AA$155:$AA$302").RemoveDuplicates Columns:=1, Header:= _
xlNo
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add Key:=Range("AA155") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Janvier").Sort
.SetRange Range("AA155:AA302")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Copie bénéficiaire
Range("F5:F152").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=1
Range("AE155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AE$155:$AE$302").RemoveDuplicates Columns:=1, Header:= _
xlNo
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add Key:=Range("AE155") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Janvier").Sort
.SetRange Range("AE155:AE302")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call Dernier_Ligne
End Sub
J'ai crée une macro avec l'enregistreur de macro me permettant d'extraire des doublons. Elle fonctionne très bien, et je voudrais pouvoir utiliser ce code dans les autres onglets. Elle a été enregistrée sur la feuille JANVIER et je voudrais pouvoir changer les lignes portant le nom de la feuille("Janvier") ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear de façon à rendre ce code utilisable sur tous les autres onglets de ce classeur.
Je voudrais éviter de créer une macro spécifique à chaque onglet. Chose faisable mais très lourd je suppose.
Je ne sais pas faire. Merci de votre aide
Ci-dessous est présent le code enregistré. Merci de pouvoir le modifier.
Amicalement
BONNES FÊTES
Sub Doublon_Trie()
'
' Macro2 Macro
'
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="123", UserInterfaceOnly:=True 'Enlève et remet le mot de passe
'Copie Motif
Range("E5:E152").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=1
Range("AA155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AA$155:$AA$302").RemoveDuplicates Columns:=1, Header:= _
xlNo
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add Key:=Range("AA155") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Janvier").Sort
.SetRange Range("AA155:AA302")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Copie bénéficiaire
Range("F5:F152").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=1
Range("AE155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$AE$155:$AE$302").RemoveDuplicates Columns:=1, Header:= _
xlNo
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add Key:=Range("AE155") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Janvier").Sort
.SetRange Range("AE155:AE302")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Call Dernier_Ligne
End Sub