Microsoft 365 Créer un graphique au couleurs de mon tableau de données

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2022

• #2

Bonjour Armelle, et bienvenue sur XLD,
Un petit fichier test aurait été le bienvenu. C'est beaucoup plus simple et clair de travailler sur un exemple précis.
Ensuite, que veut dire :

ArmelleG à dit:

Il semble que vous ayez répondu mais je ne parviens à ouvrir les messages.

Cliquez pour agrandir...

Les messages de quoi ? Sur le forum XLD ?

 

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #3

Bonjour,
merci de votre retour.
Cijoint le tableau avec des données chiffrées et couleurs. Les couleurs sont importantes. J'aimerais qu'elles se reportent dans le camember.

Concernant la question de la fin de votre message :C' est une reponse que javais faites avant d'etre inscrite !!! d'où le pb pour ouvrire certains messages

 

Pièces jointes

• CAMEMBER.xlsx

  38.8 KB · Affichages: 6

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2022

• #4

Bonjour Armelle,
Un essai en PJ avec cette macro :

VB:

Sub CouleursCamenbert()
    Dim L%, Couleur
    Application.ScreenUpdating = False
    ActiveSheet.ChartObjects("Graphique 3").Activate
    With ActiveChart.SeriesCollection(1)
        For L = 1 To 12
            Couleur = Cells(L + 3, "B").Interior.Color
            .Points(L).DataLabel.Font.Color = Couleur
            .Points(L).Interior.Color = Couleur
        Next L
    End With
    [A1].Select
End Sub

 

Pièces jointes

• CAMEMBER (2).xlsm

  35.5 KB · Affichages: 15

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #5

Génial !!!! C'est exectement cela .
Merci.

Dis moi comment je peux le dupliquer afin de le reutilser pour d'autre cas.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2022

• #6

Vous ouvrez ma PJ et votre fichier, puis faites Alt+F11 ( ou Développeur/Visual Basic ). L'éditeur VBA va s'ouvrir. Vous cliquez sur le "+" à gauche de VBAProject( CAMENBER(2) .... pour développer le projet.
A gauche vous allez avoir du genre :

Vous cliquez sur Module1 et en restant appuyez vous le faites glisser sur votre projet. Vous allez obtenir :

Ensuite il vous faut "bidouiller" le VBA.
Le nombre à traiter est ici de 12, vous pouvez le modifier dans : For L = 1 To 12
Puis la première ligne de votre tableau est en ligne 4, donc quand L vaudra 1 il faudra aller en ligne 4, d'où ici le Cells(L + 3, "B"), car si L=1 alors L+3=4 donc en ligne 4. Et vous pouvez aussi changer la colonne, ici en "B".
Dans votre ficher vous dessinez une forme quelconque ( avec Insertion/Formes )
Vous faites clic droit sur cette forme puis "Affecter une macro..." et vous cliquez sur CouleursCamenbert puis OK. C'est tout.

J'ai oublié un dernier point : Et vous enregistrez votre fichier en xlsm et non en xlsx pour qu'il accepte les macros.

 

Dernière édition: 11 Juin 2022

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #7

Merci beaucoup de toutes vos explications. J’aime beaucoup le « c’est tout de la fin »
malheureusement pour moi la 1 ère action ne déclenche rien Alt F11.
Quand je disais que j’avais besoin de me mettre à jour sur Excel…. En fait c’est un très faible mot .

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2022

• #8

Alors essayez l'autre méthode :

sylvanu à dit:

puis faites Alt+F11 ( ou Développeur/Visual Basic ).

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #9

Je suis allé dans les paramètres car VB ne s’affiche pas.
c’est bon.
je l’ai

 

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #10

J’ai essayé de suivre les instructions suivantes.
mais je ne comprends pas ou je dois glis’user le module 1.
dans la partie du dessous ,

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2022

• #11

Le GIF ci dessous commence quand vous avez ouvert les deux fichiers et êtes dans l'éditeur VBA :

Une autre méthode avec exporter importer :

 

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #12

 

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #13

Voila ce que j'ai sur mon écran

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Juin 2022

• #14

Premier pas de fait !
Donc à droite vous avez le code de la macro CouleursCamenbert.
Vous pouvez fermer cette fenêtre, et passer à l'insertion du bouton dans votre feuille.

 

Vote positif 0 Vote négatif

A

ArmelleG

XLDnaute Nouveau

• 11 Juin 2022

• #15

Heu quel bouton ?

 

Vote positif 0 Vote négatif