Re : Limiter longueur sélection via une valeur dans une cellule
C'est encore moi..!
Pourrais-tu m'aider pour "masquer" les onglets dont la macro a besoin pour calculer.
Je m'explique:
Lorsque je lance la macro on voit tous le déroulé des calculs et on voit que l'on passe d'un onglet à un autre.
Est-il possible de faire en sorte que l'on reste toujours sur l'onglet active sans voir apparaître les autres onglets.
Merci pour ton aide
Sub CONTRIBUTION()
'
' CONTRIBUTION Macro
'
'
'Range("L7:O16").Select
'Selection.ClearContents
'Sheets("Tampon").Select
'Range("B37:J63").Select
'Selection.ClearContents
'Range("B3").Resize(Sheets("Tampon").[L3], 9).Copy
'Range("B37").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("B37").Select
'Range("B37").Resize(Sheets("Tampon").[L3], 9).Select
'Range(Selection, Selection.End(xlDown)).Select
'Application.CutCopyMode = False
'Selection.AutoFilter
'ActiveWorkbook.Worksheets("Tampon").AutoFilter.Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("Tampon").AutoFilter.Sort.SortFields.Add Key:=Range _
("G38:G500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
'With ActiveWorkbook.Worksheets("Tampon").AutoFilter.Sort
'.Header = xlYes
'.MatchCase = False
'.Orientation = xlTopToBottom
'.SortMethod = xlPinYin
'.Apply
'End With
'Range("G38").Resize(Sheets("Tampon").[L4], 4).Select
'Selection.Copy
'Sheets("Contributions Evol Lactulose").Select
'Range("L7").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Range("L12").Select
'End Sub