Transformer chaîne caractères avec tiret => A-D en ABCD

[flint6593]

Bonjour,
J'aurais besoin de l'aide des spécialistes...
Alors tout est dans le titre, mais je m'explique.

J'ai un fichier avec des références: A, B, C, D, E...
Lorsqu'une pièce est valable pour plusieurs références à la suite "ABCDEF", dans ma cellule j'ai "A-F".

J'aimerais pouvoir transformer ça "A-F" en ça "ABCDEF" afin de pouvoir traiter par macro derrière...
Pour info, je n'ai pas de références supérieures à Z.

J'ai essayé avec table de conversion, mais je n'y arrive pas...

Merci d'avance pour votre aide,
Flint

 

[Modeste geedee]

Re : Transformer chaîne caractères avec tiret => A-D en ABCD

Bonsour®
un petit coup de baguette magique...



définir préalablement la variable Alphabet :
="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
puis le nom Flint :
=STXT(Alphabet;TROUVE(GAUCHE(A1);Alphabet);TROUVE(DROITE(A1);Alphabet)-TROUVE(GAUCHE(A1);Alphabet)+1)

 

[flint6593]

Re : Transformer chaîne caractères avec tiret => A-D en ABCD

Ouha!!! Sympa!!!
Je vais essayer de coder ça en vba!!! (car je dois automatiser le traitement).
En tous cas merci!!! C'est super sympa!!

 

[Theze]

Re : Transformer chaîne caractères avec tiret => A-D en ABCD

Bonjour,

En VBA :

Sub Test()

    Dim Alpha As String
    Dim Chaine As String
    
    Alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    
    Chaine = "F-P"
        
    MsgBox Mid(Alpha, InStr(Alpha, Left(Chaine, 1)), InStrRev(Alpha, Right(Chaine, 1)) - InStr(Alpha, Left(Chaine, 1)) + 1)
    
End Sub

Hervé.

 

[flint6593]

Re : Transformer chaîne caractères avec tiret => A-D en ABCD

Bonjour Hervé.
Merci beaucoup cela m'aide vraiment;
J'avais trouvé la transfo mais c'était une usine à gaz ^^
Merci,
Flint

 

[flint6593]

Re : Transformer chaîne caractères avec tiret => A-D en ABCD

Une petite dernière précision, est-ce que vous connaîtriez ce code mais pour des ce type de combinaisons:

A-DHJLN-RTV-Z

=> ABCDHJLNOPQRTVWXYZ

En fait j'aurais souvent ça dans mon fichier...
Merci encore...