1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub national()
Range("B6").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[2]=""63C-1167"",R1C3=""arrivee""),""clermont ferrand"", & _"
"IF(AND(RC[2]=""63C-1167"",R1C3=""depart""),""erstein"", & _"
"IF(AND(RC[2]=""67C-2841"",R1C3=""arrivee""),""erstein"", & _"
"IF(AND(RC[2]=""67C-2841"",R1C3=""depart""),""cavaillon"", & _"
"IF(AND(RC[2]=""67C-1163"",R1C3=""arrivee""),""erstein"", & _ "
"IF(AND(RC[2]=""67C-1163"",R1C3=""depart""),""clermont ferrand"", & _"
IF(RC[1]=""national"",VLOOKUP(RC[2],'P:\Commun\Transport Securité\Docs Madjid\[matrice.xls]matrice hermes'!R1C1:R800C3,3,0),"""")"
End Sub |
Partager