Dim sLigne As String Dim aMots() As String Dim sResultat As String Dim r As Long sLigne = "BARQUETTES DE FRAISES GARIGUETTES" aMots = Split(sLigne, " ", , vbTextCompare) ' On sait que la structure est toujours "machin de" ' c'est à dire que les 2 premiers mots sont à supprimer ' L'index du tableau aMots commence à 0, donc la première ' donnée intéressante est à l'index 2 sResultat = "" For r = 2 To UBound(aMots) sResultat = aMots(r) & " " Next r ' supprime le dernier espace sResultat = Trim$(sResultat)
sLigne = "BARQUETTES DE FRAISES GARIGUETTES" sResultat = sLigne sResultat = Replace(sResultat, "Barquettes de ", vbNullString, , , vbTextCompare) sResultat = Replace(sResultat, "Caisses de ", vbNullString, , , vbTextCompare) sResultat = Replace(sResultat, "Caissette de ", vbNullString, , , vbTextCompare)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question