Problème tableau excel
Fermé
fouc90
-
9 août 2011 à 13:57
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 9 août 2011 à 15:26
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 - 9 août 2011 à 15:26
A voir également:
- Problème tableau excel
- Tableau croisé dynamique - Guide
- Trier tableau excel - Guide
- Tableau ascii - Guide
- Liste déroulante excel - Guide
- Tableau word - Guide
1 réponse
Morgothal
Messages postés
1236
Date d'inscription
jeudi 22 avril 2010
Statut
Membre
Dernière intervention
19 mai 2015
183
9 août 2011 à 14:24
9 août 2011 à 14:24
Bonjour,
Ce bout de code peut t'aider je pense :
Pour que ce soit encore mieux, il faudrait assigner cette macro à un bouton, comme décrit ici :
https://forums.commentcamarche.net/forum/affich-22832085-macrocommande#p22832560
Pour utiliser cette macro, dans Excel faire Alt+F11, ouvrir la feuille "ThisWorkbook" et copier le code dedans.
N'hésite pas à faire un retour si jamais ça ne marche pas !
A+
Ce bout de code peut t'aider je pense :
Sub graphique_dynamique() Dim ligne As Integer ligne = 1 'Le 2 correspond au numéro de la colonne des valeurs, donc à modifier selon ton tableau While Cells(ligne, 2) <> "" ligne = ligne + 1 Wend 'Il faut également modifier le nom Graphique 1 si ce n'est pas le cas pour ton classeur ActiveSheet.ChartObjects("Graphique 1").Activate 'Et enfin ici aussi, il faut changer le <A1:B> pour que ça corresponde à ton classeur (A1 est la case en haut a gauche de ton tableau, et B la colonne de tes valeurs) ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:B" & ligne - 1), PlotBy _ :=xlColumns 'Cette ligne est facultative, elle sert à enlever le focus du graphique (à adapter au nom de ton classeur) Windows("Classeur1").Activate End Sub
Pour que ce soit encore mieux, il faudrait assigner cette macro à un bouton, comme décrit ici :
https://forums.commentcamarche.net/forum/affich-22832085-macrocommande#p22832560
Pour utiliser cette macro, dans Excel faire Alt+F11, ouvrir la feuille "ThisWorkbook" et copier le code dedans.
N'hésite pas à faire un retour si jamais ça ne marche pas !
A+
9 août 2011 à 15:15
9 août 2011 à 15:26