lafafmentvotre
Messages postés12Date d'inscriptiondimanche 20 mars 2005StatutMembreDernière intervention12 octobre 2008
-
11 oct. 2008 à 14:01
lafafmentvotre
Messages postés12Date d'inscriptiondimanche 20 mars 2005StatutMembreDernière intervention12 octobre 2008
-
12 oct. 2008 à 10:08
Bonjour
J'ai un onglet excel "LISTE" avec une liste de valeur en colonne A et en
colonne B des paramètres de couleur de cellule et couleur de police (genre fond rouge et police jaune en gras)
Dans mon autre onglet, je créé une liste déroulante et quand je
sélectionne une valeur, la cellule est automatiquement colorée en
fonction de la liste de mon onglet LISTE
Hors cela ne fonctionne pas pour la couleur de police ou le gras)
lafafmentvotre
Messages postés12Date d'inscriptiondimanche 20 mars 2005StatutMembreDernière intervention12 octobre 2008 11 oct. 2008 à 14:21
Bingo
J'ai trouvé pour la couleur de texte :
Sub coloration(cellule)
On Error GoTo Fin
For Each code In Application.Range("liste")
If code.Value = cellule.Value Then
cellule.Interior.ColorIndex = code.Offset(0, 1).Interior.ColorIndex
cellule.Interior.Pattern = code.Offset(0, 1).Interior.Pattern
cellule.Font.ColorIndex = code.Offset(0, 1).Font.ColorIndex
Exit Sub
End If
Next
cellule.Interior.ColorIndex = Application.Range("Nontrouvé").Interior.ColorIndex
Fin:
End Sub
Par contre je sèche sur l'application de ces paramètres sur ma ligne genre A1 à H1