Mettre en couleur une cellule excel

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 457 fois - Téléchargée 31 fois

Contenu du snippet

Une methode efficace pour mettre en couleur une cellule Excel via un code VB
m'ayant ballader sur le Forum cette question etait bcp posée, ben voila la reponse

Source / Exemple :


'**********************************************************
'Coder par FeuxX
'**********************************************************
'================================================
'dans un Module
Global newexcel As New Excel.Application
'================================================

'=================================================
'code
'=================================================
'j'ouvre excel
newexcel.Visible = True
'j'ajout un classeur
newexcel.Workbooks.Add
' on met en gras la cellule C2
newexcel.Range("C2").Font.Bold = True
' on enleve le cadrillage
newexcel.ActiveWindow.DisplayGridlines = False
'====================================================================================
'Mise en couleur des cellules
'=============================
'couleurs
'---------
'Aqua       =>      8, 28, 33, 34, 42
'Black      =)>     1, 51, 52
'Blue       =)>     5, 32, 41, 49
'Fuchsia    =)>     7, 26
'Gray       =)>     16, 46, 47, 48, 56
'Green      =)>     10, 43
'Lime       =)>     4
'Maroon     =)>     9, 30, 53
'Navy       =)>     11, 25, 55
'Olive      =)>     12, 44, 45
'Purple     =)>     13, 18, 21, 29, 54
'Red        =)>     3
'Silver     =)>     15, 17, 20, 22, 24, 35, 36, 37, 38, 39
'Teal       =)>     14, 23, 31, 50
'White      =)>     2, 19, 40
'Yellow     =)>     6, 27
'-------------
'range(cells(a,b),cells(c,d)) 'procedure de selection de champs
'(a,b) = colone
'a= debut de la selection
'b= nombre de champs selectioner apres
'(c,d) = ligne
'c= debut de selection
'd= nombre de champs selectioner apres
'======================================================================================
'selectionne la case b2 est la mets de couleur jaune
Selection.Range(Cells(2, 2), Cells(2, 3)).Interior.ColorIndex = 6

A voir également

Ajouter un commentaire Commentaires
Elitim Messages postés 5 Date d'inscription vendredi 29 octobre 2004 Statut Membre Dernière intervention 1 novembre 2004
29 oct. 2004 à 16:16
Bonjour,
Est-il possible d'adapter ce code pour qu'une cellule soit coloriée en vert en cas de bonne réponse à une question (dont la réponse est dans une autre cellule masquée) et rouge si la réponse est fausse ?

merci d'avance
Elitim Messages postés 5 Date d'inscription vendredi 29 octobre 2004 Statut Membre Dernière intervention 1 novembre 2004
29 oct. 2004 à 16:15
Bonjour,
Est-il possible d'adapter ce code pour qu'une cellule soit coloriée en vert en cas de bonne réponse à une question (dont la réponse est dans une autre cellule masquée) et rouge si la réponse est fausse ?

merci d'avance
osmose06 Messages postés 28 Date d'inscription samedi 29 décembre 2001 Statut Membre Dernière intervention 28 janvier 2006
8 déc. 2003 à 22:23
Super, juste ce que je cherchais !

Merci m'sieur

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.