insérer une palette couleur
- Initiateur de la discussion cjaf
- Date de début
chris
XLDnaute Barbatruc
RE
J'ai juste un carré vide qui semble servir, d'après le code, pour la construction de la palette mais il n'a pas de couleur...
J'ai juste un carré vide qui semble servir, d'après le code, pour la construction de la palette mais il n'a pas de couleur...
Re,
Oui. Tu le sélectionner en te mettant en mode création de l'onglet développeur.
Après un click-droit (voir note en bas) :
Note : si l'option 'Objet ImaglistCtrl' n'apparaît pas au click droit :
Ouvrir la fenêtre de code de la feuille puis la fenêtre exécution.
Tapez dedans ImageList1.Select puis valider et refaire ensuite le click-droit sur le bouton.
Souvent le click-droit direct ne fait que sélectionner le shape conteneur et non le controle lui-même. Les menu ne sont pas les mêmes pour les deux.
Cordialement
Oui. Tu le sélectionner en te mettant en mode création de l'onglet développeur.
Après un click-droit (voir note en bas) :
Note : si l'option 'Objet ImaglistCtrl' n'apparaît pas au click droit :
Ouvrir la fenêtre de code de la feuille puis la fenêtre exécution.
Tapez dedans ImageList1.Select puis valider et refaire ensuite le click-droit sur le bouton.
Souvent le click-droit direct ne fait que sélectionner le shape conteneur et non le controle lui-même. Les menu ne sont pas les mêmes pour les deux.
Cordialement
chris
XLDnaute Barbatruc
RE
Bizarrement je peux éditer sous la version 2010 mais pas 365
En fait le code utilise les valeurs ColorIndex de 1à 56 donc il ne suffit pas de changer l'image mais grâce à toi j'ai avancé.
Il faut que j'utilise une table de correspondance des Index allant 1 à 56 pour les attribuer à d'autres couleurs
Je posterai quand ce sera fait.
Bizarrement je peux éditer sous la version 2010 mais pas 365
En fait le code utilise les valeurs ColorIndex de 1à 56 donc il ne suffit pas de changer l'image mais grâce à toi j'ai avancé.
Il faut que j'utilise une table de correspondance des Index allant 1 à 56 pour les attribuer à d'autres couleurs
Je posterai quand ce sera fait.
chris
XLDnaute Barbatruc
RE
Bon j'ai du changer le chemin dans le module du classeur et celui du module car il refuse d'écrire à la racine de C:
J'ai mis T: (à adapter)
J'ai changé 4 couleurs, en fait 2 X 2 couleurs car les couleurs se répètent.
Je pense qu'on pourrait alléger à moins de 56 couleurs et enlever cette répétition qui ne sert à rien dans les versions actuelles...
J'ai ajouté dans Feuil1 un tableau structuré de 5 colonnes listant 56 couleurs avec un index (non utilisé) la couleur et leur composantes RVB.
J'ai modifié le InsertFillColor pour utiliser ce tableau et colorer avec
Color =RGB(x,y,z)
au lieu de Colorindex
J'ai remplacé les images de la palette : c'est la partie un peu lourde car il faut créer les images, les charger au bon endroit et supprimer l'ancienne image
Idéalement il faudrait trouver une solution plus simple pour facilement obtenir la palette à partir du tableau structuré.
Mais déjà c'est une avancée. Pour ma part je l'utilise en complément xlam et vais pouvoir l'adapter un peu car certaines couleurs hideuses ne servent pas...
Bon j'ai du changer le chemin dans le module du classeur et celui du module car il refuse d'écrire à la racine de C:
J'ai mis T: (à adapter)
J'ai changé 4 couleurs, en fait 2 X 2 couleurs car les couleurs se répètent.
Je pense qu'on pourrait alléger à moins de 56 couleurs et enlever cette répétition qui ne sert à rien dans les versions actuelles...
J'ai ajouté dans Feuil1 un tableau structuré de 5 colonnes listant 56 couleurs avec un index (non utilisé) la couleur et leur composantes RVB.
J'ai modifié le InsertFillColor pour utiliser ce tableau et colorer avec
Color =RGB(x,y,z)
au lieu de Colorindex
J'ai remplacé les images de la palette : c'est la partie un peu lourde car il faut créer les images, les charger au bon endroit et supprimer l'ancienne image
Idéalement il faudrait trouver une solution plus simple pour facilement obtenir la palette à partir du tableau structuré.
Mais déjà c'est une avancée. Pour ma part je l'utilise en complément xlam et vais pouvoir l'adapter un peu car certaines couleurs hideuses ne servent pas...
Re,
Oui je pensais à quelque chose comme ça.
J'ai cherché hier un évènement de ruban qui nous permettrait de mettre qu'une seule plus grande image (construite à partir de cellules) et dont on pourrait récupérer les coordonnées x,y du click pour en déduire la zone et la couleur cliquée. Cela aurait permis d'avoir une palette qui puisse changer plus facilement.
Pour le moment je ne trouve pas et Il n' existe aucun contrôle de ruban qui ait une propriété 'backcolor' ou similaire
Cordialement
Oui je pensais à quelque chose comme ça.
J'ai cherché hier un évènement de ruban qui nous permettrait de mettre qu'une seule plus grande image (construite à partir de cellules) et dont on pourrait récupérer les coordonnées x,y du click pour en déduire la zone et la couleur cliquée. Cela aurait permis d'avoir une palette qui puisse changer plus facilement.
Pour le moment je ne trouve pas et Il n' existe aucun contrôle de ruban qui ait une propriété 'backcolor' ou similaire
Cordialement
Dranreb
XLDnaute Barbatruc
Bonjour.
Il y a ce genre d'acquisition sur images, et aussi des constitutions automatiques de palettes dans mon CouleursCls.xlsm
www.excel-downloads.com
Il y a ce genre d'acquisition sur images, et aussi des constitutions automatiques de palettes dans mon CouleursCls.xlsm
Élaboration et utilisation de jeux de couleurs.
Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.
www.excel-downloads.com
chris
XLDnaute Barbatruc
Bonjour Dranreb
Cela a l'air super complet
Je vais le tester en complément en utilisant uniquement MenuCouleurs pour Colorer Fond, Police, Bordures
J'ai essayé d'en supprimer certains onglets mais cela ne marche plus.
Que dois-je garder comme onglets et UserForms ?
Cela a l'air super complet
Je vais le tester en complément en utilisant uniquement MenuCouleurs pour Colorer Fond, Police, Bordures
J'ai essayé d'en supprimer certains onglets mais cela ne marche plus.
Que dois-je garder comme onglets et UserForms ?
Dranreb
XLDnaute Barbatruc
Le mieux c'est de tout garder, on ne sait jamais, ça peut servir.
Si vraiment on n'en veut qu'une tout petite partie, la mettre dans un classeur perso équipé du module de classe Couleur.
Si vraiment on n'en veut qu'une tout petite partie, la mettre dans un classeur perso équipé du module de classe Couleur.
chris
XLDnaute Barbatruc
RE
J'ai gardé tout le classeur et tenté de supprimer les 3 premiers onglets mais cela plante ensuite l'utilisation de MenuCouleurs.
Pour info : je viens aussi de voir que la Function NomTeinte interfère avec le code d'un classeur,comme une fonction volatile.
Je l'ai mise en commentaire pour la désactiver : cela ne semble pas gêner le fonctionnement de MenuCouleurs.
J'ai gardé tout le classeur et tenté de supprimer les 3 premiers onglets mais cela plante ensuite l'utilisation de MenuCouleurs.
Pour info : je viens aussi de voir que la Function NomTeinte interfère avec le code d'un classeur,comme une fonction volatile.
Je l'ai mise en commentaire pour la désactiver : cela ne semble pas gêner le fonctionnement de MenuCouleurs.
Dernière édition:
Dranreb
XLDnaute Barbatruc
Il y a un nom "Jeu" qui doit recouvrir le tableau considéré pour les palettes. Ce nom est peut être détruit quand on supprime la feuille, mais il devrait suffir d'activer une autre feuille d'étude pour qu'il soit mis à jour.
Discussions similaires
- Résolu(e)
- Question
Membres actuellement en ligne
Aucun membre en ligne actuellement.
