2 Couleurs de secteur seulement
#1
Débutant XLPages

Inscription: 15/08/2012

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 20-09-2012 02h34
 Bonsoir

J’suis arrivée au bout de mes idées

 

J’ai des provinces canadiennes, avec une indication si elles ont participé (O) ou pas (N) à une activité.

Province Nombre Participation
Alberta 1 N
B-C. 1 N
N-B. 1 N
Ontario 1 N
P.E.I 1 N
Québec 1 N
Manitoba 1 O
N-S. 1 O
Saskatchewan 1 O

 

J’aimerais faire un graphique dans ce genre-là : (voir fichier joint)

 

 

En jaune: les provinces qui ont participé

En bleu :  les provinces qui n’ont pas participé

 
J'y suis arrivée en trafiquant les couleurs manuellement, mais si c'est possible, j'aimerais le faire en lien directement avec les données.

Pouvez-vous m'aider?  Ce serait très apprécié.

Merci de votre attention et bonne fin de soirée!
Danielle 





Pièce jointe:
xlsx Provinces.xlsx   [ Taille: 10.67 Ko - Téléchargements: 518 ]
Hors Ligne
Rapport   Haut 

Re: 2 Couleurs de secteur seulement
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 20-09-2012 12h34
Bonjour DanC, le Forum,

Peut-être une façon de faire en pièce jointe...

J'ai utilisé le code VBA suivant :

DANS LE MODULE DE CODE DE LA FEUILLE 1

Option Explicit
'myDearFriend! - www.mdf-xlpages.com

Private Sub Worksheet_Change(ByVal Target As Range)
    'Ne prend en compte que la première cellule si plage modifiée
    Set Target = Target(1)
    'Si modif détectée dans la colonne "Participation"
    If Not Application.Intersect(Target, Range("C2:C10")) Is Nothing Then
        'Adapte couleur de l'Aire correspondante en fonction de la valeur saisie ("O" ou autre)
        ChartObjects("Graphique 2").Chart.SeriesCollection(1).Points(Target.Row - 1) _
            .Interior.Color = IIf(Target.Value = "O", 49407, 12419407)
    End If
End Sub

En espérant que ça puisse t'aider.

Cordialement,
Pièce jointe:
xlsm Provinces mDF.xlsm   [ Taille: 18.15 Ko - Téléchargements: 501 ]

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: 2 Couleurs de secteur seulement
#3
Débutant XLPages

Inscription: 15/08/2012

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2012 02h21
Merci beaucoup Didier.

C'est ce que je voulais!

Super!


Hors Ligne
Rapport   Haut 

Re: 2 Couleurs de secteur seulement
#4
Débutant XLPages

Inscription: 15/08/2012

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 21-09-2012 19h59
Bonjour Didier

La solution est très bien, comme je le mentionnais hier.

Y aurait-il moyen d'indiquer les couleurs dans la feuille de calcul et de prendre ces couleurs pour faire le graphique? 

Ce serait juste un plus!

Merci et bonne journée!

Danielle

Hors Ligne
Rapport   Haut 

Re: 2 Couleurs de secteur seulement
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 21-09-2012 20h48
Bonjour DanC, le Forum,

Que veux-tu faire exactement ? Je ne comprends pas.

Indiquer les couleurs sur la feuille et les reprendre dans la macro, oui, bien sûr c'est possible.

Mais veux-tu toujours 2 couleurs : une pour O et une pour N ?
Où les met-on sur la feuille, sous quelle forme, dans quelles cellules ?

Sois précise si tu veux une réponse précise... STP

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: 2 Couleurs de secteur seulement
#6
Débutant XLPages

Inscription: 15/08/2012

Messages: 12

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-09-2012 21h55
Bonjour Didier_mDF 

Voici, je précise

Dans le classeur joint, j'ai mis 2 cellules avec les nouvelles couleurs que je voudrais utiliser (A12 et A13)

Par exemple, dans une autre option du graphique, je vais chercher mon titre dans la cellule C1 (essaie de changer le texte dans C1, tu verras le changement sur le titre du graphique). ça ne demande pas de macro. 

Est-il possible de choisir les couleurs un peu de la même façon?

ET j'ajoute une demande: serait il possible d'avoir en légende les libellés qui se trouvent en B12 et b13, pendant que sur le graphique, chaque pointe de tarte est nommée par sa province?

Pour ma culture, qu'est ce que "IIf" dans l'expression IIf(Target.Value = "O", 49407, 12419407) de la macro?

Merci pour ta grande patience!

Bonne soirée!

Danielle











Pièce jointe:
xlsm Provinces couleurs.xlsm   [ Taille: 18.22 Ko - Téléchargements: 537 ]
xlsm Provinces couleurs.xlsm   [ Taille: 18.22 Ko - Téléchargements: 507 ]
Hors Ligne
Rapport   Haut 

Re: 2 Couleurs de secteur seulement
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-09-2012 23h13
Bonsoir DanC,

Pour la première partie de ta demande, il suffit de modifier le code VBA comme suit :

Option Explicit
'   myDearFriend! - www.mdf-xlpages.com

Private Sub Worksheet_Change(ByVal Target As Range)
    'Ne prend en compte que la première cellule si plage modifiée
    Set Target = Target(1)
    'Si modif détectée dans la colonne "Participation"
    If Not Application.Intersect(Target, Range("C2:C10")) Is Nothing Then
        'Adapte couleur de l'Aire correspondante en fonction de la valeur saisie ("O" ou autre)
        ChartObjects("Graphique 2").Chart.SeriesCollection(1).Points(Target.Row - 1) _
            .Interior.Color = IIf(Target.Value = "O", Range("A14").Interior.Color, Range("A13").Interior.Color)
    End If
End Sub
(A13-A14 comme dans ton fichier et non A12-A13 comme dans ton énoncé )

Pour la deuxième partie, navré, les graphiques sont loin d'être ma spécialité et, de plus, je ne suis pas sûr de bien comprendre ta demande. Je passe la main...

Concernant la fonction VBA « IIF », il s'agit simplement d'un équivalent au bloc d'instructions conditionnel « If ... Then ... End If » plus traditionnel. L'expression s'évalue sous la forme :
Iif ( expression à évaluer , retour si VRAI, retour si FAUX)
... voir l'aide VBA (F1) pour plus de détails.

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   2 Utilisateur(s) anonymes