Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Couleur par defaut graphique

Couleur par defaut graphique

23 réponses
Avatar
Pijay
Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et 4...J'ai fait un
graphique type bulles avec des bulles dont la taille est definie de 1 a 4 (4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette donnee pour que la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Pijay
Par exemple en changeant la cellule D5, en mettant 4 au lieu de 2....

J'ai excel 2003 !


Merci




Tu changes quel chifffre (dans quelle cellule ?) et l'erreur se produit sur
quelle ligne ?
Daniel
"Pijay" a écrit dans le message de news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time error
'1004': Unable to get the chartobjects property of the worksheet class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2 et la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va grossir
mais
rester rouge alors que suivant la legende a droite du graphique, je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème ?
Daniel
"Pijay" a écrit dans le message de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1 et 4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et 4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci































Avatar
Pijay
J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et quelle est ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message de news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time error
'1004': Unable to get the chartobjects property of the worksheet class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2 et la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va grossir
mais
rester rouge alors que suivant la legende a droite du graphique, je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème ?
Daniel
"Pijay" a écrit dans le message de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1 et 4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et 4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci































Avatar
Daniel
Bonjour.
Je crois voir pourquoi, ton graphique ne doit pas s'appeler "Graphique 8".
Je cherche un contournement.
Daniel
"Pijay" a écrit dans le message de news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et quelle est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time
error
'1004': Unable to get the chartobjects property of the worksheet class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2 et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du graphique, je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème ?
Daniel
"Pijay" a écrit dans le message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1 et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci

































Avatar
Daniel
Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message de news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et quelle est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time
error
'1004': Unable to get the chartobjects property of the worksheet class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2 et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du graphique, je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème ?
Daniel
"Pijay" a écrit dans le message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1 et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci

































Avatar
Pijay
On avance !
Les couleurs changent mais il y a un souci....Par exemple quand on met tout
a 1, la taille et les couleurs s'enmelent !

voila mon fichier http://cjoint.com/?hnkSBS7SMa

Merci


Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message de news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et quelle est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time
error
'1004': Unable to get the chartobjects property of the worksheet class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2 et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du graphique, je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème ?
Daniel
"Pijay" a écrit dans le message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1 et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci






































Avatar
Daniel
Bon.
Pour que la macro continue à fonctionner, il faut que le nombre de lignes de
titre reste fixe. Comme tu as rajouté une ligne de titres, il faut changer
la ligne :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
en
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
2).Interior
L'ordre des séries doit être celui de la plage A3:A9 :
La série 1 est celle de la ligne 3, la série 2, celle de la ligne 4 etc.
Cordialement.
Daniel
"Pijay" a écrit dans le message de news:

On avance !
Les couleurs changent mais il y a un souci....Par exemple quand on met
tout
a 1, la taille et les couleurs s'enmelent !

voila mon fichier http://cjoint.com/?hnkSBS7SMa

Merci


Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message de
news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et quelle
est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time
error
'1004': Unable to get the chartobjects property of the worksheet
class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message
de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2
et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du graphique,
je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main
avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème
?
Daniel
"Pijay" a écrit dans le
message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1
et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci








































Avatar
Pijay
Ok la ca marche !

Si j'ajoute des lignes (le nombre de colonne restant fixe), comment modif la
macro pr qu'une continue a appliquer la couleur associee au chiffre ?

Merci


Bon.
Pour que la macro continue à fonctionner, il faut que le nombre de lignes de
titre reste fixe. Comme tu as rajouté une ligne de titres, il faut changer
la ligne :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
en
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
2).Interior
L'ordre des séries doit être celui de la plage A3:A9 :
La série 1 est celle de la ligne 3, la série 2, celle de la ligne 4 etc.
Cordialement.
Daniel
"Pijay" a écrit dans le message de news:

On avance !
Les couleurs changent mais il y a un souci....Par exemple quand on met
tout
a 1, la taille et les couleurs s'enmelent !

voila mon fichier http://cjoint.com/?hnkSBS7SMa

