Selectionner plusiers feuille excel VBA

Ldopa19 Messages postés 2 Statut Membre -  
Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   -
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.

3 réponses

  1.
    Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Bonjour,

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

    Cordialement
    Patrice
    0
  2. Ldopa19 Messages postés 2 Statut Membre
     
    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
    1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      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
      1. Ldopa19 > Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention  
         
        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
    2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
       
      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
      1. Ldopa19 > Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention  
         
        Bonjour Patrice
        J'ai testé ta deuxième proposition, mais elle bloque à la ligne 7.
        J'avoue que je patine complètement..
        0
      2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783 > Ldopa19
         
        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