ma langue au chat

Le
mirnan
Bonjour tout le monde.

Je récupère des données sur un site web (fichier exemple ci-join).
Malheureusement les chiffres des colonnes E et F ne sont pas calculables.
Apparemment, il y a un caractère invisible à la fin de ces cellules, ce qui
empeche excel de les considerer comme des nombres.
Si j'enlève ces caractères "à la main", les cellules deviennent des nombres
et je peux m'en servir dans des calculs.
Mais si je le fais en macro, cela ne marche pas.
J'avais tenté ceci:

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse

cela ne fonctionne pas, mais en fouillant dans les posts, j'ai trouvé qu'il
fallait mettre un ~ devant le caractère recherché.
J'ai donc mis un ~ juste après les mots:
Selection.Replace What:="~
Mais cela ne fonctionne toujours pas.
Si quelqu'un a une solution, un grand grand grand merci d'avance.
Michel

Ps: Fichier joint dans post suivant, sinon ca ne passe pas
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
mirnan
Le #19950191
Je n'arrive pas a poster le fichier exemple (fichier excel 2007 9ko. Je
propose de l'envoyer par mail a ceux qui pensent pouvoir trouver une
solution, ou qui veulent simplement chercher.
Merci à tous
Charabeuh
Le #19950511
Bonsoir,

Une piste :

Quelquefois la caractère de code 160 s'invite à la fête lors d'importation.

