Discussion :

[Muret31]

Bonjour à tous,
J'ai créé un code qui me permet de supprimer une ou des lignes en fonction de la date et je l'ai placé dans chaque feuille, ce code fonctionne bien mais j'aimerais modifier ou adapter ce dernier pour qu'il s'exécute automatiquement à l'ouverture du fichier excel, j'ai trois feuilles dans le fichier excel et j'aimerais que cela s'exécute sur les trois à l'ouverture du fichier excel, d'avance merci beaucoup.

Ci-après le code:

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 Airfields()
Application.ScreenUpdating = False
'
iRep = vbYes
If iRep = 6 Then
    iRow = Range("A" & Rows.Count).End(xlUp).Row
    For x = iRow To 3 Step -1
        If Cells(x, 3) <> "" And Cells(x, 3) < Date Then
            If DateDiff("d", CDate(Cells(x, 3)), Date) >= 1 Then
                iFlag = Range("C" & x).MergeArea.Rows.Count - 1
                Rows(x & ":" & x + iFlag).Delete shift:=xlUp
            End If
        End If
   Next
End If
'
Application.ScreenUpdating = True
'
End Sub

[ChristianBosch]

Salut, il faut modifier ta macro pour qu'en entrée tu puisse définir une variable objet worksheet

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 Airfields(MySh As Worksheet)
Application.ScreenUpdating = False
'
iRep = vbYes
If iRep = 6 Then
    iRow = MySh.Range("A" & MySh.Rows.Count).End(xlUp).Row
    For x = iRow To 3 Step -1
        If MySh.Cells(x, 3) <> "" And MySh.Cells(x, 3) < Date Then
            If DateDiff("d", CDate(MySh.Cells(x, 3)), Date) >= 1 Then
                iFlag = MySh.Range("C" & x).MergeArea.Rows.Count - 1
                MySh.Rows(x & ":" & x + iFlag).Delete shift:=xlUp
            End If
        End If
   Next
End If
'
Application.ScreenUpdating = True
'
End Sub

De la si la structure de tes feuilles sont les mêmes tu peux faire des appels, ici en ouvrant le fichier

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
Airfields Feuil1
Airfields Feuil2
Airfields feuil3
End Sub

PS : Feuil1, Feuil2 et Feuil3 sont des codeName

[Philippe Tulliez]

Bonjour,
Lorsqu'une procédure doit être utilisée pour différents cas (ici pour trois feuilles), il est préférable de prévoir un argument qui dans ce cas précis sera de type "Worksheet" que l'on invoque à chaque fois que l'on en a besoin.
Ainsi si vous souhaitez que la procédure soit invoquée à l'ouverture du classeur et quelle agisse pour les trois feuille, il suffit de prévoir une boucle depuis la procédure événementielle Workbook_Open

Un exemple pour une procédure nommée RemoveRowsByDate qui est invoquée pour les feuilles nommées Janvier, Février et Mars

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
  Dim sht As Worksheet
  For Each sht In Me.Worksheets
    Select Case LCase(sht.Name)
      Case "janvier", "février", "mars"
        RemoveRowsByDate sht
    End Select
  Next
End Sub

Exemple de la procédure avec argument

Code :

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

1
2
3
4
5
Sub RemoveRowsByDate(oSheet As Worksheet)
    '
    ' Ici le code
    '
End Sub

[Muret31]

Merci beaucoup Christian, tout fonctionne parfaitement.
You're the best!

[Muret31]

Merci Philippe!