Découper une chaîne de caractère

[maval]

Bonjour,

Je cherche le moyen (via VBA et non par formule) de supprimer les 4 dernier caractère d'une chaîne de longueur tous les chaînes de caractère sont composé comme ceci: "100 Dollars Pour Un Shérifs.avi ou 5 Cartes À Abattre.mkv",
et les coller dans les cellules comme ceci: "100 Dollars Pour Un Shérifs" "M:M600" par exemple.

je vous remercie de votre aide

 

[Compte Supprimé 979]

Re : Découper une chaîne de caractère

Bonjour maval

Ou la la... il n'y a rien de plus facile 😕

MaChaine = Left(MaChaine,Len(Machaine)-4)

A+

 

[maval]

Re : Découper une chaîne de caractère

Bonjour Bruno

Merci de ta rapidité mais le problème j'aimerai qui me recopie la chaine découper en colonne "M"

Bonne soirée

 

[maval]

Re : Découper une chaîne de caractère

Re,

En faite je crois avoir trouver peut-être comme ceci

Sub Decoupe()
Dim i&, Plg As Range, s(), Tmp
    Set Plg = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    ReDim s(1 To Plg.Count, 1)
    For i = 1 To Plg.Count
        Tmp = Split(Plg(i), ".", 2)
        s(i, 0) = Tmp(0)
        s(i, 1) = Tmp(1)
    Next
    Plg.Offset(0, 12).Resize(, 1).Value = s
End Sub

Bonne soirée

 

[laurent950]

Re : Découper une chaîne de caractère

Bonsoir,

Je pense que le code écrit comme cela serait plus approprié :

Sub Decoupe()
Dim i&, Plg As Range, s(), Tmp
    Set Plg = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
    ReDim s(1 To Plg.Count, 2)
    For i = 1 To Plg.Count
        Tmp = Split(Plg(i), ".")
        s(i, 0) = Left(Plg(i), Len(Plg(i)) - Len(Tmp(UBound(Tmp))) - 1)
        s(i, 1) = Tmp(UBound(Tmp))
    Next
    Plg.Offset(0, 12).Resize(UBound(s, 1), UBound(s, 2)) = s
End Sub

Laurent

 

[maval]

Re : Découper une chaîne de caractère

Bonsoir laurent

je te remercie Nickel

Bonne soirée