Bonjour tout le monde,

Petite présentation pour la politesse :
Borbi 23ans, Apprenti Ingénieur Mécanique ...

Je fais pour ma boite tout un tas de petit programme de niveau peu élevé sous VBA. Bien souvent une recherche sous google me permet de resoudre mon problème mais la je suis largué.

J'ai un programme qui crée des feuils dans un fichier et qui les remplis, là, pas de problème. Seulement je voudrais parfois les supprimer.

Voila le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
v_fin = Worksheets.Count
For i = 3 To v_fin
    'ligne pour vérifier quel worksheets je choisis
    Nom = Worksheets(i).Name
    'je désactive la fenetre de vérification
    Application.DisplayAlerts = False
    Sheets(i).Delete
    Application.DisplayAlerts = True
Next i
Théoriquement il devrait me selectionner chaque feuille de 3 à V_fin et les supprimer. Seulement il m'affiche l'erreur :

Erreur d'éxécution '9'
L'indice n'apartient pas à la selection

Lorsque je le fais pas a pas, je m'appercois qu'il commence par la derniere feuille et en supprime une sur 2 jusqu'a appartion de la fenetre d'erreur.

Je suis largué