enlever caractere vide suite import formulaire Word

Bonjour,

J'ai un formulaire Word, par macro, je l'importe et copie/colle dans une feuille Excel.

J'ai un petit souci : quelques "petits malins" ont enlevé la protection du formulaire Word que j'avais créé et n'ont pas écrit dans le champ du formulaire, mais juste après....Lorsque j'importe ces formulaires, j'obtiens :

Citation:

---

-----nomdumodele

---

j'ai mis des "-" à la place des espaces, car l'espace ne prend pas dans les "QUOTE"
(de même sur la version Excel 2007, les espaces sont remplacés par des petits carrés...)


j'ai essayé

Code:

---

espace=application.worksheetfunction.trim(espace)

---

marche pas....puis j'ai essayé

Code:

---

sheets("F").columns(5).replace " ",""

---

Marche pas....
J'ai donc essayé de "reconnaitre" les espaces et/ou petits carrés, et j'ai pu voir qu'ils avaient le Numéro 32 (de la table de caractère), j'ai donc essayé de les enlever, j'ai essayé (sur la cellule E2):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim monText As Integer Dim cc As Integer Dim boucle As Integer Dim uu As String   cc = Len(Range("E2")) espace = Range("E2") monText = Asc(Left(Range("E2"), 1))   For boucle = 1 To cc uu = Left(espace, 1) If Left(espace, 1) = Chr(32) Then espace = Mid(1 + boucle, 100) Stop   End If

---

Marche pas non plus.....

Je suis à court d'idée......

Merci de votre aide,
A+

Bonjour,

Ce sont probablement des espaces insécables, essaie ceci :

Code:

---

Sheets("F").Columns(5).Replace Chr(160), ""

---

Merci Fring,

J'ai essayé, mais ça ne fonctionne pas....j'ai toujours mes "petits carrés" et/ou espaces....

j'ai aussi essayé en faisant une boucle

Code:

---

1 2 3

for i = 1 to 255 sheets("F").columns(5).replace chr(i),"" next i

---

mais les "petits carrés" et espaces sont toujours là....donc apparemment l'option de passer par "CHR" ne fonctionne pas....

Une autre idée ?

Merci,
A+

Salut, essaie via Clean

Code:

---

Application.WorksheetFunction.Clean(.....)

---

A tout hasard, n'oubli pas la paramètre XlPart

Code:

---

Sheets("F").Columns(5).Replace Chr(160), "", xlPart

---

Merci Kiki29,

J'avais déjà essayé, mais ça n'a pas fonctionné....j'ai fait :

Code:

---

1 2 3 4

dim cell as range for each cell in Activesheets.usedrange cell=application.worksheetfunction.clean(cell) next

---

ça n'a pas fonctionné, j'ai essayé

Code:

---

1 2 3 4

dim cell as range for each cell in Activesheets.usedrange cell.value=application.worksheetfunction.clean(cell.value) next

---

marche pas non plus....:aie:

A+
-------------------------------------------------------
Merci Mercatoq,

J'ai essayé, ça ne fonctionne pas....

A+

Limites de Clean

Citation:

---

Important La fonction Clean a été conçue pour supprimer les 32 premiers caractères non imprimables du code ASCII à 7 bits (valeurs entre 0 et 31) d'un texte. Dans le jeu de caractères Unicode, d'autres caractères non imprimables existent (valeurs 127, 129, 141, 143, 144 et 157). En soi, la fonction Clean ne supprime pas ces caractères non imprimables supplémentaires.

---

Sinon, mets un extrait de tes données à problème.

Merci Mercatoq,

Nos post se sont croisés......

Ci joint un bout de fichier avec mes cellules à problème.....

A noter que dans Excel 2007, on voit apparaitre des petits carrés à la place des espaces.....

Merci,

A+

J'ai créé un code qui "pourrait" fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

e = Sheets("F").Range("E2")   For i = 1 To Len(e)   r = Mid(e, i, 50) If (Asc(Left(r, 1)) >= 48 And Asc(Left(r, 1)) <= 122) Then Sheets("F").Range("E2") = r Exit For End If   Next i

---

c'est bon, ça m'enlève tous les espaces et petits carrés, mais ....j'ai plus de 50 cases par fiches et 500 fiches à contrôler....et je pense que ça risque de prendre du temps avec ce code.....

Alors que je suis persuadé qu'un simple ligne de code et/ou instruction suffirait....

A+

Ton espace apparent est particulier

Essaies ceci

Code:

---

1 2 3 4

Sub Remplace()   Worksheets("Feuil1").Range("E:E").Replace ChrW(8194), "", xlPart End Sub

---

Pour trouver tes le code AscW

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub aaa() Dim Str As String Dim i As Integer   Str = ActiveCell.Value If Len(Str) > 0 Then For i = 1 To Len(Str) Debug.Print i, Mid(Str, i, 1), AscW(Mid(Str, i, 1)) Next i End If End Sub

---

Super Mercatoq :ccool:

Merci !!!

Ca fonctionne nickel ! J'étais certain qu'avec 1 instruction on pouvait résoudre mon problème....

Je ne connais pas ces codes "ChrW", merci de m'avoir donné le "truc" pour les trouver....

A+ pour de prochaines aventures.....:ccool: