Déconcatener une structure variable

[Stéphane79]

Bonjour à tous,

J'ignore comment déconcatener un code (numérique)de son libellé sachant que le code n'a pas de structure fixe.

Exemples : 52025 - Tartempion ou 222 - Durant

Je souhaiterais extraine le code numérique dans une colonne et le libellé dans une autre. Le trait d'union est toujours présent entre les deux.

Merci d'avance pour votre aide.

Stéphane79

 

[Hervé]

bonsoir

si tu veux une réponse en vba, ta chaine en A1, renvoi en B1 et c1 :

'astuce d'av
Range('b1') = Trim(Split(Range('a1'), '-')(0))
Range('c1') = Trim(Split(Range('a1'), '-')(1))


salut

 

[porcinet82]

Salut Stephane79,

Je pense que certains t'apporterons une réponse sans macro mais je te donne quand meme un petit bout de code qui fonctionne selon quelques conditions (tes données de départ sont dans la colonne A, le code numérique sera en colonne B, le libellé dans la colonne C, et tu dois avoir un espace suivi de 2 autres caractères entre le code numérique et le libellé).

Sub test()
Dim i As Integer

For i = 1 To Range('A65536').End(xlUp).Row
    Cells(i, 2).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, ' '))
    Cells(i, 3).Value = Mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, ' ') + 3, Len(Cells(i, 1).Value))
Next i
End Sub

Je ne sais pas si j'ai été clair??? :silly:

@+

 

[porcinet82]

Salut Hervé,

Ca faisait longtemps 😉
Je vois qu'une fois de plus ta reponse est plus courte que la mienne...

Au plaisir,

@+

 

[JJ59]

Bonsoir tout le monde

peut-être auusi par convertit

menu données, convertir

largeur delimite puis autre et saisir le tiret

Bonsoir

Jean-Jacques

 

[Stéphane79]

Bonjour Hervé,

Merci pour ta réponse cela fonctionne très bien


Stéphane79

 

[Stéphane79]

Bonjour

Et merci également pour ta réponse qui fonctionne également très bien

@ +

Stéphane79

 

[Stéphane79]

Merci également à JJ59 !

Je connaissait la fonction convertir mais uniquement sur les structure fixe !

@ +

Stéphane79

 

[KIM]

Bonjour Tout le monde,
J'ai eu le meme souci,
ci-dessous l'exemple que m'a envoyé mon ami JeanMarie (ChTi160).
Cel.value pour l'exemple cela représente la chaine de caractères à traiter

Sub test()
Dim Cel As Range
'voir aide VBA pour Mid et InStr
'ici on recherche la possition de '-' en partant du premier caractere de la valeur de la cellule _
on récupère ce qu'il y a devant '-' d'ou le -1
PremierePartie = Code:
Mid(cel.Value, 1, InStr(1, cel.Value, '-') - 1)

'ici à partir de la possition de '-' +1 on récupère ce qu'il y a après
DeuxiemePartie = Code:
Mid(cel.Value, InStr(1, cel.Value, '-') + 1)

End Sub

Cordialement
KIM