Re : Comparer des valeurs et renvoyer une fleche...
Bonjour Yaloo,Chti160,le forum,
Bon , ChTi 160 , quand ça marchera n'hésite pas à nous en faire part...celà me semble intéressant...
Sinon , Yaloo , j'ai intégré ta macro "tester1" dans mon derniere fichier mais celà ne fonctionne pas.
Normal, la valeur du point rouge a changé.
J'ai donc modifié et rien n'apparait...pas de message d'erreur non plus...
"
Sub Tester()
Dim i&, j&, k&, l&, a, b, T
T = Timer
Application.ScreenUpdating = 0
[A94].CurrentRegion.Offset(1).Clear
a = [A5:AP43]
b = [A93:AP93]
For i = 4 To UBound(a)
k = i + 4
If Not IsError(Application.CountIf(Range(Cells(k, 2), Cells(k, 41)), 0.25)) Then
j = [A65536].End(3)(2).Row
For l = 2 To 41
If Not IsEmpty(a(i, l)) And a(i, l) = 0.25 Then
Cells(j, 1) = Cells(k, 1)
Cells(j, Application.Match(a(1, l), b, 0.25)).Resize(, 2).Interior.ColorIndex = 3
End If
Next
End If
Next
[A93].CurrentRegion.Borders.LineStyle = xlContinuous
For i = 2 To 39 Step 2
Cells(94, i).Resize(j).Borders(xlEdgeRight).LineStyle = xlNone
Next
Application.GoTo [A93], -1
Beep
Application.ScreenUpdating = -1
End Sub
"
A+
Chris