2 Couleurs de secteur seulement [Forums - Espace Débutants] : myDearFriend! Excel Pages

Forums XLPages

Excel & VBA

Espace Débutants

2 Couleurs de secteur seulement

Vous n'êtes pas connecté ! Identifiez-vous pour poster dans le Forum...

2 Couleurs de secteur seulement

DanC

Débutant XLPages

Inscription: 15/08/2012

Messages: 12

Système d'exploitation:

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: 582 ]

Re: 2 Couleurs de secteur seulement		#2
myDearFriend! 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: Provinces mDF.xlsm [ Taille: 18.15 Ko - Téléchargements: 565 ] Didier_mDF Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Re: 2 Couleurs de secteur seulement		#3
DanC 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!

Re: 2 Couleurs de secteur seulement		#4
DanC 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

Re: 2 Couleurs de secteur seulement		#5
myDearFriend! 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 Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Re: 2 Couleurs de secteur seulement		#6
DanC 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: Provinces couleurs.xlsm [ Taille: 18.22 Ko - Téléchargements: 599 ] Provinces couleurs.xlsm [ Taille: 18.22 Ko - Téléchargements: 575 ]

Re: 2 Couleurs de secteur seulement		#7
myDearFriend! 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 Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien

Vous n'êtes pas connecté ! Identifiez-vous pour poster dans le Forum...

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.

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