Excel 2003: Liste déroulante avec cellule qui se colore

Oui effectivement, le soucis est que je suis en réseau, ce n'est pas moi qui décide avec quels outils je travail sur mon poste, et je n'ai aucuns droits d'installer le moindre programme. Chez moi, pas de soucis, je travail avec une version office 2007.

Cordialement.

un peu different mais a tester meme principe sauf que tout passe par des boutons

Re,

Pour Excel 2003 ... il faut une macro évènementielle ...

Ci-dessous un exemple à adapter à ta situation ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
Dim plage As Range

Set plage = Range("A2:F1000")
  For Each cell In plage
    If cell.Value = "P" Then cell.Interior.ColorIndex = 7
    If cell.Value = "RTT" Then cell.Interior.ColorIndex = 6
    If cell.Value = "PHS" Then cell.Interior.ColorIndex = 5
    If cell.Value = "PR" Then cell.Interior.ColorIndex = 4
    ' etc ... pour tous les cas possibes ...
  Next cell

End Sub

Génial Ceuzin ! ! !

Grand merci ! Si tu as l'occasion de m'expliquer pas à pas la manip, je suis preneur

Encore merci.

Bonjour,

Voir PJ

On sélectionne le champ puis on choisi le type de congés

Ceuzin

Comment je fais exactement pour entrer le code dans la feuille de calcul ?

C'est dans "Outils" puis "Macro" ?

Dans le VBA ?

Merci pour le renseignement .

Si je comprend bien:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range

Dim plage As Range

Set plage = Range("A2:F1000") (Ici on indique la plage concernée, de la cellule A2 jusqu'à F1000)

For Each cell In plage

If cell.Value = "P" Then cell.Interior.ColorIndex = 7 (Et pour chaque ligne comme celle-ci on détermine la couleur cellule en fonction du texte correspondant sur la plage "A2:F1000 c'est ça ? )

If cell.Value = "RTT" Then cell.Interior.ColorIndex = 6

If cell.Value = "PHS" Then cell.Interior.ColorIndex = 5

If cell.Value = "PR" Then cell.Interior.ColorIndex = 4

' etc ... pour tous les cas possibes ...

Next cell

End Sub

Bonjour,

Il suffit de pointer le nom de l'onglet et de faire un clic droit ... pour voir le code ...

OK ! merci à toi.

Petite confirmation, si je souhaite dans une cellule, je me trompe en mettant RTT par exemple, je l'efface, la couleur ne se remet pas sans couleur, elle reste avec la couleur RTT, alors que je voudrais qu'elle revienne à l'état d'origine, donc si je rajoute sur la feuille:

If cell.Value = "" Then cell.Interior.ColorIndex = 0

Aurais-je le résultat attendu ?

Re,

A la place de 0 ... tu as besoin de xlNone ...

Merci pour tes remerciements ....