Intégrer code dans un autre

Version imprimable

Bonsoir le forum,

j'ai ce code que je voudrais simplifier et que je voudrais mettre au début du code Trier_Sprint

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Copier_Sans_Formules_Sprint(ByVal WsName As String)
Application.ScreenUpdating = False
    Range("GG7:GR105").Select
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-96
    Range("GG7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("GO4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
Application.ScreenUpdating = True
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Trier_Sprint(ByVal WsName As String)
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(WsName)
    .Range("GB6:GU105").Select
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key _
        :=Range("GU7:GU105"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("GB6:GU105")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    .Range("GB7").Select
End With
Application.ScreenUpdating = True
End Sub

merci de votre aide

15/03/2019, 22h39
a_diard
Bonsoir

En passant par une variable tableau
Code:

1 2 3 Tableau = Range("GG7:GR105") Range("GG7:GR105")=Tableau

Bonsoir Jacky
ça fait un bail. Comment allez-vous?

Quelque chose comme ceci sans garantie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Trier_Sprint(ByVal WsName As String)
 
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(WsName)
    With .Range("GG7:GR105")
        .Value = .Value
    End With
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=.Range("GU7:GU105"), SortOn:=xlSortOnValues, Order:=xlAscending
    .Sort.SetRange .Range("GB6:GU105")
    With .Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
End Sub

15/03/2019, 22h42
jacfld49
Citation:
Envoyé par a_diard

Bonsoir

En passant par une variable tableau

Code:

1 2 3 Tableau = Range("GG7:GR105") Range("GG7:GR105")=Tableau
Bonsoir a-diard,

merci mais ou est ce qu'il faut que je le mette dans mon code
merci

Citation:
Envoyé par mercatog
Bonsoir Jacky
ça fait un bail. Comment allez-vous?

Quelque chose comme ceci sans garantie
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Trier_Sprint(ByVal WsName As String) Application.ScreenUpdating = False With ThisWorkbook.Worksheets(WsName) With .Range("GG7:GR105") .Value = .Value End With .Sort.SortFields.Clear .Sort.SortFields.Add Key:=.Range("GU7:GU105"), SortOn:=xlSortOnValues, Order:=xlAscending .Sort.SetRange .Range("GB6:GU105") With .Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With End Sub
Bonsoir Mercatog,

Oui cela faisait un moment que je n'étais pas revenu sur les forums et comme il y a des évolutions dans nos courses, il faut que j'adapte mon fichier et le souci avec tous les codes et formules qu'il y a , je suis obligé de demander l'aide du forum
merci à toi, je vais tester

Re Bonsoir Mercatog,

Merci beaucoup, cela fonctionne impeccable , je ne veux pas abuser mais du coup j'ai 2 autres codes ou je voudrais en faire plus qu'un
voici le 1er
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Afficher_Colonnes_Sprint(ByVal WsName As String) Application.ScreenUpdating = False Dim MaPlage As Range With ThisWorkbook.Worksheets(WsName) Columns("GG:GR").EntireColumn.Hidden = False Range("GU7").Activate End With Application.ScreenUpdating = True End Sub
et voici le 2ème qui me permet de remettre les formules que j'ai effacées en faisant le tri si jamais j'ai trié trop vite
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Recopier_Formules_Sprint(ByVal WsName As String) Application.ScreenUpdating = False Range("GY6:HJ105").Select Selection.Copy Range("GG6").Select ActiveSheet.Paste Range("GP4").Select Application.CutCopyMode = False Selection.ClearContents Application.ScreenUpdating = True End Sub
merci d'avance

Code:

1
2
3
4
5
6
7
8
Sub Recopier_Formules_Sprint(ByVal WsName As String)
 
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(WsName)
    .Range("GY6:HJ105").Copy .Range("GG6")
    .Columns("GG:GR").Hidden = False
End With
End Sub

Citation:

Envoyé par mercatog

Code:

1
2
3
4
5
6
7
8
Sub Recopier_Formules_Sprint(ByVal WsName As String)
 
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(WsName)
    .Range("GY6:HJ105").Copy .Range("GG6")
    .Columns("GG:GR").Hidden = False
End With
End Sub

Bonjour Mercatog, le forum,

merci beaucoup, cela fonctionne