Sujet Précédent Sujet Suivant

Selectionner plusiers feuille excel VBA

Fermé
Ldopa19 Messages postés 2 Date d'inscription dimanche 29 octobre 2017 Statut Membre Dernière intervention 29 octobre 2017 - Modifié le 29 oct. 2017 à 10:57
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 30 oct. 2017 à 14:49
Bonjour,
Je ne suit aps un expert en VBA loin s'en faut.
Je voudrais selectionner plusieurs feuilles dans un tableau excel. les feuilles 1 à 4 ne doivent pas êtres selectionnées, et le nombre total de feuilles peut varié, il est pour le moment de 39, soit 4 non sélectionnables et 35 sélectionnables.
Merci d'avance de votre aide.


A voir également:

3 réponses

Réponse 1 / 3
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié le 29 oct. 2017 à 11:03
Bonjour,

Sélectionner n'est pas une finalité en soi, sélectionner dans quel but ?

Cordialement
Patrice
0
Réponse 2 / 3
Ldopa19 Messages postés 2 Date d'inscription dimanche 29 octobre 2017 Statut Membre Dernière intervention 29 octobre 2017
29 oct. 2017 à 11:26
Bonjour Patrice
Très bonne question.
Il est vrai que je n'ai pas expliquer le pourquoi de la demande.
Je voudrais créer un fichier pour gérer des coureurs.
Chaque feuille contient les informations concernant chaque coureurs nom prénom etc. ...
Je voudrais pouvoir supprimer une ou plusieurs feuilles, quand en début de saison il y a des départs et des arrivées.
Merci d'avance pour ton aide.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
29 oct. 2017 à 11:59
Exemple pour supprimer plusieurs feuilles simultanément : 
Sub test()
Dim noms As Variant
  noms = Array("Feuil2", "Feuil3")
  Application.DisplayAlerts = False
  Worksheets(noms).Delete
  Application.DisplayAlerts = False
End Sub
0
Ldopa19 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
29 oct. 2017 à 19:51
Merci pour ton aide
La solution me parait bonne, mais comment faire pour changer de feuille sans entrer dans le code ,
Merci d'avance
A te relire.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
29 oct. 2017 à 20:30
Re,

Simplement en allant chercher le nom des feuilles là où il se trouve !!!

Par exemple : 
Sub test()
Dim plage As Range
Dim noms As Variant
  Set plage = ActiveSheet.Range("A1:A2")
  noms = Application.Transpose(plage.Value)
  Application.DisplayAlerts = False
  Worksheets(noms).Delete
  Application.DisplayAlerts = False
End Sub


Voici un excellent cours VBA pour débutants (gratuit) :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf

cdlt
Patrice
0
Ldopa19 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
30 oct. 2017 à 09:39
Bonjour Patrice
J'ai testé ta deuxième proposition, mais elle bloque à la ligne 7.
J'avoue que je patine complètement..
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776 > Ldopa19
30 oct. 2017 à 14:49
Ce n'est qu'un exemple, il faut mettre le nom des deux feuilles à supprimer en A1 et A2 de la feuille de calcul Excel
0
Réponse 3 / 3
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
29 oct. 2017 à 11:57
Bonjour,

Tu peux t'inspirer de ceci en vba en l'adaptant:

https://forums.commentcamarche.net/forum/affich-34915454-automatiser-les-sauvegardes-lorsque-je-renseigne-marche2017?page=2#37
0