Merci


Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message de
news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et quelle
est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets: "run-time
error
'1004': Unable to get the chartobjects property of the worksheet
class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le message
de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle" est 2
et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du graphique,
je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la main
avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le problème
?
Daniel
"Pijay" a écrit dans le
message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre (entre 1
et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci













































Avatar
Daniel
Remplace :
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
par
If Intersect(Range("D2:D" & [B3].End(xlDown).Row), Target) Is Nothing _
Then Exit Sub
Il faut que, si la dernière série est en ligne 10, la ligne 11 soit vierge.
Daniel
"Pijay" a écrit dans le message de news:

Ok la ca marche !

Si j'ajoute des lignes (le nombre de colonne restant fixe), comment modif
la
macro pr qu'une continue a appliquer la couleur associee au chiffre ?

Merci


Bon.
Pour que la macro continue à fonctionner, il faut que le nombre de lignes
de
titre reste fixe. Comme tu as rajouté une ligne de titres, il faut
changer
la ligne :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
en
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
2).Interior
L'ordre des séries doit être celui de la plage A3:A9 :
La série 1 est celle de la ligne 3, la série 2, celle de la ligne 4 etc.
Cordialement.
Daniel
"Pijay" a écrit dans le message de
news:

On avance !
Les couleurs changent mais il y a un souci....Par exemple quand on met
tout
a 1, la taille et les couleurs s'enmelent !

voila mon fichier http://cjoint.com/?hnkSBS7SMa

Merci


Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message de
news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et
quelle
est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message
de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets:
"run-time
error
'1004': Unable to get the chartobjects property of the worksheet
class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit
Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le
message
de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle"
est 2
et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du
graphique,
je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la
main
avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le
problème
?
Daniel
"Pijay" a écrit dans le
message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre
(entre 1
et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans
le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille
est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change
cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci















































Avatar
Pijay
Cool ! ca a l'air de marcher ! malgre un ptit bug, je cliques sur end et je
retape le chiffre, ca marche !

Merci bcp !





Remplace :
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
par
If Intersect(Range("D2:D" & [B3].End(xlDown).Row), Target) Is Nothing _
Then Exit Sub
Il faut que, si la dernière série est en ligne 10, la ligne 11 soit vierge.
Daniel
"Pijay" a écrit dans le message de news:

Ok la ca marche !

Si j'ajoute des lignes (le nombre de colonne restant fixe), comment modif
la
macro pr qu'une continue a appliquer la couleur associee au chiffre ?

Merci


Bon.
Pour que la macro continue à fonctionner, il faut que le nombre de lignes
de
titre reste fixe. Comme tu as rajouté une ligne de titres, il faut
changer
la ligne :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
en
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
2).Interior
L'ordre des séries doit être celui de la plage A3:A9 :
La série 1 est celle de la ligne 3, la série 2, celle de la ligne 4 etc.
Cordialement.
Daniel
"Pijay" a écrit dans le message de
news:

On avance !
Les couleurs changent mais il y a un souci....Par exemple quand on met
tout
a 1, la taille et les couleurs s'enmelent !

voila mon fichier http://cjoint.com/?hnkSBS7SMa

