Exécuter macro à toutes les feuilles à l'ouverture

**Tonyown** · 05/01/2018, 21h51

Bonjour à tous,

Sujet maintes et maintes fois discuté je sais, ça fait deux jours que je fais des recherches et des tests mais je n'ai toujours pas réussi. Je veux qu'à l'ouverture de mon fichier excel "Liste des entrepreneurs.xls" ma macro s'exécute pour les 25-35 feuilles du classeur. Je veux supprimer les lignes où la date en colonne F est plus vieille qu'un an.

Cette macro fonctionne parfaitement si j'y vais feuille par feuille :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub Worksheet_Activate()
 
Dim refdate
Dim i, imax
 
    refdate = Now()
    imax = Range("F65536").End(xlUp).Row
 
    For i = 5 To imax + 1
        If (refdate - (Range("F" & i).Value) > 365) And (Range("F" & i).Value <> "") Then
            Range("F" & i).EntireRow.Delete
            i = i - 1
            Else: Exit Sub
        End If
    Next i
 
End Sub
 
 
Mais cette macro placée dans Thisworkbook ne fonctionne pas et je ne comprend pas pourquoi :
 
Private Sub Workbook_Open()
 
Dim sht As Worksheet
Dim refdate
Dim i, imax
 
    refdate = Now()
    imax = Range("F65536").End(xlUp).Row
 
     For Each sht In Worksheets
  Debug.Print sht.Name
 
    For i = 5 To imax + 1
        If (refdate - (Range("F" & i).Value) > 365) And (Range("F" & i).Value <> "") Then
            Range("F" & i).EntireRow.Delete
            i = i - 1
            Else: Exit Sub
        End If
    Next i
Next
 
End Sub

Est-ce que quelqu'un peut m'aider?

**joe.levrai** · 05/01/2018, 21h54

Bonjour,

préfixe TOUT tes Range de ton objet Sht qui représente la feuille sur laquelle tu travailles, sinon tu vas travailler sur la feuille active à chaque tour de boucle

**Tonyown** · 05/01/2018, 22h09

Merci pour la réponse rapide. Étant plutôt newbie en VBA tu veux dire par là exemple "sht.Range("F.................." ?
Si c'est ça j'ai essayé et ça ne fonctionne pas plus... si c'est pas ça évidemment que ça ne peut pas plus marcher hehe

**Menhir** · 08/01/2018, 14h19

Envoyé par Tonyown

Mais cette macro placée dans Thisworkbook ne fonctionne pas et je ne comprend pas pourquoi :

Envoyé par Tonyown

Si c'est ça j'ai essayé et ça ne fonctionne pas plus...

Quand la description d'un problème se limite simplement à "ça ne fonctionne pas", il est difficile de comprendre l'origine d'un problème et d'y proposer une solution.
Ne pourrais-tu pas être plus explicite ?

**Tonyown** · 10/01/2018, 17h07

D'accord, j'ai essayé de bien adresser mon code comme anasecu m'a suggéré. Ce code ne fonctionne toujours pas... Qu'est-ce qui ne fonctionne pas? Bien simplement les date de 2016 ne s'effacent pas dans les 25-35 feuilles quand j'ouvre le document excel. Il n'y a pas d'erreur de code rapporté

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
21
Private Sub Workbook_Open()
 
Dim sht As Worksheet
Dim i As Long, imax As Long
Dim refdate 
 
        refdate = Now()
For Each sht In Worksheets
    With sht
 
        imax = .Cells(.Rows.Count, "F").End(xlUp).Row
        For i = 5 To imax + 1
            If refdate - .Range("F" & i).Value > 365 And .Range("F" & i).Value <> "" Then
            .Rows(i).Delete
            i = i - 1
            Else: Exit Sub
            End If
        Next i
    End With
Next sht
End Sub

**Menhir** · 10/01/2018, 17h28

