remplacer des caracteres spéciaux dans une colonne vba

[egman]

Bonjour à tout le forum,

Je reviens vers car après multiples recherches sur la toile je ne trouve pas mon bonheur.

Voici mon problème :
J'importe un fichier texte dans Excel que je met en forme afin d'utiliser un certain nombre de colonnes.
Dans ce fichier texte j'ai des caractères spéciaux qui se sont intercalés dans mes cellules.
Je cherche donc un moyen de remplacer ces caractères spéciaux par d'autres caractères mais dans toute ma colonne à la fois.

Je vous joint un petit fichier pour mieux comprendre avec le bout de code que j'essaye de faire fonctionner.
Pourtant cela devrait fonctionner avec la méthode Range...

Si quelqu'un a une idée pour m'aiguiller ce serait sympa.

D'avance Merci à tous

 

[mth]

Re : remplacer des caracteres spéciaux dans une colonne vba

Bonjour egman

Un petit essai, en attendant une meilleure proposition,

Sub remplacerCaracteres()
Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

    plage.Replace What:="~?", Replacement:="µ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    plage.Replace What:="¥", Replacement:="±", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    plage.Replace What:="~?", Replacement:="°", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False

End Sub

Bien à toi,

mth

 

[egman]

Re : remplacer des caracteres spéciaux dans une colonne vba

Bonjour egman

Un petit essai, en attendant une meilleure proposition,

Sub remplacerCaracteres()
Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

    plage.Replace What:="~?", Replacement:="µ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    plage.Replace What:="¥", Replacement:="±", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    plage.Replace What:="~?", Replacement:="°", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False

End Sub

Bien à toi,

mth

Bonjour mth,
Merci pour ta réponse....mais petit hic...il bute sur "plage" variable non définie...! ! !
J'ai défini ma colonne A comme plage mais rien n'y fait....désolé

Manu

 

[jp14]

Re : remplacer des caracteres spéciaux dans une colonne vba

Bonjour

A priori il manque une définition des variables.
Il faut rajouter le code
Dim Plage as range

JP

 

[mth]

Re : remplacer des caracteres spéciaux dans une colonne vba

re

Tu dois avoir un Option Explicit quelque part, ce qui est très bien

Ajoute en première ligne de code la définition:

Dim plage As Range

Ca devrait aller.

Bien à toi,

mth

Edit: Oups ... pardon JP, je ne t'avais pas vu..

 

[egman]

Re : remplacer des caracteres spéciaux dans une colonne vba

re

Tu dois avoir un Option Explicit quelque part, ce qui est très bien

Ajoute en première ligne de code la définition:


Ca devrait aller.

Bien à toi,

mth

Edit: Oups ... pardon JP, je ne t'avais pas vu..

Bonjour JP14

merci à vous deux pour l'explication.

Apparemment cela fonctionne ....je dis apparemment car en fait il remplace dans la cellule tout le texte par le caractère indiqué dans le code
A savoir : au lieu d'avoir
QUARTZ 10mHz 25° il me met °°°°°°°°°°°°°°°°°°°° dans la cellule.
Dailleurs lorsque je veux lui indiqué un caractère du type ¥ dans le code il me met systématiquement un ?
N'y aurait il pas un rapport avec le format de texte importé et qui serait mal interprété dans le code ?
J'essaierai avec mon texte au boulot demain et vous tiendrait au courant.
Mais à priori cela fonctionne.
Encore merci de votre aide je vais essayer de me débrouiller.

A+

 

[mth]

Re : remplacer des caracteres spéciaux dans une colonne vba

re

bêtise de ma part, et je n'avais pas vu, essaie comme ceci:

Sub remplacerCaracteres()
Dim plage As Range

Set plage = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

    plage.Replace What:=ChrW(256), Replacement:="µ", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    plage.Replace What:=Chr(165), Replacement:=Chr(177), LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False
    plage.Replace What:=ChrW(358), Replacement:=Chr(176), LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False

End Sub

Je viens d'apprendre grâce à toi que quand le code d'un caractère dépassait 255, il fallait utiliser ChrW au lieu de Chr

De mon coté ça fonctionne, reste à voir s'il en est de même chez toi, @ ++

m

 

[egman]

Re : remplacer des caracteres spéciaux dans une colonne vba

Bonjour mth,

Effectivement lorsque tu dépasses le caractère 255 Chr ne fonctionne plus .....mais la avec Chrw c'est nickel
Encore MERCI

A+

 

[egman]

Re : remplacer des caracteres spéciaux dans une colonne vba

En fait j'ai crié victoire trop vite....
Voici ce que je cherche à faire :
CAPA ALU 220┬ÁF 16VDC 20% THT P3.5 105┬░C ESR 0.25 => CAPA ALU 220µF 16VDC 20% THT P3.5 105°C ESR 0.25
CRYSTAL 32.768kHz ┬▒20ppm/12pF SMT 3.8x8.7mm => CRYSTAL 32.768kHz ±20ppm/12pF SMT 3.8x8.7mm

Merci pour votre aide