Formule Access : renvoi une partie d'une chaîne depuis un caract

Pas de recette toute faite, tu vas devoir créer tes formules au besoin avec les fonctions 'standard' : mid, left, right, instr...

Si c'est un signe unique, facilement, si c'est le n-ième signe, pas facile de manière simple...
Il faudra peut-être écrire une fonction pour cela...

Fonction = code = je suis incapable et je le regrette fortement.
C'est pas forcément un problème.

Ce site est (aussi) fait pour ça, tu verras que la création d'une fonction codée en VBA (et utilisable dans une requête) n'est finalement pas si difficile.

Expose ton problème de manière précise et je te dirai comment on peut envisager les choses... Ton histoire à deux colonnes me semble appropriée.

Les explications sont claires, sauf que le "ainsi de suite" n'est pas compréhensible par un ordinateur.

Il faut donc que tu donnes toutes les valeurs possibles de ta deuxième colonne avec le traitement que doit subir la première colonne.

Parce que là, V8 et V3 ont le même comportement, donc il est important d'être exhaustif.

Mais je te rassure, rien d'impossible.

Quel comportement adopter en fonction de la valeur de n, puisqu'on a vu que 8 et 3 allaient vers la même chose...

On va commencer simple, tu vas créer une fonction que tu pourras appeler n'importe où dans ta base et que l'on enrichira au fur et à mesure.

Dans ta base, tu vas créer un nouvel objet de type 'module'.
Dans ce module, tu vas insérer les lignes de code suivantes :

Function COUPE(Val1 As String, Val2 As String) As String
COUPE = Left(Val1, 5)
End Function

Tu sauves ensuite ton module.
Ces lignes de code vont servir à récupérer des données en entrée de la procédure et elle vont (pour l'instant) se borner à afficher les 5 premiers caractères de la valeur que l'on va passer en premier argument.

Tu vas aussi créer une requête, dans laquelle tu vas appeler cette fonction en lui donnant deux paramètres (le deuxième ne sert pas pour l'instant).

Ca donnera un truc comme ça :

SELECT Tab1.Col1, Tab1.Col2, COUPE(Col1,Col2) AS Expr1
FROM Tab1;

Bien entendu, tu remplaces Tab1, Col1 et Col2 par les noms des objets de ta base.

A l'exécution, si tout se passe bien, tu devrais avoir d'affiché :

- le contenu de Col1
- le contenu de Col2
- les 5 premiers caractères de Col1

Et voilà, la fonction est créée, il va maintenant falloir lui mettre le code qui correspond à ce que l'on souhaite faire au final.

- lire le deuxième paramètre (appelé plus académiquement 'argument')
- en fonction de ce deuxième paramètre, trifouiller le contenu du premier argument

Je vois que plusieurs valeurs de la deuxième colonne arrivent au même résultat, cela va simplifier le code.

La fonction est volontairement simplifiée, elle ne supprime pas les données mais se contente d'afficher les 5 premiers caractères.
C'est pour introduire le concept de fonction. Pour l'instant, essaye de la faire fonctionner, nous aviserons plus tard pour la suite.

Sinon, en vrai, ça peut donner cela (selon tes indications, mais je vois qu'elles sont confuses : pas de V-3, par exemple) :

Function COUPE(Val1 As String, Val2 As String) As String 
Dim Pos1 As Integer 
Dim Pos2 As Integer 
Dim Pos3 As Integer 
Dim Pos4 As Integer 
Dim Pos5 As Integer 
Dim Pos6 As Integer 
COUPE = "" 
Select Case Val2 
    Case "V4" 
        ' On ne garde que la gauche du premier > 
        ' Recherche du premier > 
        Pos1 = InStr(1, Val1, ">") 
        ' Récup des caractères juste avant 
        If Pos1 = 0 Then 
            COUPE = Val1 
        Else 
            COUPE = Left(Val1, Pos1 - 1) 
        End If 
    Case "V3" 
        ' On ne garde que la gauche du deuxième > 
        ' Recherche du premier > 
        Pos1 = InStr(1, Val1, ">") 
        ' Recherche du deuxième > 
        Pos2 = InStr(Pos1 + 1, Val1, ">") 
        If Pos2 = 0 Then 
            COUPE = Val1 
        Else 
            COUPE = Left(Val1, Pos2 - 1) 
        End If 
    Case "V2" 
        ' On ne garde que la gauche du troisième > 
        Pos1 = InStr(1, Val1, ">") 
        Pos2 = InStr(Pos1 + 1, Val1, ">") 
        Pos3 = InStr(Pos2 + 1, Val1, ">") 
        If Pos3 = 0 Then 
            COUPE = Val1 
        Else 
            COUPE = Left(Val1, Pos3 - 1) 
        End If 
    Case "V1" 
        ' On ne garde que la gauche du quatrième > 
        Pos1 = InStr(1, Val1, ">") 
        Pos2 = InStr(Pos1 + 1, Val1, ">") 
        Pos3 = InStr(Pos2 + 1, Val1, ">") 
        Pos4 = InStr(Pos3 + 1, Val1, ">") 
        If Pos4 = 0 Then 
            COUPE = Val1 
        Else 
            COUPE = Left(Val1, Pos4 - 1) 
        End If 
    Case "V-4" 
        ' On ne garde que la gauche du cinquième > 
        Pos1 = InStr(1, Val1, ">") 
        Pos2 = InStr(Pos1 + 1, Val1, ">") 
        Pos3 = InStr(Pos2 + 1, Val1, ">") 
        Pos4 = InStr(Pos3 + 1, Val1, ">") 
        Pos5 = InStr(Pos4 + 1, Val1, ">") 
        If Pos5 = 0 Then 
            COUPE = Val1 
        Else 
            COUPE = Left(Val1, Pos5 - 1) 
        End If 
    Case "V-2" 
        ' On ne garde que la gauche du sixième > 
        Pos1 = InStr(1, Val1, ">") 
        Pos2 = InStr(Pos1 + 1, Val1, ">") 
        Pos3 = InStr(Pos2 + 1, Val1, ">") 
        Pos4 = InStr(Pos3 + 1, Val1, ">") 
        Pos5 = InStr(Pos4 + 1, Val1, ">") 
        Pos6 = InStr(Pos5 + 1, Val1, ">") 
        If Pos6 = 0 Then 
            COUPE = Val1 
        Else 
            COUPE = Left(Val1, Pos6 - 1) 
        End If 
    Case Else 
        COUPE = Val1 
End Select 
'COUPE = Left(Val1, 5) 
End Function 

Ca n'est certes, pas joli, mais ça fonctionne.
Si l'on voulait être efficace, on aurait développé une autre fonction que l'on appellerait pour trouver la position du n-ième >, mais ce n'est pas le propos...

La question est :
as-tu testé ? Avec succès ?

Sinon, c'est à modifier en fonction des vraies contraintes...