Bonjour le forum!
Je viens vers vous avec un petit soucis. Il n'est pas ,à mon avis, d'une grosse complexité, mais ça me coince.
J'ai un classeur avec les feuilles "extract", "janvier", "fevrier", .... jusque "decembre"
je voudrais remplacer mes Sheets("JANVIER") dans le code ci dessous pour qu'elle s'adapte sur les autres feuilles. Par contre je ne sait pas comment ... je n'ai as réussi avec dim ou set, mais je ne suis pas très bon en code (je suis électricien avant tout )
Merci à vous.
Je viens vers vous avec un petit soucis. Il n'est pas ,à mon avis, d'une grosse complexité, mais ça me coince.
J'ai un classeur avec les feuilles "extract", "janvier", "fevrier", .... jusque "decembre"
je voudrais remplacer mes Sheets("JANVIER") dans le code ci dessous pour qu'elle s'adapte sur les autres feuilles. Par contre je ne sait pas comment ... je n'ai as réussi avec dim ou set, mais je ne suis pas très bon en code (je suis électricien avant tout )
Code:
Sub regroupement()
Application.ScreenUpdating = False
Sheets("extract").Select
'Sheets("JANVIER").Range("A3:C" & Range("A65535").End(xlUp).Row).ClearContents
Range("A2:C" & Range("A65535").End(xlUp).Row).Copy
Sheets("JANVIER").Select
Range("A3").Select
activesheet.Paste
activesheet.Range("$A$1:$C$" & Range("A65535").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
[A3].Select
Sheets("extract").Select
'Sheets("JANVIER").Range("A3:C" & Range("A65535").End(xlUp).Row).ClearContents
Range("A1:F" & Range("A65535").End(xlUp).Row).Copy
Sheets("JANVIER").Select
Range("AA1").Select
activesheet.Paste
Columns("AA:AF").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("JANVIER").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("JANVIER").Sort.SortFields.Add Key:=Range( _
"AE2:AE22850"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("JANVIER").Sort
.SetRange Range("AA1:AF22850")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
Application.ScreenUpdating = True
End Sub
Merci à vous.
Dernière édition: