Cellule de couleur et petites erreurs

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

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