Voir les 56 couleurs de bases d'Excel

Le blog est désormais à l'adresse unique :

http://www.excel-plus.fr

Merci !

Comments

[daffyluc]

Ouupppss !!!


J'avais mal compris le but du code


@ bientôt

[Thierry C.]

Ben non au contraire, une amélioration ou une contre-proposition n'est pas un souci !!


Et puis, j'aime bien échanger sur ce que je propose. Ca me permet d'apprendre aussi des choses sur le sujet abordé. En l'occurence, ça simplifie la vie pour ceux qui ne veulent pas saisir les
numéros de couleur !!

[daffyluc]

Bonjour,


Il y a une petite erreur dans cette macro : il manque la ligne Cells(i,1).formula = i


Sub couleurs()
    Range("A1").Select
    For i = 1 To 56
        Cells(i, 1).Formula = i
        ActiveCell.Offset(0, 1).Interior.ColorIndex = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Next i
    Range("A1").Select
End Sub


Merci pour toutes les infos que vous nous délivrez.


Cordialement

[Thierry C.]

Bonjour Cher ami,


Si on regarde le déroulé de l'article ou je demande de saisir à partir de A1 les chiffres de 1 à 56, il n'y a pas d'erreur dans le code. L'idée de cet article est en
effet de montrer comment cela fonctionne mais pas de générer automatiquement les 56 couleurs avec leur code.


En revanche, l'ajout de cette ligne de code dispense de saisir de 1 à 56. Et est pratique pour du code "prêt à utiliser". Merci pour la précision !


 

[Maître Zen]

Bonjour et bienvenue dans une de mes communautés.Amicalement.

[Thierry C.]

Bonjour et merci pour l'acceptation dans la communauté. @+ tard.
Thierry