[VBA] Recherche multiple & Extraction

Recherche :
http://img15.hostingpics.net/pics/665946image1.png

Résultat :
http://img15.hostingpics.net/pics/808544image2.png

Hello,
en effet ça fonctionne... mais pas sur le fichier original... :cry:

en réfléchissant, peut-être qu'il faudrait rajouter un séparateur du type: aller à la ligne (car certaines fois, ce ne sont pas des espaces, mais plutôt des saut de lignes à l'intérieur des cellules qui ont été insérés...)

Est-ce possible? qu'en penses-tu?

Il faudrait donc rajouter une ligne comme celle-ci mais avec le saut de ligne?

Code:

---

1 2 3 4 5 6 7 8 9

If InStr(table(i), "Chr (10)") Then table(i) = Replace(table(i), "Chr (10)", "") End If If InStr(table(i), "Chr (13)") Then table(i) = Replace(table(i), "Chr (13)", "") End If If InStr(table(i), "Chr(10) & Chr (13)") Then table(i) = Replace(table(i), "chr (10) & Chr (13)", "") End If

---

Je l'ai fait sur le fichier test, ça a fonctionné, pas sur le fichier original...

Les seules autres différences que je peux voir sont les suivantes:
peut-être se cache notre réponse là-dedans?

-la ligne d'en-tête dispose du filtre (je ne pense pas que ce soit lié, mais on sait jamais)
- certaines références sont mal tapées dans la colonne E (mais je ne les ai pas testées, donc elles ne devraient pas avoir d'impact)
- il y a des notes (commentaires, avec le petit triangle rouge en haut à droite de la cellule) un peu partout
-certaines cellules de la colonne E sont vides (comme dans le fichier test)
-certaines cellules de la colonne E n'ont que du texte
- et à nouveau ce soucis théoriquement résolu avec les Chr(10) et Chr(13) de saut de ligne dans la cellule...

Any insight?

Deb

Quand tu parles de filtre, que cela signifie-t-il ?

As-tu EXACTEMENT le même formalisme ?

As-tu un message d'erreur ? Le résultat n'est pas celui attendu ?

Je ne vois pas quelque chose qui pourrait particulièrement embéter le programme lors de son execution dans ce que tu m'as écrit.

Donne moi des screenshots !