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

Sélection cellules pour graphe

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ledaf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

ledaf

XLDnaute Junior
Bonjour,

Ci joint le code que j'utilise:

Code: 
Sheets("Feuil2").Select
i = 2
Do Until Cells(2, i) = Sheets("Tableau de bord").Range("F29")
    i = i + 1
Loop
Cells(2, i).Select
j = 2
Do Until Cells(2, j) = Sheets("Tableau de bord").Range("F31")
    j = j + 1
Loop
Cells(2, j).Select
Range(Cells(2, i), Cells(10, j)).Select

    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

Mon problème se situe à ce niveau:

Code: 
 ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

Il bloque sur les cellules que je sélectionne. La syntaxe n'est pas bonne?

En vous remerciant.
 
Trier par date Trier par votes
Re : Sélection cellules pour graphe

Bonjour le fil, ledaf

La syntaxe n'est pas bonne ?
Cliquez pour agrandir...
Si je ne m'abuse la ligne suivante
Code: 
Range(Cells(2, i), Cells(10, j)).Select
peut s'écrire
Code: 
Range(Cells(2, i).Value, Cells(10, j).Value).Select
Car Select est la méthode par défaut de l'objet Cells.

Or, en lisant le début de ton code, on a:

Cells(2, i).Value = Range("F29").Value
Cells(2, j).Value = Range("F31").Value

Et là, on ne comprend pas l'intérêt des boucles...😕

Pour le reste, il faudrait nous indiquer ce que tu veux faire.

A plus
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Les boucles me servent a trouver une place de cellule en fonction des données en cellules F29 et F31.
Pour ça pas de pb je sélectionne bien la plage de données qu'il me faut.
Le pb c'est pour le répercuter dans le graphique!

??
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Qu'est ce qui ne va pas dans la syntaxe suivante:

Code: 
ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Re, ledaf

Alors je pose la question différemment, en supposant que :

Sheets("Tableau de bord").Range("F29").Value =12
Sheets("Tableau de bord").Range("F29").Value =33


Quelle sont les valeurs attendues en :

Sheets("Feuil2").Cells(2, i) ?
Sheets("Feuil2").Cells(2, j) ?

A plus
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Et bien en cells(2,i) c'est F29 et en cells(2,j) c'est F31.
Mais je vois pas trop le rapport, car peut importe la plage de données, ce que je veux moi c'est que la plage que je sélectionne apparaisse dans mon graphe.
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Re,

Vois l'exemple ci-dessous
Code: 
ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("[B]D9[COLOR=Red]:[/COLOR]I10[/B]")
Tu remarqueras notamment, les 2 points ":" qui séparent les 2 valeurs...

A plus
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Oui ça je suis d'accord mais moi ce n'est pas une plage de données fixe, c'est pour cela que j'ai utilisé les variables i et j.
Donc cells(2,i) et cells(2,j) doivent apparaître dans ma syntaxe.
 
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Re

C'est faisable, mais sous condition.

Donnes moi une valeur possible pour chacune des 2 cells, que je te bricole un truc

A plus
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Je suis désolé ton site est bien fait mais je n'arrive pas à mettre en forme ce que je veux.

Voici comment est fait mon tableau:

Service/ janv-09/ févr-09 mars-09 ....
CEO/ 121,02/ 121,02/ 121,02/
LA/ 141,19/ 141,19/ 141,19/
SG/ 288,45/ 288,45/ 288,45/
RH/ 219,81/ 219,81/ 219,81/
DC/ 1086,95/ 1086,95/ 1086,95/
DO/ 1767,44/ 1767,44/ 1767,44/
DS/ 3185,24/ 3185,24/ 3185,24/
DF/ 663,02/ 663,02/ 663,02/
Total/ 7473,12/ 7473,12/ 7473,12/

dsl pour la mise en forme du tableau, j'ai séparé les colonnes par des /, j'espère que ce sera compréhensible.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Sélection cellules pour graphe

Bonsoir ledaf

Chose promise...

Ajoutes au début de ta procédure
Code: 
Dim ch As String
Avant Charts.Add, ajoutes la ligne suivante
Code: 
ch =Cells(2, i)[B].Address & ":" & [/B]Cells(2, j)[B].Address[/B]
Modifie la ligne suivante
Code: 
 ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range([COLOR=Red][B]ch[/B][/COLOR]),[FONT=monospace] PlotBy :=xlRows[/FONT]
Tu peux supprimer les 3 lignes suivantes
Code: 
Cells(2, i).Select
Cells(2, j).Select
Range(Cells(2, i), Cells(10, j)).Select
qui ne servent à rien...

A plus
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
911
tnion
T
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
618
VBA_dev_Anne_Marie
  • Question Question
XL 2021 Importer les données Access dans Excel
Réponses
2
Affichages
490
badraaliou4
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
517
Phil69970
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
827
AtTheOne
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
517
safranien
S
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
598
florian50470
F
F
  • Question Question
XL 2010 combobox dépendante les unes aux autres
Réponses
4
Affichages
741
ChTi160
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
D
  • Question Question
XL pour MAC somme dans macro
Réponses
5
Affichages
492
Delorme
D
S
  • Question Question
XL 2016 Code de transfert
Réponses
8
Affichages
1 K
Seddiki_adz
S
  • Résolu(e)
Microsoft 365 VBA ADODB RECSET : écrire le résultats dans deux cellules.
Réponses
2
Affichages
481
VBA_dev_Anne_Marie
V
Verdanto
Réponses
0
Affichages
389
verdanto
V
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
881
.jakob@gmail.com
J
D
  • Question Question
XL 2013 ASTUCE VBA supprimer contenu cellule sans mise en forme ni formule
Réponses
5
Affichages
2 K
job75
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
9 K
TooFatBoy
J
  • Question Question
XL 2016 Transformer un nouveau Tableau à double entrée en liste en VBA - impossibilité d'adapter le code
2
Réponses
23
Affichages
2 K
patricktoulon
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
833
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…