XL 2013 Lier une zone de texte d’un graphique à une cellule d’une feuille de calcul

dg62

XLDnaute Barbatruc

• 26 Août 2017

• #2

Bonjour Minoslha, le Forum

Cette procédure fonctionne toujours mais il ne faut pas oublier de lier la zone de texte au graphique.
Sélectionner le graphique et la zone de texte et clic droit "Grouper".

@+

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 26 Août 2017

• #3

Bonjour,

Sinon, de cette façon, cela fonctionne (je ne l'avais jamais fait!) :

- sélectionner le graphique
- cliquer Disposition puis Insertion (ainsi, la zone est liée au graphe)
- dessiner la zone de texte et lire son nom (en haut à gauche)
- l'utiliser dans le code de feuille ci-après

Ici, le graphique s'appelle "Graphique 1" et la zone "ZoneText 1". Le texte à envoyer à la zone est en cellule D10

Code:

Sub Worksheet_Calculate()
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.Shapes.Range(Array("TextBox 1")).Select
  Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Range("D10").Text
End Sub

Cordialement

 

Vote positif 0 Vote négatif

M

minoslha

XLDnaute Nouveau

• 27 Août 2017

• #4

Bonsoir Mecano41
je suis preneur de votre méthode, mais j'ai un soucis je n'ai pas le menu "disposition" dans la boite flottante qui s'ouvre une fois sélectionné le graphique. en pièce jointe une copie d'écran que je j'ai une le graphe sélectionné. Dois je je faire qq chose de particulier pour obtenir ce menu "disposition" et ainsi accéder au menu insertion de la zone de texte lié a une cellule de la feuille de calcul.
pouvez vous m'aider ? je ne veux pas utiliser de macro dans ce cas.

 

Pièces jointes

• Capture.JPG

  142.6 KB · Affichages: 76

Dernière édition: 27 Août 2017

Vote positif 0 Vote négatif

M

minoslha

XLDnaute Nouveau

• 27 Août 2017

• #5

dg62 à dit:

Bonjour Minoslha, le Forum

Cette procédure fonctionne toujours mais il ne faut pas oublier de lier la zone de texte au graphique.
Sélectionner le graphique et la zone de texte et clic droit "Grouper".

@+

Cliquez pour agrandir...

bonsoir DG62,
cette solution ne me convient pas pcq je ne peux plus imprimer que la feuille graphique, sans modifier la zone d'impression. Pas pratique du tout.
ne peut on plus utiliser l'ancienne methode (la zone de texte liée à une cellule de la feuille de calcul)?

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 27 Août 2017

• #6

Bonsoir,

La méthode que j'ai indiquée n'est pas à faire par le boîte contextuelle mais par le ruban de l'appli.

A tout hasard, je mets le fichier exemple...

Cordialement

 

Pièces jointes

• Zone texte dans graphe 1.xlsm

  16.5 KB · Affichages: 40

Vote positif 0 Vote négatif

M

minoslha

XLDnaute Nouveau

• 27 Août 2017

• #7

Mecano41,
cette zone de texte n'est pas liée à la cellule D10. si je modifie le contenu de cette cellule, la zone de texte du graphique n'est pas affectée.
je cherche à lier de facon dynamique cette zone de texte a la cellule D10.
vois tu ce que je veux faire ?

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 27 Août 2017

• #8

C'est lié mais par Calculate. Tu peux aussi remplacer le code par celui-ci, qui se déclenche si modification de D10

Code:

Sub Worksheet_Calculate()
  ActiveSheet.ChartObjects("Graphique 1").Activate
  ActiveChart.Shapes.Range(Array("TextBox 1")).Select
  Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Range("D10").Text
End Sub

Cordialement

 

Vote positif 0 Vote négatif

M

minoslha

XLDnaute Nouveau

• 27 Août 2017

• #9

minoslha à dit:

Mecano41,
cette zone de texte n'est pas liée à la cellule D10. si je modifie le contenu de cette cellule, la zone de texte du graphique n'est pas affectée.
je cherche à lier de facon dynamique cette zone de texte a la cellule D10.
vois tu ce que je veux faire ?

Cliquez pour agrandir...

je viens de trouvé la solution.
une fois la zone de texte tracée dans le graphe, il faut cliquer dans la zone de reference, (là ou il est écrit habituellement la reference de la cellule active), puis cliquer dans la zone de formule, mettre le signe "=" puis selectionner la cellule dans la feuille de calcul. Ai je été assez clair ?
voici le resultat dans le fichier exemple.
merci

 

Pièces jointes

• Zone texte dans graphe 1.xlsm

  14.8 KB · Affichages: 47

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Août 2017

• #10

Bonsoir
C'est ce que j'indiquais "la procédure n'a pas changé " et pour que la boite texte navigue avec le graphique il faut regrouper (lier) graphique et zone de texte.

@+

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 27 Août 2017

• #11

En suivant la procédure de mon premier message, la boîte est directement liée (une fois créee, on ne peut pas la faire sortir du graphe).
Pour le reste, effectivement, cela peut se faire sans code VBA ...Je le note! Merci.

Cordialement

 

Vote positif 0 Vote négatif