- Private Function InvMid(sString As String, lStart As Long, Optional lStop As Long = 1) As String
- ' Renvoie l'inverse de Mid()
- ' Ex :
- ' Mid("salut", 2, 3) = "alu"
- ' InvMid("salut", 2, 3) = "st"
- InvMid = Left(sString, lStart - 1) & Right(sString, Len(sString) - lStart - lStop + 1)
- End Function
Private Function InvMid(sString As String, lStart As Long, Optional lStop As Long = 1) As String
' Renvoie l'inverse de Mid()
' Ex :
' Mid("salut", 2, 3) = "alu"
' InvMid("salut", 2, 3) = "st"
InvMid = Left(sString, lStart - 1) & Right(sString, Len(sString) - lStart - lStop + 1)
End Function