Discussion :

[isfet]

bonjour

voici mon projet de fonction

dans une colonne j'ai un nom de voie, et dans toutes les colonnes de droites j'ai les valeurs associées a cette voie

et a gauche j'aurais un minimum et un maximum

pour l'instant je pense faire une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
while selection.offset(0,i) <> ""
' if ma valeur n'est pas entre min max call coloriage
' else i = i + 1
wend

(si j'ai une valeur qui sors du lot, je la coloris et le nom de voie aussi)
mais est-ce la méthode la plus rapide ?

merci d'avoir pris de votre temps pour moi

isfet

[larryj]

Bonjour,

Pourquoi ne pas tout simplement utilisé l'outil de mise en forme conditionnelle d'Excel ? Y a-t-il des contraintes particulières ?

[zyhack]

Bonjour

je ne sais pas si il y a plus rapide mais par contre il te faut enlever le Else car à la première valeur qui sortira du lot i ne sera plus incrémenté.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
while selection.offset(0,i) <> ""
' if ma valeur n'est pas entre min max call coloriage
' i = i + 1 
wend

[isfet]

oui mais je ne connais pas trop les outils integrés d'excel, j'y ai pensé mais comment faire pour qu'il me colorie le nom de la voie si il y a une mauvaise valeur ?


@zyhack merci, j'ai ecris ce petit et bete bout de code en 10 secondes pour illustrer mn exemple

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim i As Long
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
    With Range(Cells(i, 5), Cells(i, 35))
        With .FormatConditions
            .Delete
            .Add Type:=xlCellValue, Operator:=xlNotBetween, Formula1:="=" & Range("A" & i).Address, Formula2:="=" & Range("B" & i).Address
        End With
        .FormatConditions(1).Interior.ColorIndex = 40
    End With
Next i