Discussion :

[liop49]

Bonjour,

J'ai un fichier qui est issu d'une extraction sql d'un champ en rtf. Excel m'affiche tout le champ avec les balises rtf.

Exemple :
A2 : (vide)
A3 : (vide)
A4 : (vide)
A5 : "{\rtf1\ansi\ansicpg1252\uc1\htmautsp\deff2{\fonttbl{\f0\fcharset0 Times New Roman;}{\f2\fcharset0 Tahoma;}}{\colortbl\red0\green0\blue0;\red255\green255\blue255;\red105\green105\blue105;}\loch\hich\dbch\pard\plain\ltrpar\itap0{\lang1036\fs16\f2\cf2 \cf2\ql{\f2 {\ltrch DACHSER 75.82 eur HT}\li0\ri0\sa0\sb0\fi0\ql\par}
}
}"
A6 : (vide)
A7 : (vide)
A8 : (vide)
A9 : "{\rtf1\ansi\ansicpg1252\uc1\htmautsp\deff2{\fonttbl{\f0\fcharset0 Times New Roman;}{\f2\fcharset0 Tahoma;}}{\colortbl\red0\green0\blue0;\red255\green255\blue255;\red105\green105\blue105;}\loch\hich\dbch\pard\plain\ltrpar\itap0{\lang1036\fs16\f2\cf2 \cf2\ql{\f2 {\ltrch DACHSER Speed 84.44 eur HT}\li0\ri0\sa0\sb0\fi0\ql\par}
}
}"
A10 : (vide)


En fait, je voudrais que dès que la balise "\ltrch" apparaît alors on prend la chaine de caractères qui va jusqu'au caractère "}"

Je ne maîtrise pas assez excel pour y arriver, est ce que quelqu'un a une astuce ?

Merci par avance,

Liop

[Philippe Tulliez]

Bonjour,
Voir du côté des fonctions de la catégorie "Texte".
Les fonctions CHERCHE ou TROUVE permettent de trouver la position d'un ou plusieurs caractères cherchés dans une chaîne de caractères. La fonction STXT permet d'extraire une chaîne de caractères d'une autre.

[riaolle]

Bonjour,
Excel ou VBA ? Tu es dans le forum VBA. Mais ceci peut se faire avec Excel. Voici les fonctions qui te seront utiles :

• CHERCHE : renvoie la position d'un caractère recherché dans une chaîne de caractère.
• GAUCHE et DROITE : permet d'extraire une partie d'une chaîne de caractère selon un nombre de caractères donnés en partant de la gauche ou de la droite.

Ex. avec A5 :

Code :

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

=GAUCHE(DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6);CHERCHE("}";DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6))-1)

1. CHERCHE("\ltrch";A5) : on cherche \ltrch dans la chaine de caractères.
2. NBCAR(A5)-CHERCHE("\ltrch";A5)-6 : nombre de caractères après \ltrch
3. DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6) : texte après \ltrch
4. CHERCHE("}";DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6)) : on cherche "}" dans le texte après \ltrch
5. DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6))-1 : nombre de caractères avant "}" dans le texte après \ltrch
6. GAUCHE(DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6);CHERCHE("}";DROITE(A5;NBCAR(A5)-CHERCHE("\ltrch";A5)-6))-1) : texte avant "}" dans le texte après \ltrch --> soit le texte entre \ltrch et "}"

[liop49]

Merci pour cette réponse qui fonctionne.

Effectivement, j'aurai souhaité que ce soit en VBA pour qu'à l'ouverture du fichier la macro s'execute.

Est ce possible en VBA ?

MErci

Liop

[riaolle]

Effectivement, j'aurai souhaité que ce soit en VBA pour qu'à l'ouverture du fichier la macro s'execute.

Je ne comprends pas bien pourquoi il faudrait que ce soit une macro. Si tu écris une fonction, elle sera calculée dès l'ouverture du fichier. Et tu peux tirer cette fonction sur les autres cellules pour faire l'analyse sur toute la colonne A
Si vraiment il faut que ce soit une macro, tu peux traduire la formule avec les équivalents en VBA.

• GAUCHE --> Left
• DROITE --> Right
• CHERCHE --> Application.Search
• NBCAR --> Len

Mais tu as aussi d'autres fonctions intéressantes pour la manipulation de chaîne de caractères en VBA (Mid, Split ...) --> regarde ce tuto : http://silkyroad.developpez.com/VBA/...Caracteres/#LI.

[unparia]

Bonjour
Si l'on tient à faire cela avec VBA --->>

Code :

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

1
2
3
4
5
6
toto = "{\rtf1\ansi\ansicpg1252\uc1\htmautsp\deff2{\fonttbl{\f0\fcharset0 Times New Roman;}{\f2\fcharset0 Tahoma;}}{\colortbl\red0\green0\blue0;\red255\green255\blue255;\red105\green105\blue105;}\loch\hich\dbch\pard\plain\ltrpar\itap0{\lang1036\fs16\f2\cf2 \cf2\ql{\f2 {\ltrch DACHSER Speed 84.44 eur HT}\li0\ri0\sa0\sb0\fi0\ql\par}}}"
sep1 = "\ltrch"
sep2 = "}"
titi = Mid(toto, InStr(toto, sep1) + Len(sep1))
titi = Left(titi, InStr(titi, sep2) - 1)
MsgBox titi

Y ajouter bien évidemment les gestions d'erreurs éventuelles (avsence éventeulle de sep1 ou de sep2).

[Marc-L]

Bonjour !

Code :

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

1
2
3
4
5
Sub Demo()
    Const S = "{\f2 {\ltrch DACHSER 75.82 eur HT}\li0\ri0\sa0\sb0\fi0\ql\par}"
         SP = Split(S, "\ltrch ")
    If UBound(SP) > 0 Then MsgBox Split(SP(1), "}")(0)
End Sub

___________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[RyuAutodidacte]

Bonsoir (coucou à Jacques et Marc),

un pour Marc dont la solution est simple, élégante, permettant de faire la vérification et en même temps de donner le résultat si la vérification est avérée

une autre solution serait de passé par du regex/grep, awk, sed pour avoir l'ensemble des résultats à mettre dans Excel, cela veut dire traiter le fichier en amont pour ne garder que le résultat dans Excel
faisable depuis Excel via l'utilisation du shell (mais bon là c'est un autre niveau), toujours bon de le savoir

La démarche dans Excel :
- Récupérer le chemin de ledit fichier à traiter
- Définir une variable dont la correspondance sera égal à la commande shell adéquat avec en sus le paramètre du chemin du fichier à traiter
- Traiter le résultat de cette variable dans Excel

PS : je ne suis pas habitué à l'invite de commande dans Windows, et je débute avec le terminal sur Mac OS X avec les commandes citées, mais celles-ci sont très puissante et intéressante à voir

Sinon le fichier peut être facilement traiter à l'aide des solutions proposées en post #6 et #7