Astuces Excel
  1. Astuces Excel
  3. Création de colors avec boucle
Intereting Posts
Comment puis-je résoudre la formule de la string pour cette validation des données dépendantes dans Excel? Python – Besoin d'aide pour calculer la valeur du paramètre dans excel Définir la scope à la dernière rangée Essayer d'ouvrir un file .txt dans le classur Excel de mon projet Valeurs de plage de pâte VBA en dernière ligne VBA Drop Down crée des courriels Outlook HTMLBody Comment countr le nombre de pics dans le graphique? parsing graphique python winapi vérifier si la feuille existe Aide Excel-VBA – Validation de données trop longue, besoin d'une alternative find la fin de la ligne disjointe VBA valeur de time ("23:50") Accès à l'élément sélectionné de listbox sur IE à l'aide de Excel VBA Code Excel VBA pour soustraire INDEX / MATCH Retournant la mauvaise valeur. Qu'ai-je fait de mal? Table de transfert de MS Office Automation d'excel vers Word using PublishObjects.Add

Création de colors avec boucle

Je voudrais créer un maximum de douze colors différentes en bouclant avec des valeurs de couleur incrémentales. Le problème est que je reçois des nuances de la même couleur ou trop shinyes ou trop sombres. J'utilise interior.color = xxxxxxx .

Une idée de la façon de réaliser de belles colors?

Cela fera un beau arc-en-ciel 🙂 

 Sub colors() Application.ScreenUpdating = False r = 1 c = 1 rv = 50 Do Until rv >= 255 gv = 50 r = 1 Do Until gv >= 255 bv = 50 c = 1 Do Until bv >= 255 Cells(r, cc + c).Interior.Color = RGB(rv, gv, bv) 'Print Nnumbers for color 'Cells(r, cc + c).Value = rv & ", " & gv & ", " & bv bv = bv + 20 c = c + 1 Loop gv = gv + 20 r = r + 1 Loop rv = rv + 20 cc = cc + 1 Loop Do Until rv <= 0 gv = 50 r = 1 Do Until gv >= 255 bv = 50 c = 1 Do Until bv >= 255 Cells(r, cc + c).Interior.Color = RGB(rv, gv, bv) 'Print Nnumbers for color 'Cells(r, cc + c).Value = rv & ", " & gv & ", " & bv bv = bv + 20 c = c + 1 Loop gv = gv + 20 r = r + 1 Loop rv = rv - 20 cc = cc + 1 Loop End Sub

Disclaimer: cela ne produit pas de roue pleine couleur, il suffit d'avoir une bonne partie du spectre. Par exemple, il manque la couleur rose.

Vous pouvez utiliser .Interior.colorindex = i , i étant un integer de 0 à 56 selon http://dmcritchie.mvps.org/excel/colors.htm . Cordialement,