Déjà, ton Exit Sub semble étrange : ça veut dire que dès que dans n'importe quelle feuille, la condition n'est pas vérifiée, tu arrêtes toute la procédure ?

Pour savoir ce qu'il se passe exactement, fais fonctionner en pas-à-pas ou mets quelques Debug.Print pour suivre l'évolution.
Par exemple

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
21
22
Private Sub Workbook_Open()
 
Dim sht As Worksheet
Dim i As Long, imax As Long
Dim refdate 
 
refdate = Now()
For Each sht In Worksheets
    Debug.Print "Feuille : " & sht.Name
    With sht
        imax = .Cells(.Rows.Count, "F").End(xlUp).Row
        Debug.Print ">>>> Ligne " & i & " : Résultat " & (refdate - .Range("F" & i).Value > 365 And .Range("F" & i).Value <> "")
        For i = 5 To imax + 1
            If refdate - .Range("F" & i).Value > 365 And .Range("F" & i).Value <> "" Then
                .Rows(i).Delete
                i = i - 1
            Else: Exit Sub
            End If
        Next i
    End With
Next sht
End Sub

Autre détail : quand on supprime des lignes, il faut aller de la dernière à la première (Step -1), sinon tu loupes une ligne après chaque Delete.

**anasecu** · 05/01/2018, 22h10

Bonjour,

Envoyé par Tonyown

Mais cette macro placée dans Thisworkbook ne fonctionne pas et je ne comprend pas pourquoi

Il faut adresser la feuille que tu traites, comme ceci par exemple

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
Private Sub Workbook_Open()
 
Dim sht As Worksheet
Dim i As Long, imax As Long
 
For Each sht In Worksheets
 '   Debug.Print sht.Name
    With sht
        imax = .Cells(.Rows.Count, "F").End(xlUp).Row
        For i = 5 To imax + 1
            If Date - .Range("F" & i).Value > 365 And .Range("F" & i).Value <> "" Then
            .Rows(i).Delete
            i = i - 1
            Else: Exit Sub
            End If
        Next i
    End With
Next sht
End Sub

**Tonyown** · 05/01/2018, 22h21

J'ai essayé ceci, ne fonctionne pas encore

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
21
22
23
24
25
26
27
28
Private Sub Workbook_Open()
 
Dim sht As Worksheet
Dim refdate
Dim i, imax
 
refdate = Now()
imax = Range("F65536").End(xlUp).Row
 
For Each sht In Worksheets
 
With sht
 
For i = 5 To imax + 1
If (refdate - (Range("F" & i).Value) > 365) And (Range("F" & i).Value <> "") Then
Range("F" & i).EntireRow.Delete
i = i - 1
Else: Exit Sub
 
End If
 
Next i
 
End With
 
Next sht
 
End Sub

**anasecu** · 05/01/2018, 22h24

Regardes l'ordre et la syntaxe que je t'ai mise au-dessus : il faut utiliser le 'with' correctement.

Il serait aussi souhaitable que tu mettes les balises à ton code.

**Tonyown** · 05/01/2018, 22h30

Envoyé par anasecu

Regardes l'ordre et la syntaxe que je t'ai mise au-dessus : il faut utiliser le 'with' correctement.

Il serait aussi souhaitable que tu mettes les balises à ton code.

Ça?

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
21
22
23
24
25
26
27
28
29
Private Sub Workbook_Open()
 
Dim sht As Worksheet
Dim refdate
Dim i, imax
 
refdate = Now()
imax = Range("F65536").End(xlUp).Row
 
For Each sht In Worksheets
 
With sht
 
imax = Cells(Rows.Count, "F").End(xlUp).Row
For i = 5 To imax + 1
If (refdate - (Range("F" & i).Value) > 365) And (Range("F" & i).Value <> "") Then
Range("F" & i).EntireRow.Delete
i = i - 1
Else: Exit Sub
 
End If
 
Next i
 
End With
 
Next sht
 
End Sub