Merci


Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message de
news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et
quelle
est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le message
de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets:
"run-time
error
'1004': Unable to get the chartobjects property of the worksheet
class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit
Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le
message
de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle"
est 2
et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle va
grossir
mais
rester rouge alors que suivant la legende a droite du
graphique,
je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la
main
avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le
problème
?
Daniel
"Pijay" a écrit dans le
message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre
(entre 1
et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit dans
le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1 et
4...J'ai
fait un
graphique type bulles avec des bulles dont la taille
est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change
cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci




















































Avatar
Daniel
Pas compris.
Quand est-ce que ça ne marche pas ?
Daniel
"Pijay" a écrit dans le message de news:

Cool ! ca a l'air de marcher ! malgre un ptit bug, je cliques sur end et
je
retape le chiffre, ca marche !

Merci bcp !





Remplace :
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit Sub
par
If Intersect(Range("D2:D" & [B3].End(xlDown).Row), Target) Is Nothing
_
Then Exit Sub
Il faut que, si la dernière série est en ligne 10, la ligne 11 soit
vierge.
Daniel
"Pijay" a écrit dans le message de
news:

Ok la ca marche !

Si j'ajoute des lignes (le nombre de colonne restant fixe), comment
modif
la
macro pr qu'une continue a appliquer la couleur associee au chiffre ?

Merci


Bon.
Pour que la macro continue à fonctionner, il faut que le nombre de
lignes
de
titre reste fixe. Comme tu as rajouté une ligne de titres, il faut
changer
la ligne :
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
en
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
2).Interior
L'ordre des séries doit être celui de la plage A3:A9 :
La série 1 est celle de la ligne 3, la série 2, celle de la ligne 4
etc.
Cordialement.
Daniel
"Pijay" a écrit dans le message de
news:

On avance !
Les couleurs changent mais il y a un souci....Par exemple quand on
met
tout
a 1, la taille et les couleurs s'enmelent !

voila mon fichier http://cjoint.com/?hnkSBS7SMa

Merci


Remplace la ligne :
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
par :
With
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(Target.Row -
1).Interior
Daniel
"Pijay" a écrit dans le message
de
news:

J'ai essaye, cela ne marche pas...
J'ai excel 2003 anglais


Est-ce que tu as testé sur le classeur que j'ai retourné ? et
quelle
est
ta
version d'Excel ?
Daniel
"Pijay" a écrit dans le
message
de
news:

Merci....
Je viens d'essayer, si je change le chiffre, il me mets:
"run-time
error
'1004': Unable to get the chartobjects property of the
worksheet
class'

:-(


Merci pour votre aide !


Regarde ton classeur en retour :
http://cjoint.com/?hmriFldmes
J'ai ajouté la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Range("D2:D9"), Target) Is Nothing Then Exit
Sub
If Target > 4 Then
MsgBox "Valeur invalide"
Exit Sub
End If
couleur = Array(23, 19, 22, 17)
With ActiveSheet.ChartObjects("Graphique
8").Chart.SeriesCollection(Target.Row - 1).Interior
Select Case Target
Case 1
.ColorIndex = 23
Case 2
.ColorIndex = 19
Case 3
.ColorIndex = 22
Case 4
.ColorIndex = 17
End Select
End With
End Sub

Daniel
"Pijay" a écrit dans le
message
de
news:

Pour etre + precis:

Par exemple, je prends "Local Events", son "designed cycle"
est 2
et
la
bulle est rouge.....Si a la place de 2 je mets 4, la bulle
va
grossir
mais
rester rouge alors que suivant la legende a droite du
graphique,
je
voudrais
qu'elle devienne bleu, couleur associe au chiffre 4 !

Merci


Elles ne conservent pas, c'est moi qui les ai change a la
main
avec
clique
droit--> mise en forme etc....)....


Les bulles conservent leur couleur ? Alors, où est le
problème
?
Daniel
"Pijay" a écrit dans
le
message
de
news:

http://cjoint.com/?hmqsOQ6ME4

Les bulles ont une couleur suivant le chiffre entre
(entre 1
et
4)
dans
"designed cycle"

Merci


Bonjour.
Peux-tu mettre un exemple sur www.cjoint.com et
poster
l'adresse
générée
?
Cordialement.
Daniel
"Pijay" a écrit
dans
le
message
de
news:

Bonjour,
J'ai un tableau avec des donnees comprises entre 1
et
4...J'ai
fait un
graphique type bulles avec des bulles dont la
taille
est
definie
de 1 a
4
(4
etant la + grosse)

Comment faire pour que lorsque l'utilisateur change
cette
donnee
pour
que
la
bulle est toujours la meme couleur ?

C'est a dire par exemple:
1 ----> bulle bleu
2 ----> bulle rouge
etc

Merci






















































1 2 3