Bonjour a tous , je dispose du code suivant
(la fonction rightnum est une fonction fonction annexe qui me renvoie le premier entier a droite a partir d une position)
Je vous explique mon probleme , comment faire pour que ma fonction tienne compte du p ? car la fonction replace ne peut transofrmer q un seul caractere en l occurence ici mon p+ dc si mon code posséde un p il ne sera pas remplace comme je voudrais
Code:
Function FindStk(ByVal code As String) As Variant
Dim pos1 As Integer
Dim pos2 As Integer
Dim str As String
Dim str1 As String
str1 = LCase(code)
If str1 Like "*p+*" Or str1 Like "*p *" Or str1 Like "*rec-*" Then
str = Replace(str1, "p+", "rec-")
pos1 = InStr(str, "rec-")
FindStk = RightNum(Mid(str, pos1))
ElseIf str1 Like "*ws*" Or str1 Like "*wc*" Then
str = Replace(str1, "ws", "wc")
pos2 = InStr(str, "wc")
FindStk = RightNum(Mid(str1, Len(FindDates(str1)), pos2 - Len(FindDates(str1))))
Else: FindStk = ""
End If
End Function(la fonction rightnum est une fonction fonction annexe qui me renvoie le premier entier a droite a partir d une position)
Je vous explique mon probleme , comment faire pour que ma fonction tienne compte du p ? car la fonction replace ne peut transofrmer q un seul caractere en l occurence ici mon p+ dc si mon code posséde un p il ne sera pas remplace comme je voudrais
Dernière édition:
