Sélectionner plusieurs feuilles en VBA

F

flyonets44

XLDnaute Occasionnel

• 17 Mai 2011

• #2

Re : Sélectionner plusieurs feuilles en VBA

Bonjour
Voici un bout de code à adapter
Selecter plusieurs feuilles

Sub SelectFeuillesSauf()
Application.ScreenUpdating = False
Sheets(1).Select
For i = 1 To Sheets.Count -2
Sheets(i).Select (False)
Next
End Sub
Cordialement
flyonets

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 17 Mai 2011

• #3

Re : Sélectionner plusieurs feuilles en VBA

Bonjour Chasse, flyonets44,
Une proposition par boucle (PierreJean avait fait quelque chose de beaucoup mieux, mais je n'arrive plus à le retrouver 😱)

VB:

Sub Del_Shts()
With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
For i = Sheets.Count - 2 To 1 Step -1
    Sheets(i).Delete
Next i
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
End Sub

Cordialement

 

Vote positif 0 Vote négatif

Chasse

XLDnaute Occasionnel

• 17 Mai 2011

• #4

Re : Sélectionner plusieurs feuilles en VBA

Bonjour flyonets

Merci beaucoup c'est tout à fait ce que je voulais

Mais poudrais-tu éclairer ma lanterne, a quoi serre le code

Code:

 Application.ScreenUpdating = False

Merci et bonne après-midi

 

Vote positif 0 Vote négatif

F

flyonets44

XLDnaute Occasionnel

• 17 Mai 2011

• #5

Re : Sélectionner plusieurs feuilles en VBA

Bonjour
à mettre systématiquement en début de macro si tu n'utilses pas les userform ou boite de dialogue
cà sert à désactiver la mise à jour de l'écran ce qui accélère considérablement la vitesse d'éxécution du code.
Cordialement
Flyonets

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 17 Mai 2011

• #6

Re : Sélectionner plusieurs feuilles en VBA

Salut,j'ose espérer que l'utilisateur ne déplacera pas les feuilles car le résultat pourrait être catastrophique
Il faut introduire un test excluant les feuilles à préserver,et pour cela utiliser la propriété CodeName de ces feuilles
ce qui aura l'avantage de ne pas avoir à modifier le code VBA,même si l'utilisateur ajoute des feuilles,les déplace ou renomme les onglets voir pour cela VBA Les bases [Résolu] - Forum des professionnels en informatique

 

Dernière édition: 17 Mai 2011

Vote positif 0 Vote négatif

Chasse

XLDnaute Occasionnel

• 17 Mai 2011

• #7

Re : Sélectionner plusieurs feuilles en VBA

Bonjour flyonets44, Efgé, kiki 29

flyonets44 merci pour tes explications.

Mais je n’arrive toujours pas à mettre la commande Delete

Bonjour Efgé

Ton code fonctionne super seulement je suis devant le fait accompli
Alors comme nous le fait remarqué kiki 29

si l'utilisateur ajoute des feuilles ou les déplaces.

Cliquez pour agrandir...

C’est pourquoi pour autant que j’ arrive a mettre la commande delete que je vais adopte le code de flyonets

Merci a tous et bonne fin de journée

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 17 Mai 2011

• #8

Re : Sélectionner plusieurs feuilles en VBA

Re à tous, Bonjour kiki29,
Le code que j'ai proposeé est sensiblement le même code que celui de flyonets44 (les Selects inutiles en moins et en tournant dans le bon sens...)
Quelques soit le code que tu choisira, le problème soulevé par kiki29 restera entier.
Si tu veux éviter ce piège il aut utiliser le nom des feuilles (si tes utilisateurs ne les rennoment pas🙄):
Un exemple

VB:

Sub Del_Shts_2()
With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
For Each F In Worksheets
    If F.Name <> "Toto" And F.Name <> "Tata" Then F.Delete
Next F
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
End Sub

Maintenant, on peux aussis s'appuyer, comme le préconise kiki29, sur le code name de la Feuille et là dans le lien proposé tu as tout ce qu'il te faut..
Bon courage
Cordialement

 

Vote positif 0 Vote négatif

Chasse

XLDnaute Occasionnel

• 17 Mai 2011

• #9

Re : Sélectionner plusieurs feuilles en VBA

Re.

Le problème est que j’aimerais voir les feuilles sélectionnées avant de confirmer la suppression.

Code:

Sub SelectFeuillesSauf()
Application.ScreenUpdating = False
Sheets(1).Select
For i = 1 To Sheets.Count - 2
Sheets(i).Select (False)
Next

ActiveWindow.SelectedSheets.Delete
End Sub

Si j’annule la suppression là je les vois

Encore un grand MERCI pour vos conseilles

 

Vote positif 0 Vote négatif