Discussion :

[frazz]

Bonjour,

Je souhaite recuperer uniquement certains caracteres d'une chaine, je m'explique:

J'ai une chaine de type sting qui contient les trois lettre CRP, je voudrais obtenir une nouvelle chaine ne contenant uniquement les 4 caracteres suivants ce trigramme, j'ai trouvé certaines fonctions genre mid mais je n'arrive pas a trouver la solution correcte, quelqu'un aurait deja fait ce genre de chose?

Merci d'avance,
Frazz

[AnneCa]

Salut!
je ne sais pas si j'ai bien compris ton problème. Je suppose que tu as une chaine du type "CCCCCRPABD154" et tu voudrais retrouver "ABD1; Si c'est ça ton souci voici de quoi t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Test()
Dim machaine As String
Dim monresultat As String
Dim i As Long
    machaine = "CCCCCRPABD154"
    i = InStr(machaine, "CRP") 'i = index de "CRP" dans machaine
    monresultat = Mid(machaine, i + 3, 4)
    Debug.Print monresultat
End Sub

Si je suis à côté de la plaque, merci de nous fournir un peu plus de détails. Merci et bonne chance

[frazz]

Salut,

C'etait exactement ca, merci beaucoup de ton aide, jen'avai pas reussi a me servir de la fonction mid, il me manquait toujours un indice, probleme resolu merci beacoup a toi

Frazz

[AnneCa]

Bonne nouvelle! N'oublie pas de tagger ce problème comme résolu!
Le bouton se trouve en dessous...