IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Liste déroulante et boucle pour toutes les feuilles du classeur Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 6
    Par défaut Liste déroulante et boucle pour toutes les feuilles du classeur Excel
    Bonjour à tous,

    Je suis nouvelle sur le forum. Je suis débutante en VBA, et j'utilise excel et VBA pour une cartographie de risque.

    J'ai plusieurs feuilles excel contenant un tableau et un graphique.

    J'aimerai sur une page principal nommée "Essai", à l'aide d'une liste déroulante, afficher le tableau ainsi que le graphique de la page que je choisi avec ma liste déroulante.

    J'ai effectué ce programme:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Sub Macro2()
     
    ´Pour ma liste déroulante, la feuille A correspond au nombre 1
    If Range("C1") = 1 Then
     
        Worksheets("Essai").Range("A27:W60000").ClearContents
     
        If Worksheets("Essai").ChartObjects.Count > 0 Then
     
                Worksheets("Essai").ChartObjects.Delete
     
        Else
     
        Sheets("A").Select
        Range("A1:W8").Select
        Selection.Copy
     
        Sheets("Essai").Select
        Range("A27").Select
        ActiveSheet.Paste
     
        Sheets("A").Select
        ActiveSheet.ChartObjects("A").Activate
        ActiveChart.ChartArea.Copy
        Sheets("Essai").Select
        Range("E1").Select
        ActiveSheet.Paste
     
        End If
     
    End If

    Celui-ci fonctionne, cependant je fais face à plusieurs problèmes:
    J'ai 38 pages, donc je dois faire ce programme pour 38 pages mais j'aimerais effectuer une boucle pour me faciliter la tâche. Cependant, comme j'associe mes pages à une liste déroulante, je ne vois pas comment je peux faire une boucle pour chaque feuille.

    J'espère que j'ai été assez claire, difficile d'expliquer le cas de figure auquel j'ai affaire.

    Merci de vos réponses,

    Bonne soirée !

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    J'ai plusieurs feuilles excel contenant un tableau et un graphique.
    les tableaux ont la même configuration ou différent de feuille en feuille?
    Les graphiques sont identique ou personnalisés pour chaque feuille?

  3. #3
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 6
    Par défaut
    Les tableaux ont le même nombre de colonne mais pas le même nombre de lignes
    .
    Les graphiques reprennent tous les mêmes plages de cellules, mais biensur n’ont pas forcément le même nombre de lignes, ce qui ne me pose pas de problèmes pour les faire. Ce sont des nuages de points.

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    On peut le faire sans vba si ça te tente
    Nom : BibaDeskit2.gif
Affichages : 1078
Taille : 92,6 Ko

  5. #5
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 6
    Par défaut
    Merci je regarde ça demain au travail je pense que je me complique la vie !!

    Peux tu m envoyer le fichier Excel de ton exemple ?

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Non
    On pourra ensemble construire le tiens. Je donnerai des indices et à toi de faire l'effort:

    Commence par réaliser une liste de validation des données reprenant les noms de tes 38 feuilles.

  7. #7
    Membre à l'essai
    Femme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 31
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 6
    Par défaut
    Pas de soucis c’est déjà fait.

Discussions similaires

  1. Réponses: 2
    Dernier message: 16/01/2017, 15h56
  2. Macro excel pour toutes les feuilles du classeur
    Par duffie34 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 28/03/2013, 12h55
  3. [XL-2007] Operations tableaux et boucle sur toutes les feuilles
    Par undercorejay dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 24/01/2010, 23h16
  4. Une procédure pour toutes les feuilles
    Par docjo dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 23/10/2009, 07h32
  5. Réponses: 3
    Dernier message: 28/04/2009, 00h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo