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 :

Macro pour créer des courbes


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2013
    Messages
    84
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Février 2013
    Messages : 84
    Points : 48
    Points
    48
    Par défaut Macro pour créer des courbes
    Bonjour,

    J'ai plusieurs données et je veux créer une macro pour obtenir les courbes correspondantes. J'utilise les macros pour la première fois (VBA aussi).
    D'abord je voudrais savoir comment faire si on veut initialiser un tableau qui contient les coordonnées des cases excel c'est à dire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    Dim T(26) As String
    T=[H,L,A,CE,A..]
    Ainsi la case (H,1) = case (T(0),1)

    Autrement dit la macro que j'ai crée est la suivante
    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 my_tuto_2()
    '
    ' my_tuto_2 Macro
    '
    ' Keyboard Shortcut: Ctrl+f
    '
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.ChartType = xlLine
        ActiveWindow.SmallScroll Down:=-18
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).Name = "=sheet!$C$1"
        ActiveChart.SeriesCollection(1).Values = "=sheet!$C$2:$C$29"
        ActiveChart.SeriesCollection(1).XValues = "=sheet!$A$1"
        ActiveChart.SeriesCollection(1).XValues = "=sheet!$A$2:$A$29"
    End Sub
    Et je voudrais la modifier pour utiliser une liste de mesures

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Points : 5 901
    Points
    5 901
    Par défaut
    Bonjour,

    Tu pourrais essayer ainsi pour créer ton tableau
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim T As Variant
    T= Array("H","L","A","CE","A")

Discussions similaires

  1. [WD-2010] Macro pour créer des fichiers Word à partir d'un fichier "maître"
    Par VinceVBA dans le forum VBA Word
    Réponses: 2
    Dernier message: 22/09/2013, 09h52
  2. [XL-2007] Créer une macro pour supprimer des onglets dans un autre classeur
    Par nicosd54 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 08/03/2011, 10h01
  3. Cherche tuto pour créer des macros
    Par wyzer dans le forum Lotus Notes
    Réponses: 0
    Dernier message: 24/02/2011, 16h36
  4. Créer une macro pour vérifier des prix
    Par lolonico dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 17/04/2009, 10h54
  5. macro pour créer des graphiques
    Par Sebastien_INR59 dans le forum Access
    Réponses: 1
    Dernier message: 07/06/2006, 09h44

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