Discussion :

[leronce]

beau soleil au forum
ma macro en supprimant 4 feuilles (3-4-5-6), me positionne sur la 7 ème, ensuite créant 5 feuilles elle me positionne au fur et à mesure sur la dernière crée

ma question est : est-il possible de me figer sur la feuille 2, durant tout le processus de suppression et de création de feuilles

[EngueEngue]

Code :

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

1
2
3
4
5
Sheets("Feuil2").activate
application.screenupdating=false
'processus de creation suppression
Sheets("Feuil2").activate
application.screenupdating=true

[SfJ5Rpw8]

Bonjour

Montre nous le code utilisé pour détruire ces feuilles ?

tout en pensant qu'il faut éviter d'utiliser tout ce qui est Activate, ActiveSheet, Select , si ce n'est pour faire un diaporama .!

[leronce]

merci d'avoir regardé ma question

@EngueEngue: "sheets(2).activate" fonctionne à la suppression, mais pas à la création, à moins de l'intercaler entre chaque ajout

@bbil: voici ma sous-procédure appelée par la sub principale qui en comporte ~10

Code :

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

1
2
3
4
5
Sub suppr_feuil() 
    Application.DisplayAlerts = False
        Sheets(Array(3, 4, 5, 6)).Delete
    Application.DisplayAlerts = True
End Sub