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

[buigui]

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

Super merci. C'était la présence d'un underscore après then, et l'absence d' End if dans ma formule qui la différenciaient de la tienne. Et devaient la faire échouer.
Bonne journée