De la couleur dans Excel

[jeyl35]

Bonjour,

Je suis confronté à un pb dans Excel. Je souhaiterais créer un planning mensuel avec des astreintes horaires par personnes. Pour simplifier le pb, je voudrais que lorsque je renseigne un type d'initiales dans une des cases du planning, ces initiales s'écrivent dans une couleur prédéfinies.

Ma deuxième question, est je pense plus simple. je souhaiterais créer un compteur automatique. C'est-à-dire à chaque fois que je renseigne un type d'initiales, cela compte 1h dans une autre cellule.
Je joins un fichier.

La légende de couleur des initiales se trouvent en cellule R36. Le compteur se trouve à gauche en C35.

Merci pour votre aide précieuse. Si c'est faisable, c'est top car dans le cas contraire je dois me taper les couleurs à la mano tout le temps.

 

[chris]

Re : De la couleur dans Excel

Bonjour

Pourquoi pas une mise en forme conditionnelle pour la couleur des initiales ?

Pour les comptages voir NB.SI.

 

[PMO2]

Re : De la couleur dans Excel

Bonjour,

Une piste en VBA.
Copiez le code suivant dans la fenêtre de code de la feuille concernée

'### Constantes à adapter ###
Const MODELE_COULEUR As String = "R36:R44"
Const MA_PLAGE As String = "C5:O32"
'############################

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
Dim C As Range
'---
Set R = Range(MA_PLAGE)
If Not Application.Intersect(Target, R) Is Nothing Then
  With Target.Font
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 0
    .Bold = False
  End With
  '---
  Set R = Range(MODELE_COULEUR)
  For Each C In R
    If UCase(Target) = UCase(C) Then
      Application.EnableEvents = False
      Target = C
      With Target.Font
        .Color = C.Font.Color
        .Bold = C.Font.Bold
      End With
      Application.EnableEvents = True
      Exit For
    End If
  Next C
End If
End Sub

 

[jeyl35]

Re : De la couleur dans Excel

Bjr,

Merci pour vos réponses.
@chris: En MFC, je ne vois pas trop comment faire. Si tu as un modèle à proposer pour une cellule je suis preneur.
@PM02: Ca fonctionne pas mal du tout. Par contre, il y a certaines cellules de la feuille pour lesquelles ca ne fonctionne pas. Est-il possible d'appliquer cela à toutes les cellules de la feuilles?
Cdt,

Jeyl35

 

[jeyl35]

Re : De la couleur dans Excel

Re,

@PM02: Je pense avoir trouvé. Il suffit juste de modifier la plage sur la 3ème ligne et ça à l'air de fonctionner.

Merci bcp.

Bonne fin de journée. Je conserve précieusement le code.

 

[PMO2]

Re : De la couleur dans Excel

@PM02: Je pense avoir trouvé. Il suffit juste de modifier la plage sur la 3ème ligne et ça à l'air de fonctionner.

C'est exactement cela.
Comme je ne suis pas en situation, il vous appartient de définir la plage de cellules qui est concernée.