Discussion :

[jacfld49]

Bonsoir le forum,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

Bonsoir

En passant par une variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacfld49]

Bonsoir

En passant par une variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

Quelque chose comme ceci sans garantie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacfld49]

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

Quelque chose comme ceci sans garantie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacfld49]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacfld49]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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