Bonjour,

Il y a une menu qui permet de transformer du texte en colonnes (menu : data)

En 2 étapes, tu y arrives : une coupure à > et une coupure à <

Bonjour,
Une solution parmi d'autre

Sub Macro1()
dim T
    sheets("Feuil1").Activate
    T = Split(Range("D1").Text, "READING", -1)
    'La clé dans T(1)
    T(1) = Mid(T(1), 2, 11)
End Sub

Sub Macro2()
dim T, D
    sheets("Feuil1").Activate
    T = Split(Range("D1").Text, "<", -1)
    D = Split(T(1), "\>, -1)
    'La clé dans D(0)
End Sub

Bonsoir,
Il est possible de le faire avec les fonctions à dispositions.
Votre texte ("BLABLABLABLABLA.......") se trouve dans la cellule "A2".
Vous mettez dans la cellule "B2" cette formule :
=STXT(A2;CHERCHE(">";A2;1)+1;CHERCHE("</";A2;1)-CHERCHE(">";A2;1)-1)
et le résultat sera : 123 456 789.

Salutations.
Jean-Pierre

Bonjour,
Pour Le pingou, je sais que beaucoups de fonctions peuvent êtres résolues par formules dans les feuilles, mais c'est charger les fichiers quelques fois de facon astronomique, alors qu'avec le VBA ce n'est écrit qu'une fois.

Pour Braco-nico, effectivement la réponse est dans D(0) et pour la sortie tu peu ajouter dans la macro...

    Sheets("Sheet3").Range("C2").Value = D(0)

Run Time Error '9'
veux dire qu'il n'a pas trouvé l'occurence 0 du tableau D et donc que D(0) n'existe pas, vérifie tes balises, voit pour majuscule minuscule \ ou / etc.., Ca doit être juste.
Qu'y a-t-il dans T(1) ? , en principe il devrait y avoir...
123 456 789</READINGS> BLABLABLABLABLABLA
Tu dit..

Fait une autre macro pour tester...

Sub Macro3()
dim Txt as string, L as long
    sheets("Sheet3").Activate
    Txt = Range("A1").Text
    L = len(Txt) 'la longueur du texte de la cellule
End Sub

Bonjour,
Tu peu dire que tu m'a fait transpirer, il ressort qu'il est impossible d'assigner une variable plus longue que 1024 dans une cellule, j'ai essayé avec le presse papier mais le problème est le même, donc seule solution que j'ai trouvé c'est de la découpé et de la mettre dans plusieur cellules, j'ai mis en colonne mais si ca t'arrange tu peu les mettre en ligne.
Si un autre intervenant a la solution....

Sub Macro3()
Dim T, D
Dim i As Integer, e As Integer

    Sheets("Feuil1").Activate
    T = Split(Range("A1").Value, "<READINGS>", -1)
    D = Split(T(1), "</READINGS>", -1)
    'La clé dans D(0)
    'La variable est trop longue pour l'assigner directement dans une cellule
    'Max = 1024
    'La découper et mettre dans plusieur cellules.
    e = 1
    For i = 1 To Len(D(0)) Step 1024
        Cells(2 + e, 5).Value = Mid(D(0), i, 1024)
        e = e + 1
    Next i
End Sub