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

Données source faisant référence à une cellule pour le chemin

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nat54
  • 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

nat54

XLDnaute Barbatruc
Bonjour,

Pas simple de trouver un titre explicite ..

Mon problème :
- 1 fichier TdB_chiffres, des onglets extractions puis 1 onglet par pôle soit 31 onglets pour les pôles
- 1 fichier TdB_graphes où je veux obtenir un onglet par pôle
Chaque pôle est présenté par 16 graphes !
J'ai fait le travail une fois pour un pôle
Résultat satisfaisant

or si l'on compte il me reste 16*30 soit 480 graphes 😱😱

J'ai pensé à une chose : peut-on dans données source du graphique faire référence à une cellule de l'onglet en question

exemple
je suis dans le fichier TdB_graphique sur l'onglet concernant le pôle A
données source va dans fichier TdB_chiffres onglet pôle A comme suit
='I:\....\[TdB_chiffres]Pôle_A'!a1:a2

mon idée serait de mettre dans une cellule du fichier tdb_graphes
(une cellule par onglet) le chemin présenté ci-dessus

ainsi j'aurais seulement une cellule par onglet à modifier !!

est-ce faisable ?

Merci !

Nat
 
Trier par date Trier par votes
Re : Données source faisant référence à une cellule pour le chemin

Re
Je crois que c'est Pascal (pas notre moderateur préféré mais un plus ancien) qui a dit
"Ce qui se conçoit bien s'enonce clairement et les mots pour le dire viennent aisement"

On va donc tenter d'enoncer clairement:
pole est non seulement une variable mais aussi un parametre
C'est le parametre de la macro copie
Sub copie (pole as string) signifie que l'on a créé la macro avec le contenu d'une variable nommée pole dans le corps de la macro
Call copie(Range("A" & n)) signifie que pole vaudra Range("A" & n) lors de l'execution
On dit alors que Range("A" & n) est passé en parametre a la macro copie
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

en mettant les fichiers au bon endroit
ca me met 'nombre de polices maximum atteintes dans ce classeur'

faut que réduise les noms de mes répertoires ?
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

j'ai fait une tite modif du code

Code: 
Sub copie(pole As String)
Application.ScreenUpdating = False
Sheets.Add.Name = "Graphs_" & pole 'ajoute un onglet qui est nommé graphes_pole + nomde la variable pole
Sheets("onglet_modèle").Cells.Copy Destination:=ActiveSheet.Range("A1") 'copier l'onglet-modèle graphs_pole_A
ActiveWindow.Zoom = 60
ActiveWindow.DisplayGridlines = False
For m = 1 To Sheets("Graphs_" & pole).Shapes.Count ' compter le nombre de formes-graphiques
 Workbooks("TdB_graphes.xls").Activate 'aller sur le fichier TdB Graphes
 Sheets("Graphs_" & pole).Shapes(m).Select 'sélectionner les graphiques de l'onglet que l'on souhaite créer
 Set ch = ActiveChart
   For n = 1 To ch.SeriesCollection.Count 'compter le nombre de série
   Workbooks("TdB_chiffres.xls").Activate
   Sheets("pole_" & pole).Select
  ch.SeriesCollection(n).Formula = Replace(ch.SeriesCollection(n).Formula, [COLOR=red]"pole_4000",[/COLOR] "pole_" & pole) 'remplacer dans les formules de série des graphs pole_A par le pole en question
   Next n 'on boucle sur le nombre de série
Next m 'on boucle sur le nombre de graphiques
Workbooks("TdB_graphes.xls").Activate 'on se replace sur le fichier TdB graphes
Application.ScreenUpdating = True
End Sub

ce serait à cause de ça ??
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

Re

Je ne pense pas que la modif soit a l'origine du bug annoncé
Par contre la manipulation de 31x20 tableaux differents peut effectivement entrainer un exces du nombre de polices
Je suggere d'effectuer la macro sur 2 fichiers (pour 16 feuilles d'une part et 15 d'autre part) puis de tenter la reunion des 2 fichiers
Autre possibilité: Unifier les polices des feuilles de TdB_chiffres.xls
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

Re

Arf !!!

Dans ce cas ,je suis perplexe
J' ai vaguement entendu parler de l'erreur que tu decris mais je ne l'ai jamais experimentée
Je fais des recherches mais ne t'attend pas a des resultats rapides: fais des tests de ton côté
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

bonjour,

ca m'énerve LOL

est ce que le fait que mes poles soient des chiffres peut poser problème ?

au lieu de pole_A, pole_4000
que je dois remplacer par pole_3098
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

bonjour

l'image peut être agrandie en cliquant dessus

la ligne qui bug c'est

