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 :

Récupérer dernière colonne pour actualiser une plage graphique [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Mars 2015
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA

    Informations forums :
    Inscription : Mars 2015
    Messages : 42
    Par défaut Récupérer dernière colonne pour actualiser une plage graphique
    Bonjour,

    Je cherche à actualiser une plage de données en récupérant la dernière colonne.
    J'ai copié mon code pour les lignes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Range ("Z2:Z" & DernLigne).Copy
     
    Derncol = Range("A1").End(xlToRight).Column
    Range("A2:" & Derncol & "2").Copy
    Sauf que le debogage s'ouvre et je ne vois pas d'où peut venir l'erreur, sûrement dans la manipulation des objets que je maîtrise encore mal..;

    Merci d'avance pour votre aide

    PS :Je crois que c'est un sujet récurrent mais en essayant tout les bouts de codes trouvés (surtout pour la dernière ligne) je n'y suis pas arrivé

  2. #2
    Membre Expert
    Homme Profil pro
    Chef de projet en SSII
    Inscrit en
    Novembre 2011
    Messages
    1 503
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Irlande

    Informations professionnelles :
    Activité : Chef de projet en SSII

    Informations forums :
    Inscription : Novembre 2011
    Messages : 1 503
    Par défaut
    Bonjour Gorillo,

    Ceci Derncol = Range("A1").End(xlToRight).Column te récupère le numéro de la dernière colonne.
    Ainsi, passe plutôt par la méthode "Cells" :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Derncol = Range("A1").End(xlToRight).Column
    Range(Cells(2, 1), Cells(2, Derncol)).Copy
    Au passage, la méthode .Copy peut toujours être évitée.
    Par exemple : Worksheets("MaFeuil").Range("A5:A6").Value = Worksheets("MonAutreFeuil").Range("B5:B6").Value.

    N'hésite pas à revenir vers moi !

    Cordialement,
    Kimy

  3. #3
    Membre averti
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Mars 2015
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA

    Informations forums :
    Inscription : Mars 2015
    Messages : 42
    Par défaut Merci
    En effet ça marche !

    j'avais pas pensé que ça me sortait le numéro !

  4. #4
    Membre averti
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Mars 2015
    Messages
    42
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA

    Informations forums :
    Inscription : Mars 2015
    Messages : 42
    Par défaut Pour info vu le titre de ma discussion
    Vu qu'à la base mon post c'était pour actualiser une plage graphique :
    Du coup en recoupant avec d'autres discussion j'ai fait ce code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Dim plage1 As Range
     
        Derncol = Range("A1").End(xlToRight).Column
     
        Set plage1 = Sheets("Graphiques").Range(Cells(1, 3), Cells(1, Derncol))
        Set plage2 = Sheets("Graphiques").Range(Cells(2, 3), Cells(2, Derncol))
     
     
        ActiveSheet.ChartObjects("Graphique 3").Activate
        ActiveChart.SeriesCollection(1).Select
        ActiveChart.SeriesCollection(1).XValues = plage1
        ActiveChart.SeriesCollection(1).Values = plage2
    Ca me permet de faire un bouton qui m'actualise mon graphique, easy !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 9
    Dernier message: 01/06/2015, 17h29
  2. [AC-2003] Macro pour ajouter des nouvelles colonnes pour actualiser une table
    Par Carole2810 dans le forum VBA Access
    Réponses: 1
    Dernier message: 16/03/2010, 10h08
  3. [VBA-E] pb pour copier une plage vers un autre repertoire
    Par alex.a dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 04/05/2007, 15h23
  4. un conseil pour démarrer une appli graphique SVP.
    Par dprevots dans le forum Langage
    Réponses: 6
    Dernier message: 22/01/2006, 17h49
  5. [RECHERCHE] un module pour developer une interface graphique
    Par romtrash dans le forum Eclipse Java
    Réponses: 5
    Dernier message: 10/03/2005, 15h46

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