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
| Public Function create_fibre(k, l, f1, f2, FibreName)
Dim Slot As Integer, Port As Integer, g As Integer
If l = 3 Then
For g = 4 To 1000 Step 12
If f2.Cells(g, 2) = "" Then
dbt_ligne_classeur2 = g
f2.Cells(g, 2) = FibreName
g = 1000
ElseIf f2.Cells(i, 2) = FibreName Then
dbt_ligne_claseur2 = g
g = 1000
End If
Next g
Slot_Port = f1.Cells(k, 2)
recup_slot = Left(Slot_Port, 1)
recup_port = Right(Slot_Port, 1)
Slot = Val(recup_slot)
Port = Val(recup_port)
End If
End Function |
Partager