Code: 
Sub copie(pole As String)
Application.ScreenUpdating = False
Sheets.Add.Name = "Graphs_" & pole 'ajoute un onglet qui est nommé graphes_pole + nomde la variable pole
Sheets("onglet_modèle").Cells.Copy Destination:=ActiveSheet.Range("A1") 'copier l'onglet-modèle graphs_pole_A
ActiveWindow.Zoom = 60
ActiveWindow.DisplayGridlines = False
For m = 1 To Sheets("Graphs_" & pole).Shapes.Count ' compter le nombre de formes-graphiques
 Workbooks("TdB_graphes.xls").Activate 'aller sur le fichier TdB Graphes
 Sheets("Graphs_" & pole).Shapes(m).Select 'sélectionner les graphiques de l'onglet que l'on souhaite créer
 Set ch = ActiveChart
   For n = 1 To ch.SeriesCollection.Count 'compter le nombre de série
   Workbooks("TdB_chiffres.xls").Activate
   Sheets("pole_" & pole).Select
   [COLOR=red]ch.SeriesCollection(n).Formula = Replace(ch.SeriesCollection(n).Formula, "pole_4000", "pole_" & pole)[/COLOR] 'remplacer dans les formules de série des graphs pole_A par le pole en question
   Next n 'on boucle sur le nombre de série
Next m 'on boucle sur le nombre de graphiques
Workbooks("TdB_graphes.xls").Activate 'on se replace sur le fichier TdB graphes
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

Re

Ais-je bien compris
Tes graphs a copier sont sur la feuille onglet_modèle
Les series font reference a pole_4000 et tu veux qu'elles fassent reference a pole_3098
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

de tête (car je ne suis pas au boulot le samedi)

oui onglet_modèle c'était celui que tu avais nommé pole_A
(j'ai renommé car il faut que ça soit explicite pour d'autres utilisateurs)

oui là ça fait référence au pole_4000
et mes autres poles sont pole_3980, pole_3580, pole_4200 ...
 
Vote positif 0 Vote négatif
Re : Données source faisant référence à une cellule pour le chemin

Re

En fonction de ta version d'Excel il n'est pas impossible que le problème vienne du fait que tu utilises des chiffres plutot que des lettres (chez moi cela fonctionne aussi bien avec un chiffre q'un string)
Essaies de les mettre en parametre sous la forme "3980"
Par ailleurs teste la modification manuelle des series dans l'onglet modele (je rappelle que le fichier contenant la feuille Pole_3980 doit etre ouvert)
 
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

  • Résolu(e)
Power Query importer fichier CSV, dont le chemin est dans une cellule Excel
Réponses
11
Affichages
211
oguruma
A
  • Question Question
Power Query Variabiliser automatiquement une source de données PQ selon l’utilisateur
Réponses
3
Affichages
703
chris
X
  • Question Question
XL 2021 Génération word à partir d'excel en gardant le format source
Réponses
8
Affichages
189
xlym
X
D
  • Question Question
Microsoft 365 Récupérer une valeur présente dans un autre fichier dont le chemin et le nom est présent dans une cellule
Réponses
6
Affichages
183
wDog66
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
830
loloboc
L
P
  • Question Question
XL 2021 Zone de texte incomplète faisant référence à une cellule
Réponses
2
Affichages
532
gbinforme
G
  • Question Question
Microsoft 365 VBA : copier / coller d'un onglet à l'autre en fonction d'une valeur
Réponses
8
Affichages
704
Lisette
C
  • Résolu(e)
XL 2021 Duplication d'onglets dans un nouveau fichier et enregistrement selon une cellule donnée
Réponses
7
Affichages
513
wDog66
Z
  • Question Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
597
zedude
Z
R
  • Question Question
Microsoft 365 Recuperation de données entre les onglets
Réponses
3
Affichages
615
djidji59430
  • Résolu(e)
Microsoft 365 Créer une base de données à partir de 2 onglets
Réponses
3
Affichages
601
WTF
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
294
JJ69
J
C
  • Résolu(e)
Microsoft 365 Duplication à partir d'une base de données du contenu d'un onglet dans d'autres onglets
Réponses
2
Affichages
688
Céline49
C
  • Résolu(e)
XL 2013 Nommez tous les onglets d'un classeur par rapport à une même cellule dans chaque onglet
Réponses
5
Affichages
686
mapomme
  • Question Question
Power Query Source d'une requête dans le gestionnaire de noms
Réponses
5
Affichages
1 K
job75
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
597
GClaire
G
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
731
JHA
J
C
  • Question Question
XL 2016 rapatrier des informations en "scannant" les onglets d'un fichier excel vers les cellules d'un autre onglet
Réponses
6
Affichages
772
job75
  • Question Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
894
100kibou
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
789
elgringo123456
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…