XL 2010 tronquer chaine de caractères

Mgn_91 · 8 Novembre 2016

Bonjour,

J'ai des cellules qui contiennent noms de documents (ex: abcdef.pdf, blablabla.ppt, lalalala.pptx). Je souhaite grâce à une formule ne garder que les noms des documents sans les extensions.

Je n'y parviens pas avec les formules DROITE ni GAUCHE. Quelqu'un peut-il éclairer ma lanterne ?

Merci pour votre aide.

Jocelyn · 8 Novembre 2016

Bonjour le Forum,
Bonjour Mgn_91,

Peut etre une formule du genre

=STXT(A1;1;Cherche(".";A1)-1)

pour une valeur située en A1 bien enttendu

Cordialement

Mgn_91 · 8 Novembre 2016

ça fonctionne parfaitement. Merci !

Mgn_91 · 8 Novembre 2016

Jocelyn à dit:
Bonjour le Forum,
Bonjour Mgn_91,

Peut etre une formule du genre

=STXT(A1;1;Cherche(".";A1)-1)

pour une valeur située en A1 bien enttendu

Cordialement

Merci pour votre aide.

Dans le cas ou le nom du fichier contient un point cela ne fonctionne pas. Exemple blabla.ralala.pdf
Le résultat sera blabla et non blabla.ralala

Jocelyn · 8 Novembre 2016

re,

comme quoi un fichier exemple avec les différentes option de valeur est toujours le bienvenue dans les demandes mais bon un essai avec une formule un peu plus complexe qui va toujours aller sur le dernier point

Regardes et dis nous

Cordialement

Mgn_91 · 8 Novembre 2016

Jocelyn à dit:
re,

comme quoi un fichier exemple avec les différentes option de valeur est toujours le bienvenue dans les demandes mais bon un essai avec une formule un peu plus complexe qui va toujours aller sur le dernier point

Regardes et dis nous

Cordialement

Merci pour la formule.

Malheureusement mon fichier est un fichier xls qui contient des macro. J'ai donc le message suivant qui apparaît " Impossible d'entrer la formule spécifiée car elle utilise plus de niveaux d'imbrication que n'autorise le format de fichier actuel."

Jocelyn · 8 Novembre 2016

Hum hum globalement as tu des extension a 3 caractère après le point ou 4 ou les deux ? peux tu joindre un exemple avec les différentes extension que tu as ?

Mgn_91 · 8 Novembre 2016

Jocelyn à dit:
Hum hum globalement as tu des extension a 3 caractère après le point ou 4 ou les deux ? peux tu joindre un exemple avec les différentes extension que tu as ?

J'ai les deux. J'ai joint un fichier listant toutes les extensions possibles

Jocelyn · 8 Novembre 2016

Re

hum hum nouveau test en espérant que ca passe sur ton excel

Cordialement

Mgn_91 · 8 Novembre 2016

Jocelyn à dit:
Re

hum hum nouveau test en espérant que ca passe sur ton excel

Cordialement

IMPECCABLE !

Merci infiniment 🙂

Mgn_91 · 8 Novembre 2016

En scrutant mon fichier je constate que je dois à nouveau "nettoyer" le contenu des cellules.

En effet en plus de tronquer la fin des chaines de caractères (les extensions) je souhaite également tronquer le début de la chaine de caractère. C'est à dire effacer les caractères suivant "..\......\" pour ne garder que le nom du fichier.

Exemple : la celulle contient "..\123\abcd_edfgijklm_nopkrst.ppt" Je souhaite uniquement garder " abcd_edfgijklm_nopkrst " et donc supprimer "..\123\" et ".ppt"

Merci encore une fois.

laurent950 · 8 Novembre 2016

Bonsoir le Forum,

Un découpage astucieux le code ci-dessous :

Sub test()

For i = 1 To 9
Cells(i, 3) = Split(Split(Cells(i, 1), "\")(UBound(Split(Cells(i, 1), "\"))), ".")(UBound(Split(Split(Cells(i, 1), "\")(UBound(Split(Cells(i, 1), "\"))), ".")) - 1)
Next i

End Sub

en rapport avec votre dernier fichier Excel les valeur se copie en colonne C en face des lignes (sur la base des valeur Colonne A ligne 1 à 9

Mgn_91 · 9 Novembre 2016

laurent950 à dit:
Bonsoir le Forum,

Un découpage astucieux le code ci-dessous :

Sub test()

For i = 1 To 9
Cells(i, 3) = Split(Split(Cells(i, 1), "\")(UBound(Split(Cells(i, 1), "\"))), ".")(UBound(Split(Split(Cells(i, 1), "\")(UBound(Split(Cells(i, 1), "\"))), ".")) - 1)
Next i

End Sub

en rapport avec votre dernier fichier Excel les valeur se copie en colonne C en face des lignes (sur la base des valeur Colonne A ligne 1 à 9

Merci,

Ce code fonctionne parfaitement. Dans le cas où la liste n'est pas limitée à 9 lignes en colonne A mais est variable, comment dois-je procéder ? J'imagine que "For i = 1 To 9" doit être remplacé par une autre valeur ?

Mgn_91 · 9 Novembre 2016

J'ai finalement trouvé la solution en identifiant la dernière ligne de la colonne.

De quelle manière ce code doit-il être modifié si le nom du document comporte plusieurs points. Exemple sur le ligne 10,11,12 du document en pièce jointe.

Merci pour votre aide

laurent950 · 9 Novembre 2016

Bonsoir,

Voici le code associer au dernier fichier excel que vous avez posté :

VB:

Sub test()
For i = 1 To 12
' decoupage
Var = Split(Cells(i, 1), "\")
' resultat
Var = Var(UBound(Var))
' test sur le nombre de .
Var = Split(Var, ".")
If UBound(Var) < 2 Then
    Var = Var(LBound(Var))
    Cells(i, 3) = Var
Else
' pour tous les points
    For j = 0 To UBound(Var) - 1
        If j = 0 Then
            Nouv = Var(j)
            Cells(i, 3) = Nouv
        Else
            Nouv = Nouv & "." & Var(j)
            Cells(i, 3) = Nouv
        End If
    Next j
    Nouv = Empty
End If
Next i
End Sub

XL 2010 tronquer chaine de caractères

Mgn_91

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Mgn_91

XLDnaute Nouveau

Mgn_91

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Mgn_91

XLDnaute Nouveau

Jocelyn

XLDnaute Barbatruc

Mgn_91

XLDnaute Nouveau

Pièces jointes

Jocelyn

XLDnaute Barbatruc

Pièces jointes

Mgn_91

XLDnaute Nouveau

Mgn_91

XLDnaute Nouveau

Pièces jointes

laurent950

XLDnaute Barbatruc

Mgn_91

XLDnaute Nouveau

Mgn_91

XLDnaute Nouveau

Pièces jointes

laurent950

XLDnaute Barbatruc

Discussions similaires

XL 2010 tronquer chaine de caractères

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency