Bonjour à tous !

Je souhaiterais développer un programme permettant de comparer deux valeurs sur différents feuillets. Je m'explique.

Sur un feuillet, je dispose du nom d'un site à visiter, avec une durée de transport pour le rejoindre, communiquée par un tiers.
Sur un second feuillet, je dispose des durées usuelles pour effectuer le trajet propre à un site.

Je souhaiterais vérifier que les durées mentionnées sur le feuillet 1 correspondent aux durées usuelles renseignées sur le feuillet 2 (+/- 10%).
J'ai codé le programme ci-dessous pour essayer de répondre à ce besoin (en sélectionnant initialement la colonne des durées du feuillet 1) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Test()
 
Dim cel1 As Range
Dim cel2 As Range
Dim site As String
Dim site2 As String
Dim duree1 As Double
Dim duree2 As Double
Dim i As Double
 
 
For Each cel1 In Selection
 
site = cel1.Offset(0, -3).Value
site2 = Worksheets("Feuil2").Cells(1, cel1.Row).Value
 
    If site2 = site Then
 
        duree2 = Worksheets("Feuil2").Cells(2, cel1.Row).Value
 
    End If
 
 
    If duree2 > 1.1 * cel1.Value Then
 
        cel1.Interior.ColorIndex = 3
 
     ElseIf duree2 < 0.9 * cel1.Value Then
 
        cel1.Interior.ColorIndex = 2
 
    Else
 
        cel1.Interior.ColorIndex = 1
 
    End If
 
Next
 
 
End Sub
Qu'en pensez-vous ? (mis à part que ça ne semble pas fonctionner tel quel, à l'heure actuelle )
Merci d'avance de votre aide !