Cellule de couleur et petites erreurs

[docBZH]

Hello,

Je sais que je vais exagérer mais c'est tellement agréable à utiliser ce tableau ! Il y a certains jours où l'amplitude ne s'inscrit pas. J'aimerais en plus, une colonne supplémentaire avec des couleurs différentes pour :
les amplitudes de moins de 5h15
les amplitudes comprises de 5h16 à 12h
les amplitudes de 12h01 à 14h

En fait, j'aimerais un moyen de différencier les 3 amplitudes (petite, moyenne, grande).

J'espère que vous me comprendrez !!

Je tiens à remercier abcd pour son travail sur ce tableau !

Merci à vous

DocBZH😉

 

[Excel-lent]

Re : Cellule de couleur et petites erreurs

Bonjour DocBZH,

Une solution : utiliser les MFC (Mise en Forme Conditionnel), cf exemple ci-joint pour ta colonne G.

L'amplitude prendra une couleur particulière selon si elle est petite, moyenne ou grande.

Par contre, sur cette colonne, tu as déjà une MFC : JOURSEM()!

Faut choisir entre les deux 😉

Bonne journée

 

[PMO2]

Re : Cellule de couleur et petites erreurs

Bonjour,

Voici un code à copier dans la page de code de "Feuil1".
Cela fonctionne à partir de l'évènement Worksheet_Change de "Feuil1" et colorie la conne "K"
En rouge les amplitudes < ou = 5h15
En bleu les amplitudes > 5h15 et < ou = 12h
En vert les amplitudes > 12h et < ou = 14h
En magenta les amplitudes > 14h (j'ai ajouté à tout hasard ???)

*******************
Const AMPLITUDE As String = "G14:G44"

Private Sub Worksheet_Change(ByVal Target As Range)
Call Couleurs
End Sub

Sub Couleurs(Optional dummy As Byte)
Dim R As Range
Dim C As Range
Dim x#
Dim Couleur&
Set R = Range(AMPLITUDE)
For Each C In R
Couleur& = vbWhite
If C <> "" Then
x# = C * 24
If x# <= 5.25 Then
Couleur& = vbRed
ElseIf x# > 5.25 And x# <= 12 Then
Couleur& = vbYellow
ElseIf x# > 12 And x# <= 14 Then
Couleur& = vbGreen
ElseIf x# > 14 Then
Couleur& = vbMagenta
End If
End If
Set C = C.Offset(0, 4)
C.Interior.Color = Couleur&
Next C
End Sub
*******************

Cordialement.

PMO
Patrick Morange