XL 2013 repeter une action plusieurs fois

cabaniais · 22 Janvier 2018

bonjour
je voudrais qu'a l'ouverture de mon dossier cette action se repete 3 fois .
j'ai reussi a le faire en copiant 3 fois la meme macro.
ce que je voudrais c'est faire une boucle pour que ce soit plus simple.
voici ma macro
merci d'avance
Private Sub Workbook_Open()

Range("j2").Select
If Selection <= Date Then
Range("j2;p2").Select
Selection.Copy
Range("A15:G15").Select
Selection.Insert Shift:=xlDown
Range("j2").Select
Application.CutCopyMode = False
Range("m2").Select
If ActiveCell = "eurofil" Then
Range("j2") = DateAdd("m", 3, Range("j2"))
Application.CutCopyMode = False
Else: Range("j2") = DateAdd("m", 1, Range("j2"))
End If
End If

Range("J2;13").Select
ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Add Key:=Range("J2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ccp").Sort
.SetRange Range("J2;13")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("j2").Select
If Selection <= Date Then
Range("j2;p2").Select
Selection.Copy
Range("A15:G15").Select
Selection.Insert Shift:=xlDown
Range("j2").Select
Application.CutCopyMode = False
Range("m2").Select
If ActiveCell = "eurofil" Then
Range("j2") = DateAdd("m", 3, Range("j2"))
Application.CutCopyMode = False
Else: Range("j2") = DateAdd("m", 1, Range("j2"))
End If
End If

Range("J2;13").Select
ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Add Key:=Range("J2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ccp").Sort
.SetRange Range("J2;13")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("j2").Select
If Selection <= Date Then
Range("j2;p2").Select
Selection.Copy
Range("A15:G15").Select
Selection.Insert Shift:=xlDown
Range("j2").Select
Application.CutCopyMode = False
Range("m2").Select
If ActiveCell = "eurofil" Then
Range("j2") = DateAdd("m", 3, Range("j2"))
Application.CutCopyMode = False
Else: Range("j2") = DateAdd("m", 1, Range("j2"))
End If
End If

Range("J2;13").Select
ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Add Key:=Range("J2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ccp").Sort
.SetRange Range("J2;13")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

vgendron · 22 Janvier 2018

bonjour

avec un fichier exemple, ce serait mieux
sinon pour faire une boucle..

for i=1 to 3
'ton code
next i

vgendron · 22 Janvier 2018

sinon, ton code allégé, et corrigé donnerait ceci

VB:

For i = 1 To 3
    If Range("j2") <= Date Then
        Range("j2:p2").Copy
        Range("A15:G15").Insert Shift:=xlDown
        Application.CutCopyMode = False
        If Range("m2") = "eurofil" Then
            Range("j2") = DateAdd("m", 3, Range("j2"))
        Else: Range("j2") = DateAdd("m", 1, Range("j2"))
        End If
    End If
   
    ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Add Key:=Range("J2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ccp").Sort
        .SetRange Range("J2:13")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next i

cabaniais · 22 Janvier 2018

vgendron à dit:

sinon, ton code allégé, et corrigé donnerait ceci

VB:

For i = 1 To 3
    If Range("j2") <= Date Then
        Range("j2:p2").Copy
        Range("A15:G15").Insert Shift:=xlDown
        Application.CutCopyMode = False
        If Range("m2") = "eurofil" Then
            Range("j2") = DateAdd("m", 3, Range("j2"))
        Else: Range("j2") = DateAdd("m", 1, Range("j2"))
        End If
    End If
  
    ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ccp").Sort.SortFields.Add Key:=Range("J2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ccp").Sort
        .SetRange Range("J2:13")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Next i

/code][/QUOTE]
ok merci beaucoup c'est exactement ce que je voulais faire. et en plus c'est beaucoup plus simple. c'est ma 1er "creation" en macro et j'avais reussi  a faire quelque chose  mais en compliquant la macro.
merci encore

cabaniais · 22 Janvier 2018

ok merci beaucoup c'est exactement ce que je voulais faire. et en plus c'est beaucoup plus simple.
c'est ma 1er "creation" en macro et j'avais reussi a faire quelque chose mais en compliquant la macro.
merci encore

vgendron · 22 Janvier 2018

je me dis que le filtre peut etre sorti de la boucle.. car au final il n'y aura que le "dernier" filtre qui sera "actif"

cabaniais · 22 Janvier 2018

ca me convient tres bien comme ca merci encore

XL 2013 repeter une action plusieurs fois

cabaniais

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

cabaniais

XLDnaute Nouveau

cabaniais

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

cabaniais

XLDnaute Nouveau

Discussions similaires