Voir les 56 couleurs de bases d'Excel

Publié le par Thierry C.

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

 

http://www.excel-plus.fr

 

Merci !

Publié dans Bases VBA

Commenter cet article

daffyluc 16/09/2010 19:35



Ouupppss !!!


J'avais mal compris le but du code


@ bientôt



Thierry C. 16/09/2010 20:12



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 16/09/2010 18:52



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. 16/09/2010 19:05



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 13/11/2008 21:44

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

Thierry C. 14/11/2008 00:38


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