Discussion :

[buigui]

Bonjour

Je souhaite supprimer une feuille sans confirmation. Habituellement j'utilise avec succès:

Code :

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

1
2
3
4
5
Sub toto()
Application.DisplayAlerts = False
Sheets(1).Delete
Application.DisplayAlerts = True
End Sub

Seulement cette fois ci, j'aimerais l'intégrer dans la boucle ci-dessous que j'utilise également habituellement avec succès:

Code :

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

1
2
3
4
For CompA = 1 To Sheets.Count
                             If Sheets(CompA).Name = "Relances" Then _
                             Sheets(CompA).Delete
                             Next CompA

Cela donne:

Code :

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

1
2
3
4
5
6
For CompA = 1 To Sheets.Count
                             If Sheets(CompA).Name = "Relances" Then _
                             Application.DisplayAlerts = False
                             Sheets(CompA).Delete
                             Application.DisplayAlerts = True
                             Next CompA

Mais cela ne fonctionne pas, une fenêtre d'erreur apparaît: "Erreur d'exécution 9, l'indice n'appartient pas à la sélection"

Merci par avance de vos réponses.
Cdt
Guillaume

[Invité]

Bonjour,

Il faut commencer votre boucle par la fin.

Code :

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

For CompA = Sheets.Count To 1 Step -1

[buigui]

Bonjour,

Il faut commencer votre boucle par la fin.

Code :

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

For CompA = Sheets.Count To 1 Step -1

Bonjour Eric

Avec:

Code :

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

1
2
3
4
5
6
7
Sub TEST()                      
                    For CompA = Sheets.Count To Step - 1
                             If Sheets(CompA).Name = "Relances" Then _
                             Sheets(CompA).Delete
                             Next CompA                
 
End Sub

... la suppression de feuille ne fonctionne plus.
Chez toi oui?

[Invité]

Il manque 1 derrière To

Code :

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

For CompA = Sheets.Count To 1 Step -1

[buigui]

Il manque 1 derrière To

Code :

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

For CompA = Sheets.Count To 1 Step -1

Désolé de la mauvaise lecture, merci cela fonctionne, par contre un nouveau problème apparait. Avec:

Code :

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

1
2
3
4
5
6
7
8
Sub TEST()
                  For CompA = Sheets.Count To 1 Step -1
                             If Sheets(CompA).Name = "Relances" Then _
                             Application.DisplayAlerts = False
                             Sheets(CompA).Delete
                             Application.DisplayAlerts = True
                             Next CompA
End Sub

... le feuille "Relances" se supprime bien sans confirmation. Par contre maintenant la macro me propose de supprimer une à une toutes les autres feuilles.. Vois-tu?

[Invité]

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
 
Option Explicit
 
Sub TEST()
 
Dim CompA As Integer
 
    For CompA = Sheets.Count To 1 Step -1
        If Sheets(CompA).Name = "Relances" Then
           Application.DisplayAlerts = False
           Sheets(CompA).Delete
           Application.DisplayAlerts = True
        End If
    Next CompA
End Sub