Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news: e678fbbb-ced0-44c7 -a1ca-37aa22568...@u65g2000hsc.googlegroups.com...
On 24 oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> <gter...@gmail.com> a écrit dans le message de news: 70aebb2a-4679-4e 91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" <garnote3R...@videotron.ca> a écrit dans le message de ne ws: Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > <gter...@gmail.com> a écrit dans le message de news:
> > > e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com.. .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news: e678fbbb-ced0-44c7 -a1ca-37aa22568...@u65g2000hsc.googlegroups.com...
On 24 oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> <gter...@gmail.com> a écrit dans le message de news: 70aebb2a-4679-4e 91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" <garnote3R...@videotron.ca> a écrit dans le message de ne ws: Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > <gter...@gmail.com> a écrit dans le message de news:
> > > e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com.. .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Merci de ton aide Serge.
Désolé de poster en bas de fil, il me semblait bien que l'inverse
était plus pratique; je poste depuis google groups et ce dernier place
le curseur en bas du fil par défaut. Je me disais qu'il y avait bien
une raison.. :)
On 24 oct, 16:07, "garnote" wrote:Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news:
On 24
oct, 15:03, "garnote" wrote:Bonjour,Fais un clic sur une étiquette. Toutes tes étiquettes
seront alors sélectionnées.
Dans la barre d'outils "Mise en forme", choisis la
taille et la couleur que tu désires.
Bonne journée,Sergea écrit dans le message de news:
Excellent !!!!Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
charitables !!
Je cherche dans mon DD des photos sympas :)
Et une toute mini dernière question pour finir : j'aimerais modifier
la couleur et la taille police de l'étiquette ainsi créée (blanc et
13).
Mais il faut croire que je ne suis vraiment pas doué, toutes mes
tentatives se terminent par une erreur...
Je suis vraiment désolé d'être un boulet !
Merci pour tout.On 23 oct, 19:28, "garnote" wrote:Et pour enlever l'étiquette de la ligne 2 :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If i = 2 Then
.Points(i).DataLabel.Text = ""
Else
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
End If
Next i
End With
End SubSerge"garnote" a écrit dans le message de news:Bonsoir,Une variante de la macro de Daniel :
En supposant que ton graphique se nomme "Graphique 3",
tu sélectionnes tes quatre colonnes et tu appelles cette macro :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
Next i
End With
End SubSergea écrit dans le message de news:
Bonjour à tous,Je suis face à un problème plutôt complexe concernant les graphiques
d'excel (office 2007).Je vais essayer d'être le plus clair possible, c'est un peu difficile
à expliquer.- Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
- La valeur de ces secteurs est en pourcentage.
(jusqu'ici ça va :)J'aimerais faire entrer en compte une deuxième valeur dans ce
graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
de l'indice. En gros, ca donne :
A 12% ind.122
B 16% ind. 98
C 18% ind. 112
D 19% ind. 56
E 23% ind. 75Seules les deux premières colonnes agissent sur le graphique. Mon
problème est que j'aimerais faire apparaître l'indice sur le
graphique, à coté du pourcentage, si et seulement si il est supérieur
à 110.Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
distinctes, je n'ai pas le choix.
J'ai mis une image en ligne pour que ca soit plus compréhensible :
http://kursus.free.fr/exemple.jpg
En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
l'intérieur du graphique, ce qui n'est pas possible à faire en passant
par les options il me semble.J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
résultat.
J'ai conscience que c'est un travail assez complexe, donc je ne
vexerai pas si personne ne se penche dessus :)
Merci d'avance cependant à celui ou ceux qui pourront m'aider.
Merci
grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Merci de ton aide Serge.
Désolé de poster en bas de fil, il me semblait bien que l'inverse
était plus pratique; je poste depuis google groups et ce dernier place
le curseur en bas du fil par défaut. Je me disais qu'il y avait bien
une raison.. :)
On 24 oct, 16:07, "garnote" <garnote3R...@videotron.ca> wrote:
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news:
e678fbbb-ced0-44c7-a1ca-37aa22568...@u65g2000hsc.googlegroups.com... On 24
oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
Bonjour,
Fais un clic sur une étiquette. Toutes tes étiquettes
seront alors sélectionnées.
Dans la barre d'outils "Mise en forme", choisis la
taille et la couleur que tu désires.
Bonne journée,
Serge
<gter...@gmail.com> a écrit dans le message de news:
70aebb2a-4679-4e91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
Excellent !!!!
Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
charitables !!
Je cherche dans mon DD des photos sympas :)
Et une toute mini dernière question pour finir : j'aimerais modifier
la couleur et la taille police de l'étiquette ainsi créée (blanc et
13).
Mais il faut croire que je ne suis vraiment pas doué, toutes mes
tentatives se terminent par une erreur...
Je suis vraiment désolé d'être un boulet !
Merci pour tout.
On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
Et pour enlever l'étiquette de la ligne 2 :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If i = 2 Then
.Points(i).DataLabel.Text = ""
Else
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
End If
Next i
End With
End Sub
Serge
"garnote" <garnote3R...@videotron.ca> a écrit dans le message de news:
Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Une variante de la macro de Daniel :
En supposant que ton graphique se nomme "Graphique 3",
tu sélectionnes tes quatre colonnes et tu appelles cette macro :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
Next i
End With
End Sub
Serge
<gter...@gmail.com> a écrit dans le message de news:
e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com...
Bonjour à tous,
Je suis face à un problème plutôt complexe concernant les graphiques
d'excel (office 2007).
Je vais essayer d'être le plus clair possible, c'est un peu difficile
à expliquer.
- Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
- La valeur de ces secteurs est en pourcentage.
(jusqu'ici ça va :)
J'aimerais faire entrer en compte une deuxième valeur dans ce
graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
de l'indice. En gros, ca donne :
A 12% ind.122
B 16% ind. 98
C 18% ind. 112
D 19% ind. 56
E 23% ind. 75
Seules les deux premières colonnes agissent sur le graphique. Mon
problème est que j'aimerais faire apparaître l'indice sur le
graphique, à coté du pourcentage, si et seulement si il est supérieur
à 110.
Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
distinctes, je n'ai pas le choix.
J'ai mis une image en ligne pour que ca soit plus compréhensible :
http://kursus.free.fr/exemple.jpg
En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
l'intérieur du graphique, ce qui n'est pas possible à faire en passant
par les options il me semble.
J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
résultat.
J'ai conscience que c'est un travail assez complexe, donc je ne
vexerai pas si personne ne se penche dessus :)
Merci d'avance cependant à celui ou ceux qui pourront m'aider.
Merci
grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Merci de ton aide Serge.
Désolé de poster en bas de fil, il me semblait bien que l'inverse
était plus pratique; je poste depuis google groups et ce dernier place
le curseur en bas du fil par défaut. Je me disais qu'il y avait bien
une raison.. :)
On 24 oct, 16:07, "garnote" wrote:Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news:
On 24
oct, 15:03, "garnote" wrote:Bonjour,Fais un clic sur une étiquette. Toutes tes étiquettes
seront alors sélectionnées.
Dans la barre d'outils "Mise en forme", choisis la
taille et la couleur que tu désires.
Bonne journée,Sergea écrit dans le message de news:
Excellent !!!!Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
charitables !!
Je cherche dans mon DD des photos sympas :)
Et une toute mini dernière question pour finir : j'aimerais modifier
la couleur et la taille police de l'étiquette ainsi créée (blanc et
13).
Mais il faut croire que je ne suis vraiment pas doué, toutes mes
tentatives se terminent par une erreur...
Je suis vraiment désolé d'être un boulet !
Merci pour tout.On 23 oct, 19:28, "garnote" wrote:Et pour enlever l'étiquette de la ligne 2 :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If i = 2 Then
.Points(i).DataLabel.Text = ""
Else
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
End If
Next i
End With
End SubSerge"garnote" a écrit dans le message de news:Bonsoir,Une variante de la macro de Daniel :
En supposant que ton graphique se nomme "Graphique 3",
tu sélectionnes tes quatre colonnes et tu appelles cette macro :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
Next i
End With
End SubSergea écrit dans le message de news:
Bonjour à tous,Je suis face à un problème plutôt complexe concernant les graphiques
d'excel (office 2007).Je vais essayer d'être le plus clair possible, c'est un peu difficile
à expliquer.- Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
- La valeur de ces secteurs est en pourcentage.
(jusqu'ici ça va :)J'aimerais faire entrer en compte une deuxième valeur dans ce
graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
de l'indice. En gros, ca donne :
A 12% ind.122
B 16% ind. 98
C 18% ind. 112
D 19% ind. 56
E 23% ind. 75Seules les deux premières colonnes agissent sur le graphique. Mon
problème est que j'aimerais faire apparaître l'indice sur le
graphique, à coté du pourcentage, si et seulement si il est supérieur
à 110.Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
distinctes, je n'ai pas le choix.
J'ai mis une image en ligne pour que ca soit plus compréhensible :
http://kursus.free.fr/exemple.jpg
En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
l'intérieur du graphique, ce qui n'est pas possible à faire en passant
par les options il me semble.J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
résultat.
J'ai conscience que c'est un travail assez complexe, donc je ne
vexerai pas si personne ne se penche dessus :)
Merci d'avance cependant à celui ou ceux qui pourront m'aider.
Merci
grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
On 24 oct, 16:07, "garnote" wrote:Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news:
On 24
oct, 15:03, "garnote" wrote:Bonjour,Fais un clic sur une étiquette. Toutes tes étiquettes
seront alors sélectionnées.
Dans la barre d'outils "Mise en forme", choisis la
taille et la couleur que tu désires.
Bonne journée,Sergea écrit dans le message de news:
Excellent !!!!Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
charitables !!
Je cherche dans mon DD des photos sympas :)
Et une toute mini dernière question pour finir : j'aimerais modifier
la couleur et la taille police de l'étiquette ainsi créée (blanc et
13).
Mais il faut croire que je ne suis vraiment pas doué, toutes mes
tentatives se terminent par une erreur...
Je suis vraiment désolé d'être un boulet !
Merci pour tout.On 23 oct, 19:28, "garnote" wrote:Et pour enlever l'étiquette de la ligne 2 :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If i = 2 Then
.Points(i).DataLabel.Text = ""
Else
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
End If
Next i
End With
End SubSerge"garnote" a écrit dans le message de news:Bonsoir,Une variante de la macro de Daniel :
En supposant que ton graphique se nomme "Graphique 3",
tu sélectionnes tes quatre colonnes et tu appelles cette macro :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
Next i
End With
End SubSergea écrit dans le message de news:
Bonjour à tous,Je suis face à un problème plutôt complexe concernant les graphiques
d'excel (office 2007).Je vais essayer d'être le plus clair possible, c'est un peu difficile
à expliquer.- Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
- La valeur de ces secteurs est en pourcentage.
(jusqu'ici ça va :)J'aimerais faire entrer en compte une deuxième valeur dans ce
graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
de l'indice. En gros, ca donne :
A 12% ind.122
B 16% ind. 98
C 18% ind. 112
D 19% ind. 56
E 23% ind. 75Seules les deux premières colonnes agissent sur le graphique. Mon
problème est que j'aimerais faire apparaître l'indice sur le
graphique, à coté du pourcentage, si et seulement si il est supérieur
à 110.Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
distinctes, je n'ai pas le choix.
J'ai mis une image en ligne pour que ca soit plus compréhensible :
http://kursus.free.fr/exemple.jpg
En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
l'intérieur du graphique, ce qui n'est pas possible à faire en passant
par les options il me semble.J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
résultat.
J'ai conscience que c'est un travail assez complexe, donc je ne
vexerai pas si personne ne se penche dessus :)
Merci d'avance cependant à celui ou ceux qui pourront m'aider.
Merci
grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Ok c'est excellent ca fonctionne.
Merci pour votre aide précieuse.
Autre question : Je cherche à tronquer les chiffres affichés dans les
datalabels, à savoir pas de chiffres après la virgule.
Je tente .DataLabel.Format, mais je ne trouve pas la variable à
rajouter.
Auriez-vous une idée ?
Merci
On 24 oct, 16:07, "garnote" <garnote3R...@videotron.ca> wrote:
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news:
e678fbbb-ced0-44c7-a1ca-37aa22568...@u65g2000hsc.googlegroups.com... On 24
oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
Bonjour,
Fais un clic sur une étiquette. Toutes tes étiquettes
seront alors sélectionnées.
Dans la barre d'outils "Mise en forme", choisis la
taille et la couleur que tu désires.
Bonne journée,
Serge
<gter...@gmail.com> a écrit dans le message de news:
70aebb2a-4679-4e91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
Excellent !!!!
Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
charitables !!
Je cherche dans mon DD des photos sympas :)
Et une toute mini dernière question pour finir : j'aimerais modifier
la couleur et la taille police de l'étiquette ainsi créée (blanc et
13).
Mais il faut croire que je ne suis vraiment pas doué, toutes mes
tentatives se terminent par une erreur...
Je suis vraiment désolé d'être un boulet !
Merci pour tout.
On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
Et pour enlever l'étiquette de la ligne 2 :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If i = 2 Then
.Points(i).DataLabel.Text = ""
Else
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
End If
Next i
End With
End Sub
Serge
"garnote" <garnote3R...@videotron.ca> a écrit dans le message de news:
Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
Bonsoir,
Une variante de la macro de Daniel :
En supposant que ton graphique se nomme "Graphique 3",
tu sélectionnes tes quatre colonnes et tu appelles cette macro :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
Next i
End With
End Sub
Serge
<gter...@gmail.com> a écrit dans le message de news:
e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com...
Bonjour à tous,
Je suis face à un problème plutôt complexe concernant les graphiques
d'excel (office 2007).
Je vais essayer d'être le plus clair possible, c'est un peu difficile
à expliquer.
- Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
- La valeur de ces secteurs est en pourcentage.
(jusqu'ici ça va :)
J'aimerais faire entrer en compte une deuxième valeur dans ce
graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
de l'indice. En gros, ca donne :
A 12% ind.122
B 16% ind. 98
C 18% ind. 112
D 19% ind. 56
E 23% ind. 75
Seules les deux premières colonnes agissent sur le graphique. Mon
problème est que j'aimerais faire apparaître l'indice sur le
graphique, à coté du pourcentage, si et seulement si il est supérieur
à 110.
Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
distinctes, je n'ai pas le choix.
J'ai mis une image en ligne pour que ca soit plus compréhensible :
http://kursus.free.fr/exemple.jpg
En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
l'intérieur du graphique, ce qui n'est pas possible à faire en passant
par les options il me semble.
J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
résultat.
J'ai conscience que c'est un travail assez complexe, donc je ne
vexerai pas si personne ne se penche dessus :)
Merci d'avance cependant à celui ou ceux qui pourront m'aider.
Merci
grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Ok c'est excellent ca fonctionne.
Merci pour votre aide précieuse.
Autre question : Je cherche à tronquer les chiffres affichés dans les
datalabels, à savoir pas de chiffres après la virgule.
Je tente .DataLabel.Format, mais je ne trouve pas la variable à
rajouter.
Auriez-vous une idée ?
Merci
On 24 oct, 16:07, "garnote" wrote:Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news:
On 24
oct, 15:03, "garnote" wrote:Bonjour,Fais un clic sur une étiquette. Toutes tes étiquettes
seront alors sélectionnées.
Dans la barre d'outils "Mise en forme", choisis la
taille et la couleur que tu désires.
Bonne journée,Sergea écrit dans le message de news:
Excellent !!!!Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
charitables !!
Je cherche dans mon DD des photos sympas :)
Et une toute mini dernière question pour finir : j'aimerais modifier
la couleur et la taille police de l'étiquette ainsi créée (blanc et
13).
Mais il faut croire que je ne suis vraiment pas doué, toutes mes
tentatives se terminent par une erreur...
Je suis vraiment désolé d'être un boulet !
Merci pour tout.On 23 oct, 19:28, "garnote" wrote:Et pour enlever l'étiquette de la ligne 2 :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If i = 2 Then
.Points(i).DataLabel.Text = ""
Else
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
End If
Next i
End With
End SubSerge"garnote" a écrit dans le message de news:Bonsoir,Une variante de la macro de Daniel :
En supposant que ton graphique se nomme "Graphique 3",
tu sélectionnes tes quatre colonnes et tu appelles cette macro :
Sub Etiquettes1()
Dim Pt As Point
Dim s As Range
Set s = Selection
With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
For i = 1 To .Points.Count
.Points(i).ApplyDataLabels
If s(i, 4) > 110 Then
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
& " " & s(i, 3) & " " & s(i, 4)
Else
.Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
End If
Next i
End With
End SubSergea écrit dans le message de news:
Bonjour à tous,Je suis face à un problème plutôt complexe concernant les graphiques
d'excel (office 2007).Je vais essayer d'être le plus clair possible, c'est un peu difficile
à expliquer.- Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
- La valeur de ces secteurs est en pourcentage.
(jusqu'ici ça va :)J'aimerais faire entrer en compte une deuxième valeur dans ce
graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
de l'indice. En gros, ca donne :
A 12% ind.122
B 16% ind. 98
C 18% ind. 112
D 19% ind. 56
E 23% ind. 75Seules les deux premières colonnes agissent sur le graphique. Mon
problème est que j'aimerais faire apparaître l'indice sur le
graphique, à coté du pourcentage, si et seulement si il est supérieur
à 110.Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
distinctes, je n'ai pas le choix.
J'ai mis une image en ligne pour que ca soit plus compréhensible :
http://kursus.free.fr/exemple.jpg
En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
l'intérieur du graphique, ce qui n'est pas possible à faire en passant
par les options il me semble.J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
résultat.
J'ai conscience que c'est un travail assez complexe, donc je ne
vexerai pas si personne ne se penche dessus :)
Merci d'avance cependant à celui ou ceux qui pourront m'aider.
Merci
grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Ok c'est excellent ca fonctionne.
Merci pour votre aide précieuse.
Autre question : Je cherche à tronquer les chiffres affichés dans les
datalabels, à savoir pas de chiffres après la virgule.
Je tente .DataLabel.Format, mais je ne trouve pas la variable à
rajouter.
Auriez-vous une idée ?
Merci
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news: e678fbbb-ced0-44c7 -a1ca-37aa22568...@u65g2000hsc.googlegroups.com...
On 24 oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> <gter...@gmail.com> a écrit dans le message de news: 70aebb2a-4679-4e 91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" <garnote3R...@videotron.ca> a écrit dans le message de ne ws: Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > <gter...@gmail.com> a écrit dans le message de news:
> > > e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com.. .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news: e678fbbb-ced0-44c7 -a1ca-37aa22568...@u65g2000hsc.googlegroups.com...
On 24 oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> <gter...@gmail.com> a écrit dans le message de news: 70aebb2a-4679-4e 91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" <garnote3R...@videotron.ca> a écrit dans le message de ne ws: Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > <gter...@gmail.com> a écrit dans le message de news:
> > > e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com.. .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news:
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news:
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de news:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > >
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les graphiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu difficile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est supérieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news: e678fbbb-ced0-44c7-a1ca-37aa22568...@u65g2000hsc.googlegroups.com...
On 24 oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> <gter...@gmail.com> a écrit dans le message de news: 70aebb2a-4679-4e91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" <garnote3R...@videotron.ca> a écrit dans le message de news: Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > <gter...@gmail.com> a écrit dans le message de news:
> > > e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com...
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les graphiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu difficile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est supérieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news:
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news:
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de news:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > >
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les graphiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu difficile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'agit
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est supérieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cellules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arriver à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
<gter...@gmail.com> a écrit dans le message de news: e678fbbb-ced0-44c7 -a1ca-37aa22568...@u65g2000hsc.googlegroups.com...
On 24 oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> <gter...@gmail.com> a écrit dans le message de news: 70aebb2a-4679-4e 91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" <garnote3R...@videotron.ca> a écrit dans le message de ne ws: Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > <gter...@gmail.com> a écrit dans le message de news:
> > > e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com.. .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Salut,
La coutume MPFE veut qu'on écrive nos réponses
au-dessus des questions posées.
Ainsi nous ne sommes pas obligés de faire défiler
la page pour lire la réponse.
Comme tu as des centaines de feuilles à traiter,
il serait intéressant de faire le boulot d'un seul
coup sur toutes les feuilles.
Une telle chose serait possible sous certaines conditions.
Voici un exemple :http://cjoint.com/?kyrfpy00EF
Serge
a écrit dans le message de news: e678fbbb-ced0-44c7
On 24 oct, 15:03, "garnote" wrote:
> Bonjour,
> Fais un clic sur une étiquette. Toutes tes étiquettes
> seront alors sélectionnées.
> Dans la barre d'outils "Mise en forme", choisis la
> taille et la couleur que tu désires.
> Bonne journée,
> Serge
> a écrit dans le message de news: 70aebb2a-4679-4e
> Excellent !!!!
> Mille fois merci !! C'est génial de voir qu'il existe encore des âm es
> charitables !!
> Je cherche dans mon DD des photos sympas :)
> Et une toute mini dernière question pour finir : j'aimerais modifier
> la couleur et la taille police de l'étiquette ainsi créée (blanc et
> 13).
> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
> tentatives se terminent par une erreur...
> Je suis vraiment désolé d'être un boulet !
> Merci pour tout.
> On 23 oct, 19:28, "garnote" wrote:
> > Et pour enlever l'étiquette de la ligne 2 :
> > Sub Etiquettes1()
> > Dim Pt As Point
> > Dim s As Range
> > Set s = Selection
> > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection(1 )
> > For i = 1 To .Points.Count
> > .Points(i).ApplyDataLabels
> > If i = 2 Then
> > .Points(i).DataLabel.Text = ""
> > Else
> > If s(i, 4) > 110 Then
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > & " " & s(i, 3) & " " & s(i, 4)
> > Else
> > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > End If
> > End If
> > Next i
> > End With
> > End Sub
> > Serge
> > "garnote" a écrit dans le message de ne ws:
> > > Bonsoir,
> > > Une variante de la macro de Daniel :
> > > En supposant que ton graphique se nomme "Graphique 3",
> > > tu sélectionnes tes quatre colonnes et tu appelles cette macro :
> > > Sub Etiquettes1()
> > > Dim Pt As Point
> > > Dim s As Range
> > > Set s = Selection
> > > With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
> > > For i = 1 To .Points.Count
> > > .Points(i).ApplyDataLabels
> > > If s(i, 4) > 110 Then
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
> > > & " " & s(i, 3) & " " & s(i, 4)
> > > Else
> > > .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
> > > End If
> > > Next i
> > > End With
> > > End Sub
> > > Serge
> > > a écrit dans le message de news:
> > > .
> > > Bonjour à tous,
> > > Je suis face à un problème plutôt complexe concernant les gra phiques
> > > d'excel (office 2007).
> > > Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
> > > à expliquer.
> > > - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
> > > - La valeur de ces secteurs est en pourcentage.
> > > (jusqu'ici ça va :)
> > > J'aimerais faire entrer en compte une deuxième valeur dans ce
> > > graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
> > > de l'indice. En gros, ca donne :
> > > A 12% ind.122
> > > B 16% ind. 98
> > > C 18% ind. 112
> > > D 19% ind. 56
> > > E 23% ind. 75
> > > Seules les deux premières colonnes agissent sur le graphique. Mon
> > > problème est que j'aimerais faire apparaître l'indice sur le
> > > graphique, à coté du pourcentage, si et seulement si il est sup érieur
> > > à 110.
> > > Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
> > > distinctes, je n'ai pas le choix.
> > > J'ai mis une image en ligne pour que ca soit plus compréhensible :
> > >http://kursus.free.fr/exemple.jpg
> > > En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
> > > l'intérieur du graphique, ce qui n'est pas possible à faire en passant
> > > par les options il me semble.
> > > J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
> > > résultat.
> > > J'ai conscience que c'est un travail assez complexe, donc je ne
> > > vexerai pas si personne ne se penche dessus :)
> > > Merci d'avance cependant à celui ou ceux qui pourront m'aider.
> > > Merci
> > > grégoire
Hello,
et merci.
J'ai oublié de préciser que je souhaitais passer par une macro, je
dois avoir une centaine d'onglets à traiter régulièrement...
Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
Dans le code de Serge, ca se situe à la ligne :
.DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
Dans cette ligne, il n'y a pas de chiffre après la virgule ("#%"). Si
tu en voulais, il faudrait mettre :
"#,00%"
Daniel
> On 24 oct, 16:07, "garnote" wrote:
>> Salut,
>> La coutume MPFE veut qu'on écrive nos réponses
>> au-dessus des questions posées.
>> Ainsi nous ne sommes pas obligés de faire défiler
>> la page pour lire la réponse.
>> Comme tu as des centaines de feuilles à traiter,
>> il serait intéressant de faire le boulot d'un seul
>> coup sur toutes les feuilles.
>> Une telle chose serait possible sous certaines conditions.
>> Voici un exemple :http://cjoint.com/?kyrfpy00EF
>> Serge
>> a écrit dans le message de news:
>> O n 24
>> oct, 15:03, "garnote" wrote:
>>> Bonjour,
>>> Fais un clic sur une étiquette. Toutes tes étiquettes
>>> seront alors sélectionnées.
>>> Dans la barre d'outils "Mise en forme", choisis la
>>> taille et la couleur que tu désires.
>>> Bonne journée,
>>> Serge
>>> a écrit dans le message de news:
>>>
>>> Excellent !!!!
>>> Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
>>> charitables !!
>>> Je cherche dans mon DD des photos sympas :)
>>> Et une toute mini dernière question pour finir : j'aimerais modifie r
>>> la couleur et la taille police de l'étiquette ainsi créée (blan c et
>>> 13).
>>> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
>>> tentatives se terminent par une erreur...
>>> Je suis vraiment désolé d'être un boulet !
>>> Merci pour tout.
>>> On 23 oct, 19:28, "garnote" wrote:
>>>> Et pour enlever l'étiquette de la ligne 2 :
>>>> Sub Etiquettes1()
>>>> Dim Pt As Point
>>>> Dim s As Range
>>>> Set s = Selection
>>>> With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection( 1)
>>>> For i = 1 To .Points.Count
>>>> .Points(i).ApplyDataLabels
>>>> If i = 2 Then
>>>> .Points(i).DataLabel.Text = ""
>>>> Else
>>>> If s(i, 4) > 110 Then
>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
>>>> & " " & s(i, 3) & " " & s(i, 4)
>>>> Else
>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
>>>> End If
>>>> End If
>>>> Next i
>>>> End With
>>>> End Sub
>>>> Serge
>>>> "garnote" a écrit dans le message de n ews:
>>>>
>>>>> Bonsoir,
>>>>> Une variante de la macro de Daniel :
>>>>> En supposant que ton graphique se nomme "Graphique 3",
>>>>> tu sélectionnes tes quatre colonnes et tu appelles cette macro :
>>>>> Sub Etiquettes1()
>>>>> Dim Pt As Point
>>>>> Dim s As Range
>>>>> Set s = Selection
>>>>> With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
>>>>> For i = 1 To .Points.Count
>>>>> .Points(i).ApplyDataLabels
>>>>> If s(i, 4) > 110 Then
>>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
>>>>> & " " & s(i, 3) & " " & s(i, 4)
>>>>> Else
>>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
>>>>> End If
>>>>> Next i
>>>>> End With
>>>>> End Sub
>>>>> Serge
>>>>> a écrit dans le message de news:
>>>>> .
>>>>> Bonjour à tous,
>>>>> Je suis face à un problème plutôt complexe concernant les gra phiques
>>>>> d'excel (office 2007).
>>>>> Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
>>>>> à expliquer.
>>>>> - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
>>>>> - La valeur de ces secteurs est en pourcentage.
>>>>> (jusqu'ici ça va :)
>>>>> J'aimerais faire entrer en compte une deuxième valeur dans ce
>>>>> graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
>>>>> de l'indice. En gros, ca donne :
>>>>> A 12% ind.122
>>>>> B 16% ind. 98
>>>>> C 18% ind. 112
>>>>> D 19% ind. 56
>>>>> E 23% ind. 75
>>>>> Seules les deux premières colonnes agissent sur le graphique. Mon
>>>>> problème est que j'aimerais faire apparaître l'indice sur le
>>>>> graphique, à coté du pourcentage, si et seulement si il est sup érieur
>>>>> à 110.
>>>>> Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
>>>>> distinctes, je n'ai pas le choix.
>>>>> J'ai mis une image en ligne pour que ca soit plus compréhensible :
>>>>>http://kursus.free.fr/exemple.jpg
>>>>> En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
>>>>> l'intérieur du graphique, ce qui n'est pas possible à faire en passant
>>>>> par les options il me semble.
>>>>> J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
>>>>> résultat.
>>>>> J'ai conscience que c'est un travail assez complexe, donc je ne
>>>>> vexerai pas si personne ne se penche dessus :)
>>>>> Merci d'avance cependant à celui ou ceux qui pourront m'aider.
>>>>> Merci
>>>>> grégoire
>> Hello,
>> et merci.
>> J'ai oublié de préciser que je souhaitais passer par une macro, je
>> dois avoir une centaine d'onglets à traiter régulièrement...
>> Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
> Ok c'est excellent ca fonctionne.
> Merci pour votre aide précieuse.
> Autre question : Je cherche à tronquer les chiffres affichés dans l es
> datalabels, à savoir pas de chiffres après la virgule.
> Je tente .DataLabel.Format, mais je ne trouve pas la variable à
> rajouter.
> Auriez-vous une idée ?
> Merci
Dans le code de Serge, ca se situe à la ligne :
.DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
Dans cette ligne, il n'y a pas de chiffre après la virgule ("#%"). Si
tu en voulais, il faudrait mettre :
"#,00%"
Daniel
> On 24 oct, 16:07, "garnote" <garnote3R...@videotron.ca> wrote:
>> Salut,
>> La coutume MPFE veut qu'on écrive nos réponses
>> au-dessus des questions posées.
>> Ainsi nous ne sommes pas obligés de faire défiler
>> la page pour lire la réponse.
>> Comme tu as des centaines de feuilles à traiter,
>> il serait intéressant de faire le boulot d'un seul
>> coup sur toutes les feuilles.
>> Une telle chose serait possible sous certaines conditions.
>> Voici un exemple :http://cjoint.com/?kyrfpy00EF
>> Serge
>> <gter...@gmail.com> a écrit dans le message de news:
>> e678fbbb-ced0-44c7-a1ca-37aa22568...@u65g2000hsc.googlegroups.com... O n 24
>> oct, 15:03, "garnote" <garnote3R...@videotron.ca> wrote:
>>> Bonjour,
>>> Fais un clic sur une étiquette. Toutes tes étiquettes
>>> seront alors sélectionnées.
>>> Dans la barre d'outils "Mise en forme", choisis la
>>> taille et la couleur que tu désires.
>>> Bonne journée,
>>> Serge
>>> <gter...@gmail.com> a écrit dans le message de news:
>>> 70aebb2a-4679-4e91-9ee7-b8035c0ac...@y21g2000hsf.googlegroups.com...
>>> Excellent !!!!
>>> Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
>>> charitables !!
>>> Je cherche dans mon DD des photos sympas :)
>>> Et une toute mini dernière question pour finir : j'aimerais modifie r
>>> la couleur et la taille police de l'étiquette ainsi créée (blan c et
>>> 13).
>>> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
>>> tentatives se terminent par une erreur...
>>> Je suis vraiment désolé d'être un boulet !
>>> Merci pour tout.
>>> On 23 oct, 19:28, "garnote" <garnote3R...@videotron.ca> wrote:
>>>> Et pour enlever l'étiquette de la ligne 2 :
>>>> Sub Etiquettes1()
>>>> Dim Pt As Point
>>>> Dim s As Range
>>>> Set s = Selection
>>>> With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection( 1)
>>>> For i = 1 To .Points.Count
>>>> .Points(i).ApplyDataLabels
>>>> If i = 2 Then
>>>> .Points(i).DataLabel.Text = ""
>>>> Else
>>>> If s(i, 4) > 110 Then
>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
>>>> & " " & s(i, 3) & " " & s(i, 4)
>>>> Else
>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
>>>> End If
>>>> End If
>>>> Next i
>>>> End With
>>>> End Sub
>>>> Serge
>>>> "garnote" <garnote3R...@videotron.ca> a écrit dans le message de n ews:
>>>> Ojd5hNTNJHA.1...@TK2MSFTNGP02.phx.gbl...
>>>>> Bonsoir,
>>>>> Une variante de la macro de Daniel :
>>>>> En supposant que ton graphique se nomme "Graphique 3",
>>>>> tu sélectionnes tes quatre colonnes et tu appelles cette macro :
>>>>> Sub Etiquettes1()
>>>>> Dim Pt As Point
>>>>> Dim s As Range
>>>>> Set s = Selection
>>>>> With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
>>>>> For i = 1 To .Points.Count
>>>>> .Points(i).ApplyDataLabels
>>>>> If s(i, 4) > 110 Then
>>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
>>>>> & " " & s(i, 3) & " " & s(i, 4)
>>>>> Else
>>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
>>>>> End If
>>>>> Next i
>>>>> End With
>>>>> End Sub
>>>>> Serge
>>>>> <gter...@gmail.com> a écrit dans le message de news:
>>>>> e3f1d4bd-07da-4d68-9440-947d18296...@j68g2000hsf.googlegroups.com.. .
>>>>> Bonjour à tous,
>>>>> Je suis face à un problème plutôt complexe concernant les gra phiques
>>>>> d'excel (office 2007).
>>>>> Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
>>>>> à expliquer.
>>>>> - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
>>>>> - La valeur de ces secteurs est en pourcentage.
>>>>> (jusqu'ici ça va :)
>>>>> J'aimerais faire entrer en compte une deuxième valeur dans ce
>>>>> graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
>>>>> de l'indice. En gros, ca donne :
>>>>> A 12% ind.122
>>>>> B 16% ind. 98
>>>>> C 18% ind. 112
>>>>> D 19% ind. 56
>>>>> E 23% ind. 75
>>>>> Seules les deux premières colonnes agissent sur le graphique. Mon
>>>>> problème est que j'aimerais faire apparaître l'indice sur le
>>>>> graphique, à coté du pourcentage, si et seulement si il est sup érieur
>>>>> à 110.
>>>>> Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
>>>>> distinctes, je n'ai pas le choix.
>>>>> J'ai mis une image en ligne pour que ca soit plus compréhensible :
>>>>>http://kursus.free.fr/exemple.jpg
>>>>> En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
>>>>> l'intérieur du graphique, ce qui n'est pas possible à faire en passant
>>>>> par les options il me semble.
>>>>> J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
>>>>> résultat.
>>>>> J'ai conscience que c'est un travail assez complexe, donc je ne
>>>>> vexerai pas si personne ne se penche dessus :)
>>>>> Merci d'avance cependant à celui ou ceux qui pourront m'aider.
>>>>> Merci
>>>>> grégoire
>> Hello,
>> et merci.
>> J'ai oublié de préciser que je souhaitais passer par une macro, je
>> dois avoir une centaine d'onglets à traiter régulièrement...
>> Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
> Ok c'est excellent ca fonctionne.
> Merci pour votre aide précieuse.
> Autre question : Je cherche à tronquer les chiffres affichés dans l es
> datalabels, à savoir pas de chiffres après la virgule.
> Je tente .DataLabel.Format, mais je ne trouve pas la variable à
> rajouter.
> Auriez-vous une idée ?
> Merci
Dans le code de Serge, ca se situe à la ligne :
.DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
Dans cette ligne, il n'y a pas de chiffre après la virgule ("#%"). Si
tu en voulais, il faudrait mettre :
"#,00%"
Daniel
> On 24 oct, 16:07, "garnote" wrote:
>> Salut,
>> La coutume MPFE veut qu'on écrive nos réponses
>> au-dessus des questions posées.
>> Ainsi nous ne sommes pas obligés de faire défiler
>> la page pour lire la réponse.
>> Comme tu as des centaines de feuilles à traiter,
>> il serait intéressant de faire le boulot d'un seul
>> coup sur toutes les feuilles.
>> Une telle chose serait possible sous certaines conditions.
>> Voici un exemple :http://cjoint.com/?kyrfpy00EF
>> Serge
>> a écrit dans le message de news:
>> O n 24
>> oct, 15:03, "garnote" wrote:
>>> Bonjour,
>>> Fais un clic sur une étiquette. Toutes tes étiquettes
>>> seront alors sélectionnées.
>>> Dans la barre d'outils "Mise en forme", choisis la
>>> taille et la couleur que tu désires.
>>> Bonne journée,
>>> Serge
>>> a écrit dans le message de news:
>>>
>>> Excellent !!!!
>>> Mille fois merci !! C'est génial de voir qu'il existe encore des âmes
>>> charitables !!
>>> Je cherche dans mon DD des photos sympas :)
>>> Et une toute mini dernière question pour finir : j'aimerais modifie r
>>> la couleur et la taille police de l'étiquette ainsi créée (blan c et
>>> 13).
>>> Mais il faut croire que je ne suis vraiment pas doué, toutes mes
>>> tentatives se terminent par une erreur...
>>> Je suis vraiment désolé d'être un boulet !
>>> Merci pour tout.
>>> On 23 oct, 19:28, "garnote" wrote:
>>>> Et pour enlever l'étiquette de la ligne 2 :
>>>> Sub Etiquettes1()
>>>> Dim Pt As Point
>>>> Dim s As Range
>>>> Set s = Selection
>>>> With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection( 1)
>>>> For i = 1 To .Points.Count
>>>> .Points(i).ApplyDataLabels
>>>> If i = 2 Then
>>>> .Points(i).DataLabel.Text = ""
>>>> Else
>>>> If s(i, 4) > 110 Then
>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
>>>> & " " & s(i, 3) & " " & s(i, 4)
>>>> Else
>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
>>>> End If
>>>> End If
>>>> Next i
>>>> End With
>>>> End Sub
>>>> Serge
>>>> "garnote" a écrit dans le message de n ews:
>>>>
>>>>> Bonsoir,
>>>>> Une variante de la macro de Daniel :
>>>>> En supposant que ton graphique se nomme "Graphique 3",
>>>>> tu sélectionnes tes quatre colonnes et tu appelles cette macro :
>>>>> Sub Etiquettes1()
>>>>> Dim Pt As Point
>>>>> Dim s As Range
>>>>> Set s = Selection
>>>>> With ActiveSheet.ChartObjects("Graphique 3").Chart.SeriesCollection (1)
>>>>> For i = 1 To .Points.Count
>>>>> .Points(i).ApplyDataLabels
>>>>> If s(i, 4) > 110 Then
>>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%") _
>>>>> & " " & s(i, 3) & " " & s(i, 4)
>>>>> Else
>>>>> .Points(i).DataLabel.Text = s(i, 1) & " " & Format(s(i, 2), "#%")
>>>>> End If
>>>>> Next i
>>>>> End With
>>>>> End Sub
>>>>> Serge
>>>>> a écrit dans le message de news:
>>>>> .
>>>>> Bonjour à tous,
>>>>> Je suis face à un problème plutôt complexe concernant les gra phiques
>>>>> d'excel (office 2007).
>>>>> Je vais essayer d'être le plus clair possible, c'est un peu diffi cile
>>>>> à expliquer.
>>>>> - Soit un graphique "camembert" à 5 secteurs (A, B, C, D, E).
>>>>> - La valeur de ces secteurs est en pourcentage.
>>>>> (jusqu'ici ça va :)
>>>>> J'aimerais faire entrer en compte une deuxième valeur dans ce
>>>>> graphique, mais sans qu'elle n'ait d'effet sur le graphique. Il s'a git
>>>>> de l'indice. En gros, ca donne :
>>>>> A 12% ind.122
>>>>> B 16% ind. 98
>>>>> C 18% ind. 112
>>>>> D 19% ind. 56
>>>>> E 23% ind. 75
>>>>> Seules les deux premières colonnes agissent sur le graphique. Mon
>>>>> problème est que j'aimerais faire apparaître l'indice sur le
>>>>> graphique, à coté du pourcentage, si et seulement si il est sup érieur
>>>>> à 110.
>>>>> Difficulté supplémentaire : "ind." et "122" sont dans deux cell ules
>>>>> distinctes, je n'ai pas le choix.
>>>>> J'ai mis une image en ligne pour que ca soit plus compréhensible :
>>>>>http://kursus.free.fr/exemple.jpg
>>>>> En guise de cerise, j'aimerais pouvoir incorporer le nom du secteur à
>>>>> l'intérieur du graphique, ce qui n'est pas possible à faire en passant
>>>>> par les options il me semble.
>>>>> J'ai acheté un livre sur le Visual Basic mais je peine à arrive r à ce
>>>>> résultat.
>>>>> J'ai conscience que c'est un travail assez complexe, donc je ne
>>>>> vexerai pas si personne ne se penche dessus :)
>>>>> Merci d'avance cependant à celui ou ceux qui pourront m'aider.
>>>>> Merci
>>>>> grégoire
>> Hello,
>> et merci.
>> J'ai oublié de préciser que je souhaitais passer par une macro, je
>> dois avoir une centaine d'onglets à traiter régulièrement...
>> Ma soeur travaille pour Elite sur son temps libre.. (non je blague :(
> Ok c'est excellent ca fonctionne.
> Merci pour votre aide précieuse.
> Autre question : Je cherche à tronquer les chiffres affichés dans l es
> datalabels, à savoir pas de chiffres après la virgule.
> Je tente .DataLabel.Format, mais je ne trouve pas la variable à
> rajouter.
> Auriez-vous une idée ?
> Merci