[excel] formule ou macro
Résolu/Fermé
martialb
Messages postés
2
Date d'inscription
samedi 3 septembre 2005
Statut
Membre
Dernière intervention
3 septembre 2005
-
3 sept. 2005 à 08:22
martialb Messages postés 2 Date d'inscription samedi 3 septembre 2005 Statut Membre Dernière intervention 3 septembre 2005 - 3 sept. 2005 à 11:26
martialb Messages postés 2 Date d'inscription samedi 3 septembre 2005 Statut Membre Dernière intervention 3 septembre 2005 - 3 sept. 2005 à 11:26
Bonjour
je travaille sur excel 2000 sur des tableaux de moyennes.Chaque cellule a un fond gris avec des caractères noirs.
J'aimerai une formule ou macro qui puisse me changer soit la couleur du fond soit la couleur du caractère en fonction de la valeur de la moyenne.
Merci d'avance pour votre aide
bonne journée
martial
je travaille sur excel 2000 sur des tableaux de moyennes.Chaque cellule a un fond gris avec des caractères noirs.
J'aimerai une formule ou macro qui puisse me changer soit la couleur du fond soit la couleur du caractère en fonction de la valeur de la moyenne.
Merci d'avance pour votre aide
bonne journée
martial
A voir également:
- [excel] formule ou macro
- Formule excel si et - Guide
- Formule somme excel colonne - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel moyenne - Guide
- Excel mise en forme conditionnelle formule - Guide
1 réponse
WhiteFang
Messages postés
2063
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
3 sept. 2005 à 10:13
3 sept. 2005 à 10:13
;-)
Ne sachant pas si Excel 2000 possède la fonction "Mise en forme conditionnelle (dans le menu Format), tu as ce code qui fonctionnera :
Pour les couleurs, vas voir dans l'aide VBA et recherche "PatternColorIndex, propriété", tu auras la table des couleurs et les codes correspondants...
Pour le test de valeurs, avec les "Case", à toi de définir...
;-)
Ne sachant pas si Excel 2000 possède la fonction "Mise en forme conditionnelle (dans le menu Format), tu as ce code qui fonctionnera :
Dim L, C For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column Select Case Cells(L, C).Value Case 10 To 20: ActiveCell.Interior.ColorIndex = 2 Case Is >= 20, Is < 50: ActiveCell.Interior.ColorIndex = 3 End Select Next Next
Pour les couleurs, vas voir dans l'aide VBA et recherche "PatternColorIndex, propriété", tu auras la table des couleurs et les codes correspondants...
Pour le test de valeurs, avec les "Case", à toi de définir...
;-)
3 sept. 2005 à 11:26
bonne journée