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 :

Obtenir un objet Range utiliser par un objet Series


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Inscrit en
    Janvier 2010
    Messages
    252
    Détails du profil
    Informations forums :
    Inscription : Janvier 2010
    Messages : 252
    Par défaut Obtenir un objet Range utiliser par un objet Series
    Bonjour a tous,

    Je sais qu’en Excel 2003, lorsqu’on lit la propriete Values d’un objet Series, on obtient toujours un tableau. Pouvez-vous me dire si Excel 2007 fournit un moyen d’obtenir un objet Range utiliser par un objet Series.
    Merci d’avance.
    Bonero.

  2. #2
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 093
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 093
    Billets dans le blog
    20
    Par défaut
    Salut,
    Si j'ai bien compris tu veux récupérer le range à l'origine de la série ?

    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
    Sub test1()
        Dim maserie As Series
        Set maserie = Worksheets("Feuil1").ChartObjects(1).Chart. _
                      SeriesCollection(1)
        rangeSerie = maserie.Formula    ': "=SERIES(Feuil1!$G$1,,Feuil1!$G$2:$G$7,1)" : String
     
        Dim montab As Variant
        montab = Split(rangeSerie, ",", , vbTextCompare)
        debutRange = Replace(montab(0), "=SERIES(", "", , , vbTextCompare)
        finRange = montab(2)
     
        Dim Monrange As Range
        Set Monrange = Range(Range(debutRange), Range(finRange))
        Monrange.Select
        'Series
    End Sub
    Have a nice day. Oliv'
    Votre réponse est peut être dans mon blog !
    https://www.developpez.net/forums/blogs/191381-oliv-/

  3. #3
    Membre éclairé
    Inscrit en
    Janvier 2010
    Messages
    252
    Détails du profil
    Informations forums :
    Inscription : Janvier 2010
    Messages : 252
    Par défaut
    en effet, c'est ce que je cherche a obtenir et merci pour la reponse.
    donc,en gros, il n'existe pas de fonction propre a Excel 2007 qui joue le meme role.

  4. #4
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    Mars 2006
    Messages
    4 093
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : Mars 2006
    Messages : 4 093
    Billets dans le blog
    20
    Par défaut
    Je n ai pas répondu à ta question mais plutôt à ton besoin, en fait je ne sais pas peut être qu 'une fonction getRangeFromSeries peut exister
    Have a nice day. Oliv'
    Votre réponse est peut être dans mon blog !
    https://www.developpez.net/forums/blogs/191381-oliv-/

Discussions similaires

  1. [WD17] Obtenir l'adresse IP utilisée par la connexion au SGBD
    Par droliprane dans le forum WinDev
    Réponses: 4
    Dernier message: 12/03/2014, 15h37
  2. Réponses: 15
    Dernier message: 10/03/2014, 19h40
  3. Réponses: 1
    Dernier message: 07/03/2008, 16h11
  4. Rendre un objet utilisable par toutes les servlets
    Par peyo_le_fou dans le forum Servlets/JSP
    Réponses: 4
    Dernier message: 03/07/2007, 16h03
  5. [VB6] Liberer la memoire utilisée par une variable Objet
    Par ProgElecT dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 25/08/2006, 19h17

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