Discussion :

[Ysae68]

Bonjour à tous,

J’ai un fichier Excel de plusieurs centaines de lignes dans lesquelles j’aimerais extraire des chaines de caractères bien précises. Voici un exemple d’une ligne (en gras ce dont j'ai besoin) :

546#mot clef truc#1034#mot clef machin#2027#mot clef bidule#20#mot clef tralala

En fait, chaque mot clef à un numéro identifiant qui le précède, les mots clés et les numéros étant tous séparés par des #. Ce que j’aimerais, c’est lister dans une autre colonne d’Excel tous les mots clefs contenus dans toutes les lignes de la colonne A, sachant que :

- Les numéros identifiants sont de longueur variable
- Les mots clefs sont de longueur variable également, et peuvent comporter des chiffres, des espaces, voir même des caractères spéciaux (mais jamais de #, ça j’en suis sure)

J’ai déjà trouvé des macros toutes simples pour extraire avant ou après une chaîne de caractère, mais là c’est un peu plus complexe du fait qu’aussi bien les numéros qui ne m’intéressent pas, que les mots clefs dont j’ai besoin, sont placés entre #...

Une idée, un début de piste, un petit coup de main ?

Merci beaucoup d’avance !

[parmi]

Bonjour,

Tu pourrais essayer quelque chose comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Dim I As Long, J As Long, LigneDest As Long
    Dim nbLignes As Long
    Dim Texte As String
    Dim Tablo
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    LigneDest = 1
 
    For I = 1 To nbLignes
        Texte = Range("A" & I)
        Tablo = Split(Texte, "#")
 
        For J = 0 To UBound(Tablo)
            If Not IsNumeric(Trim(Tablo(J))) Then
                Range("B" & LigneDest) = Trim(Tablo(J))
                LigneDest = LigneDest + 1
            End If
        Next
    Next

[Ysae68]

Impeccable, exactement ce qu'il me fallait ! Merci beaucoup, et bon après midi