Discussion :

[borbi]

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é

[Jean-Pierre49]

Bonjour

Fait l'inverse

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 = v_fin To 3 step -1
    '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

[borbi]

je te remercie de ta réponse, je n'ai pas fais exatement ca pour d'autre raison, mais c'était cette c****** la solution.
merci vraiment
encore merci pour ce forum que je consutlte souvent et qui me donne mes réponse.

[AlainTech]

Bienvenue sur nos forums.

Il est d'usage, ici, lorsqu'on a obtenu ou trouvé réponse à sa question de cliquer sur le bouton , en bas de discussion.

Merci

Edit:
Je l'ai fait pour toi cette fois-ci.