Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 création Graphique

C

Chev

XLDnaute Nouveau
Bonjour a tous,

J'ai quelque problème lors l'exécution de mon programme VBA. Je suis entrain de créé une mini base de donné pour évaluer la duré de vie de support.
Pour ce faire j'ai créé un programme avec des userform et Combobox pour pouvoir ajouté de nouveau support avec un graphique montrant leur durée de vie restante.
Pour ce faire j'ai créé des tableaux et graphiques étalons que je viens, à laide d'une macro, copier et coller sur les ligne précédentes. Cependant, les formules rentrées dans le tableau sont forcement bloquées par des $ que ce soit en ligne ou en colonne et je ne peux pas les changer pour ne laisser que les colonnes bloquées:
=SERIE(;'durée de vie rack'!$B$21:$B$24;'durée de vie rack'!$D$21:$D$24;1)
Je n'arrive pas à modifier ce qui est rentré dans le graphique en automatique à l'aide d'une macro car pour ce faire il faut le nom du graphique venant d'être créé et je ne sais pas comment faire une macro adaptative avec ce nom changeant.

merci d'avance pour votre aide
 
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Chev,
Cette macro récupère le nom du graphique dans la feuille. ( il faut qu'il n'y ait qu'un seul graphique )
Puis change la plage à représenter.
VB: 
Sub Essai()
    ' Récupérer nom du graphique
    NomGraphique = Sheets("Feuil1").ChartObjects(1).Name
    ' Change la plage de la courbe
    ActiveSheet.ChartObjects(NomGraphique).Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Formula = "=SERIE(Feuil1!$C$2;Feuil1!$B$3:$B$5;Feuil1!$C$3:$C$6;1)"
    Range("A1").Select
End Sub
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Excel n'étant pas devin, vous avez la possibilité de trouver les noms de tous les graphiques avec :
VB: 
For N = 1 To Sheets("Feuil1").ChartObjects.Count
        MsgBox Sheets("Feuil1").ChartObjects(N).Name
Next N
Mais Excel ne pourra pas deviner de quel graphique vous parlez. Il vous faut trouver un discriminant pour le faire. ( comme le titre par ex si celui ci est un invariant )
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

H
  • Question
XL 2021 Couleurs des graphiques qui se remettent par défaut sur fichier partagé, c'est usant
Réponses
1
Affichages
338
Efgé
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
190
Dégé59
D
V
  • Question
XL 2016 Comment contrôler la taille des axes d'un graphique?
Réponses
3
Affichages
422
Dranreb
S
  • Résolu(e)
XL 2010 Bloquer les plages d'un graphique par rapport à un tableau
Réponses
8
Affichages
417
Sylvain89
S
C
  • Question
XL 2016 création d'un tableau de bord graphique à partir d'un tableau de suivi des formations du service
Réponses
2
Affichages
1 K
Deadpool_CC
L
  • Question
Microsoft 365 Comment récupérer dans une cellule l'équation de la courbe de tendance d'un graphique ?
Réponses
12
Affichages
2 K
vincent32
V
L
  • Question
Access Traduire une suite algorithmique en code VBA Access
Réponses
1
Affichages
446
michelr06
M
L
  • Question
Access Transformer un algorithme en code vba access
Réponses
0
Affichages
445
LimaMikeKilo
L
Y
  • Question
XL 2016 comptage +affichage en graphique
Réponses
1
Affichages
437
JHA
J
E
  • Question
Microsoft 365 Rendre disponible le contenu d'une cellule copiée pendant l'exécution d'une macro avant la fin de celle-ci !
Réponses
2
Affichages
560
Eric Dé
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…