Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

ma langue au chat

5 réponses
Avatar
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:=False, SearchFormat:=False, _
ReplaceFormat:=False

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

5 réponses

Avatar
mirnan
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
Avatar
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" a écrit dans le message de
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



Avatar
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" a écrit dans le message de groupe de 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
Avatar
mirnan
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" a écrit dans le message de news:

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" a écrit dans le message de
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






Avatar
mirnan
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" a écrit dans le message de news:

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" a écrit dans le message de groupe de
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