CheckRoad secondaire public (iRow comme nombre entier)
Faible lLastRow en tant que longtemps
LastRow& = cellules (Rows.Count, 3).End (xlUp). Rangée
sRoad = cellules (iRow, 2).Value
Début = cellules (iRow, 3).Value
Finition = cellules (iRow, 4).Value
bWarning = faux
Pour IX = 2 à LastRow
S'iRow <> IX alors
Si cellules (IX, 2).Value = puis sRoad
Si cellules (début d'IX, de >= 3).Value et cellules (IX, 3).Value <>= début et cellules (IX, 4).Value <>
|