VBA - Demande pour suppression d'un caractère d'une chaine et aussi avec des cacractè

[mouaadiib]

Bonjour tout le monde,

J'essaye de voir plusieurs moyens de solutionner mon problème mais je n'y arrive pas.
J'ai donc plusieurs cellule de ce type.
DE-FRB-FxQ-dfsAnwendungen-MES-Application-O
DE-FRB-FxQ-dfsAnwendungen-Telefon-Telefonbuchdruck-W

J'aimerai grâce à une fonction arrivé à ceci
on garrde toutjours : DE-FRB-FxQ-dfs
On suprrimes les "-" après DE-FRB-FxQ-dfs
On remplace le dernier - par _
On ne met que les 8 caractères maximum après "DE-FRB-FxQ-dfs" de chaque chaîne trouvé entre le caractère "-".

DE-FRB-FxQ-dfsAnwendunMESApplicat_O
DE-FRB-FxQ-dfsAnwendunTelefonTelefonb_W

J'espère avoir été clair.
Merci Pour votre aide.
J 'ai essayé d'utiliser split etc..mais sans succès (enfin je suis novice dans le vba.)

 

[Pierrot93]

Re : VBA - Demande pour suppression d'un caractère d'une chaine et aussi avec des cac

Bonjour,

si résultat attendu est "DE-FRB-FxQ-dfsAnwendunMESApplicat_O", comprends pas trop le truc des 8caractères... peut être qu'un petit fichier avec données de départ et résultat attendu nous aiderait à t'aider...

bon après midi
@+
"

 

[Habitude]

Re : VBA - Demande pour suppression d'un caractère d'une chaine et aussi avec des cac

Bonjour

Avec fonction Personnalisée

Function RTxt(txt) As String
    Application.Volatile
    PREF = "DE-FRB-FxQ-dfs": v = Split(Split(txt, PREF)(1), "-")
    For i = LBound(v) To UBound(v) - 1: t = t & Left(v(i), 8): Next i
    RTxt = PREF & t & "_" & v(UBound(v))
End Function

 

[pierrejean]

Re : VBA - Demande pour suppression d'un caractère d'une chaine et aussi avec des cac

Bonjour

Salut Pierrot

Un essai avec fonction personnalisée

Edit : Salut Habitude (inspiration assez similaire !!! mais plus lente ,bien plus lente )

 

[mouaadiib]

Re : VBA - Demande pour suppression d'un caractère d'une chaine et aussi avec des cac

Merci à tous.
C'est exactement le résultat que je voulais
Je vais regarder à quoi corresdponds les fonctions lbound vbound etc...dans le code pour comprendre un peu quand même.

Bonne journée