Discussion :

[Benjycool]

Bonjour,

J'ai une erreur, comme le stipule le titre :

"erreur d'execution '9'
L'indice n'appartient pas à la selection

Et voici mon 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
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 Del_Click()
 
    'calcul l'emplacement du premier onglet
    onglet1 = premier_onglet(onglet1)
 
 
    If LocalName.Value = "" Then
 
        MsgBox "Veuillez renseigner le nom du local à supprimer, svp !!"
 
        Unload Me
        UserFormDelLocal.Show
 
    Else
 
        For i = onglet1 To Sheets.Count
 
            If LocalName.Value = Sheets(i).Name Then
 
                Unload Me
 
                Application.DisplayAlerts = False
                Worksheets(i).Delete
                Application.DisplayAlerts = True
 
                'del_local_TabRecap (UserFormDelLocal.LocalName)
 
                i = Sheets.Count
 
            ElseIf i = Sheets.Count And LocalName.Value <> Sheets(i).Name Then
 
                    MsgBox "Local introuvable !!"
 
                    Unload Me
                    UserFormDelLocal.Show
 
            End If
 
        Next i
 
    End If
 
End Sub

En gros ce code supprime un onglet.
Je renseigne le nom de l'onglet dans un userform puis lorsque j'appuie sur le bouton "ok", l'onglet ce supprime mais ce message apparait également.
Pourquoi ??

Codialement
Benjamin

[babaothe]

Salut
Commence tra boucle for ...to...par le dernier Onglet (sheets.count) et remonte (step - 1) vers le 1er

[Benjycool]

Ok je vais essayer mais pourquoi le faire comme ca ? (c'est juste pour comprendre ce que je vais faire ... )

Benjamin

[Benjycool]

Ok c'est bon ca marche !!

Mais j'aimerais savoir quand même pourquoi ca ne marchais pas.

Merci de ton aide

Benjamin

[Gorfael]

Salut Benjycool et le forum

Code :

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

For i = onglet1 To Sheets.Count

pour I = onglet1 à nombre de feuilles. Mais si tu en supprimes une, le nombre de feuilles réel est inférieur de 1 à celui qui est stocké en variable.
Je n'ai pas lu la macro,mais tu pourrais peut-être simplement sortir de la macro une fois la feuille supprimée.
A+

[babaothe]

salut Gorfael,
sans compter le fait que l'on peut toujours directement supprimer un onglet (ici l'onglet "voila") :

Code :

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

Worksheets("voila").delete

. Et associer au besoin à une gestion d'erreur (pour le cas où l'onglet n'existerait pas).
Mais aucune de ces deux méthodes n'est à mon sens vraiment souhaitable. La meilleure serait de ne pas laisser l'utilisateur saisir un nom d'onglet. Une simple listbox alimentée (for each) par les onglets existants est idoine. L'utilisateur y choisirait l'onglet à supprimer.