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 :

Graph avec choix du Range des Données


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    89
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Janvier 2007
    Messages : 89
    Par défaut Graph avec choix du Range des Données
    Pour créer un graph en choississant quelles données on veut utiliser (Entre deux dates et en fonction d'un appareil). IE j'ai un Userform dans lequel je choisis deux dates entre lesquels je veux tracer le graph.

    J'ai utilisé cette solution :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Set r1 = Sheets("Data").Range(Cells(1, DebutX), Cells(1, FinX))
    Set r2 = Sheets("Data").Range(Cells(i, DebutX), Cells(i, FinX))
    Set ranges = Union(r1, r2)
     
    'Et ensuite plus bas dans le code :
     
    ActiveChart.SetSourceData Source:=ranges,
    Pour ce qui est du i je l'ai et ça fonctionne si je met des valeur à la place des DebutX et FinX (Numéro de la collone de la date de début et de Fin)

    Donc je recherche quelle fonction VBA peut me donnée le numéro de la collone des valeurs choisis !


    Ha oui aussi, pour remplir mes ComboBox, j'utilise ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Dim X As Integer
    Dim Y As Integer
     
        For X = 2 To 256
        cbo_debut.AddItem Sheets("Data").Cells(1, X)
        Next X
     
        For X = 2 To 256
        Cbo_device.AddItem Sheets("Data").Cells(X, 1)
        Next X
     
        For Y = 2 To 200
        cbo_fin.AddItem Sheets("Data").Cells(1, Y)
        Next Y
    Ca me laisse des gros blancs dans la combobox, Est-ce possible de supprimer les blancs ?

    Merci !!!
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Réponses: 4
    Dernier message: 20/04/2012, 11h50
  2. Réponses: 7
    Dernier message: 14/06/2010, 10h23
  3. Aide formulaire : choix avec apparition textaera + récup des données
    Par kikill dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 23/07/2009, 16h02
  4. [6.5] Graphe avec axe Z sur certaines données
    Par perfectdams dans le forum Débuter
    Réponses: 1
    Dernier message: 22/06/2009, 15h47
  5. Choix de réprésentation des données
    Par oclone dans le forum IHM
    Réponses: 12
    Dernier message: 22/02/2008, 16h07

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