Sélectionner les colonnes E à F
Tapez Ctrl+H pour ouvrir la boîte de dialogue remplacer.
Dans la zone 'Rechercher' saisir AltGr+0160 (un pseudo espace vient
s'inscrire)
Laisser la zone 'Remplacer par à vide
Faire 'remplacer tout'.




"mirnan" news:4a8b08de$0$12983$
Bonjour tout le monde.

Je récupère des données sur un site web (fichier exemple ci-join).
Malheureusement les chiffres des colonnes E et F ne sont pas calculables.
Apparemment, il y a un caractère invisible à la fin de ces cellules, ce
qui empeche excel de les considerer comme des nombres.
Si j'enlève ces caractères "à la main", les cellules deviennent des
nombres et je peux m'en servir dans des calculs.
Mais si je le fais en macro, cela ne marche pas.
J'avais tenté ceci:

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse

cela ne fonctionne pas, mais en fouillant dans les posts, j'ai trouvé
qu'il fallait mettre un ~ devant le caractère recherché.
J'ai donc mis un ~ juste après les mots:
Selection.Replace What:="~
Mais cela ne fonctionne toujours pas.
Si quelqu'un a une solution, un grand grand grand merci d'avance.
Michel

Ps: Fichier joint dans post suivant, sinon ca ne passe pas



MichDenis
Le #19950491
Bonjour Mirnan,

Le caractère que tu veux enlever est probablement le
caractère Ascii 160 qui ressemble au caractères Ascii 32

Dans la procédure suivante, inscris le nom de la feuille où
sont tes données et adapte l'étendue de la plage selon
tes besoins.
'--------------------------------------
Sub Test()
With Worksheets("NomDeTAFeuille")
.Range("A1:G20").Replace Chr(160),"",Xlpart
End With
End Sub
'--------------------------------------

P.S. Pour publier ton fichier à l'aide des sites
Cjoint.Com ou Cijoint.Fr, tu dois zipper ton
fichier excel 2007.


"mirnan" 4a8b08de$0$12983$
Bonjour tout le monde.

Je récupère des données sur un site web (fichier exemple ci-join).
Malheureusement les chiffres des colonnes E et F ne sont pas calculables.
Apparemment, il y a un caractère invisible à la fin de ces cellules, ce qui
empeche excel de les considerer comme des nombres.
Si j'enlève ces caractères "à la main", les cellules deviennent des nombres
et je peux m'en servir dans des calculs.
Mais si je le fais en macro, cela ne marche pas.
J'avais tenté ceci:

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse

cela ne fonctionne pas, mais en fouillant dans les posts, j'ai trouvé qu'il
fallait mettre un ~ devant le caractère recherché.
J'ai donc mis un ~ juste après les mots:
Selection.Replace What:="~
Mais cela ne fonctionne toujours pas.
Si quelqu'un a une solution, un grand grand grand merci d'avance.
Michel

Ps: Fichier joint dans post suivant, sinon ca ne passe pas
mirnan
Le #19950921
Merci a tous.
Je vais tenter des demain, je vous tiendrai au courant (dans tous les cas),
ca peut peut-etre servir a d'autres.
Merci encore
"Charabeuh"
Bonsoir,

Une piste :

Quelquefois la caractère de code 160 s'invite à la fête lors
d'importation.

Sélectionner les colonnes E à F
Tapez Ctrl+H pour ouvrir la boîte de dialogue remplacer.
Dans la zone 'Rechercher' saisir AltGr+0160 (un pseudo espace vient
s'inscrire)
Laisser la zone 'Remplacer par à vide
Faire 'remplacer tout'.




"mirnan" news:4a8b08de$0$12983$
Bonjour tout le monde.

Je récupère des données sur un site web (fichier exemple ci-join).
Malheureusement les chiffres des colonnes E et F ne sont pas calculables.
Apparemment, il y a un caractère invisible à la fin de ces cellules, ce
qui empeche excel de les considerer comme des nombres.
Si j'enlève ces caractères "à la main", les cellules deviennent des
nombres et je peux m'en servir dans des calculs.
Mais si je le fais en macro, cela ne marche pas.
J'avais tenté ceci:

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse

cela ne fonctionne pas, mais en fouillant dans les posts, j'ai trouvé
qu'il fallait mettre un ~ devant le caractère recherché.
J'ai donc mis un ~ juste après les mots:
Selection.Replace What:="~
Mais cela ne fonctionne toujours pas.
Si quelqu'un a une solution, un grand grand grand merci d'avance.
Michel

Ps: Fichier joint dans post suivant, sinon ca ne passe pas






mirnan
Le #19969631
Ok la macro de MichDenis marche super bien, de plus concise et simple.
A se rappeler et utiliser si d'autres ont un pb similaire.
Merci a tous et un grand merci a MichDenis

"MichDenis"
Bonjour Mirnan,

Le caractère que tu veux enlever est probablement le
caractère Ascii 160 qui ressemble au caractères Ascii 32

Dans la procédure suivante, inscris le nom de la feuille où
sont tes données et adapte l'étendue de la plage selon
tes besoins.
'--------------------------------------
Sub Test()
With Worksheets("NomDeTAFeuille")
.Range("A1:G20").Replace Chr(160),"",Xlpart
End With
End Sub
'--------------------------------------

P.S. Pour publier ton fichier à l'aide des sites
Cjoint.Com ou Cijoint.Fr, tu dois zipper ton
fichier excel 2007.


"mirnan" discussion :
4a8b08de$0$12983$
Bonjour tout le monde.

Je récupère des données sur un site web (fichier exemple ci-join).
Malheureusement les chiffres des colonnes E et F ne sont pas calculables.
Apparemment, il y a un caractère invisible à la fin de ces cellules, ce
qui
empeche excel de les considerer comme des nombres.
Si j'enlève ces caractères "à la main", les cellules deviennent des
nombres
et je peux m'en servir dans des calculs.
Mais si je le fais en macro, cela ne marche pas.
J'avais tenté ceci:

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:úlse, SearchFormat:úlse, _
ReplaceFormat:úlse

cela ne fonctionne pas, mais en fouillant dans les posts, j'ai trouvé
qu'il
fallait mettre un ~ devant le caractère recherché.
J'ai donc mis un ~ juste après les mots:
Selection.Replace What:="~
Mais cela ne fonctionne toujours pas.
Si quelqu'un a une solution, un grand grand grand merci d'avance.
Michel

Ps: Fichier joint dans post suivant, sinon ca ne passe pas



Publicité
Poster une réponse
Anonyme