Méthode Replace : ajoute un blanc impossible à supprimer

Bonjour à tou(te)s,

Après avoir importé des données généalogiques d'un autre fichier Excel, je souhaite remplacer tous les caractères majuscules accentués par leur équivalent non-accentué.
Ex. "Élise" doit devenir "Elise"

Mon problème c'est que je me retrouve avec " Elise", donc précédé d'un blanc. Quand j'essaie de supprimer le blanc manuellement, cela s'avère impossible, un fois que j'ai tapé Enter, le blanc revient.

Voici le code utilisé :

Code:

---

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

Sub RemplMajAcc() Dim myarray, myreplace Dim i As Integer Dim SH Dim rng As Range Dim LastRow   myarray = Array("É", "È", "À", "Û", "Ô", "Ö", "Ç", "Â", "Ù", "Ü", "Ä", "Ê", "Ë", "Î", "Ï") myreplace = Array("E", "E", "A", "U", "O", "O", "C", "A", "U", "U", "A", "E", "E", "I", "I")   For Each SH In Worksheets For i = 0 To UBound(myarray) SH.Cells.Replace What:=myarray(i), Replacement:=myreplace(i), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False Next   ...

---

S'il n'y a pas de remplacement, il n'y a pas de blanc non plus.

Je suis a quia. Pouvez-vous m'aider ?

Merci d'avance et bon w-e.

Philippe

Bonjour

j'ai essayé ton code, je n'ai pas d'espace

j'ai ajouté des espaces manuellement

et en ajoutant ceci dans ton code je les suppriment.

Code:

---

1 2 3

SH.Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False

---

Bonjour
ce n'est certes pas le code que tu montres qui ajoutes cet espace. Ce qui veut dire qu'il se trouvait déjà là et qu'il est, lui, à traiter par une autre instruction distincte (l'instruction Trim, par exemple, s'il s'agit d'un espace "normal").

Citation:

---

Envoyé par a_diard

Bonjour

j'ai essayé ton code, je n'ai pas d'espace

j'ai ajouté des espaces manuellement

et en ajoutant ceci dans ton code je les suppriment.

Code:

---

1 2 3

SH.Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False

---

---

Bonjour et merci,
Ce code va me supprimer tous les espaces et ce n'est pas ce que je veux.
Si c'était un espace "normal", qu'on peut effacer, je m'en serais sorti, mais ici, il ne réagit pas comme un simple espace.

Citation:

---

Envoyé par unparia

Bonjour
ce n'est certes pas le code que tu montres qui ajoute cet espace. Ce qui veut dire qu'il se trouvait déjà là et qu'il est, lui, à traiter par une autre instruction distincte (l'instruction Trim, par exemple, s'il s'agit d'un espace "normal").

---

Bonjour,
Il n'était pas là, j'ai déjà effacé et recommencé, le résultat est le même. Si je prends une autre ligne où le prénom est par ex. "Marie" et que je le remplace par 'Élisabeth", puis que je fais tourner ma moulinette, je me retrouve sur cette ligne-là avec " Elisabeth". C'est donc chaque fois qu'il y a remplacement d'une initiale accentuée que le problème se présente.
J'ai déjà essayé TRIM() et ça ne change rien :(:(
Merci de vouloir m'aider.

Ce n'est (j'insiste) en tout état de cause pas le code que tu montres qui a jouté cet "espace".
Il n'est probablement pas un espace réel, mais :
- soit un espace insécable ( chr(16o) ) alors ainsi supprimable :

Code:

---

ta_chaine = replace(ta_chaine, chr(160), "")

---

soit un caractère non imprimable, que tu peux alors éliminer comme précisé à la rubrique WorksheetFunction.Clean, méthode de ton aide interne VBA.
Une chose est certaine : ces données sont très probablement issues de l'exploitation de données externes (importation).

Citation:

---

Envoyé par unparia

Ce n'est (j'insiste) en tout état de cause pas le code que tu montres qui a jouté cet "espace".
Il n'est probablement pas un espace réel, mais :
- soit un espace insécable ( chr(16o) ) alors ainsi supprimable :

Code:

---

ta_chaine = replace(ta_chaine, chr(160), "")

---

soit un caractère non imprimable, que tu peux alors éliminer comme précisé à la rubrique WorksheetFunction.Clean, méthode de ton aide interne VBA.
Une chose est certaine : ces données sont très probablement issues de l'exploitation de données externes (importation).

---

Bonjour,
Effectivement, ces données proviennent d'un import de fichiers Excel externes de diverses versions.
Je vais essayer ce que tu proposes et je reviens vers toi.
Merci et bon dimanche.

Bonjour à tou(te)s,

Je n'y comprends rien, je viens d'ouvrir mon classeur Excel et de refaire le même import du même fichier et le problème n'apparaît plus.
Je dirais donc résolu ... provisoirement (?)

Merci pour votre aide.
Bon dimanche.