XL 2010 Copier des colonnes suivant conditions

[jacky49]

Bonjour à tous,

j'ai un tableau de DQ7 à EJ105 et le même tableau de BG7 à GU 105
Je voudrais copier les colonnes DV7 à DV105 dans la colonnes GG7 à GG105 si dans la cellules DV5 c'est écrit Samedi sinon mettre 0,
idem pour la colonnes DX7 à DX105 dans la colonnes Gi7 à Gi105 si dans la cellules DX5 c'est écrit Samedi sinon mettre 0
idem pour la colonnes DZ7 à DZ105 dans la colonnes GK7 à GK105 si dans la cellules DZ5 c'est écrit Samedi sinon mettre 0
merci de votre aide
jacky

 

[jacky49]

Bonjour à tous,
j'ai réussi par formules et ensuite comme j'avais un souci de tri a cause des formules, pour contourner le problème, j'ai créé une macro qui me recopie les colonnes sur elles-même et donc ensuite cela fonctionne.
Ma nouvelles question est comment revenir en arrière si j'ai été trop vite à activer ma macro car du coup je n'ai plus les formules
merci de votre aide
jacky

 

[jacky49]

Bonjour,
j'ai donc ce code qui me fait un tri

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

et je voudrais intégrer ce code au début de trier_Sprint

Sub Copier_sans_formules_Sprint(ByVal WsName As String)
Application.ScreenUpdating = False
    Range("GG7:GR99").Select
    ActiveWindow.SmallScroll Down:=-92
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("GM4").Select
Application.ScreenUpdating = True

End Sub

J'espère que c'est possible, j'ai essayé de faire fonctionner la macro " Copier_sans_formules_Sprint" en mettant à la fin la fonction "Call Trier_Sprint"
Mais cela ne fonctionne pas
merci de vos réponses