OVH Cloud OVH Cloud

Supprimer les blancs

8 réponses
Avatar
Gillou
Bonjour,

Je copie-colle un tableau depuis Internet dans Excel, ce qui a pour effet de
rajouter des espaces à la fin de chaque entrée de cellule, ce qui me gêne
pour la suite de mon traitement.
Par exemple au lieu d'avoir "blabla" dans une cellule, j'ai "blabla "
J'ai essayé d'appliquer un supprespace à chacune de mes cellules mais le
blanc final demeure :'-(
Comment puis-je faire ?

Merci d'avance

8 réponses

Avatar
isabelle
bonjour Gillou,

si tu veut bien faire cette exercice cela te permettera de connaître la valeur exact du code de ce blanc,

en cellule A1 la valeur de "blabla "
en cellule B1 la formule
=CODE(STXT($A$1;LIGNE();1))
à recopier vers le bas autant de fois qu'il y a de caractère en cellule A1

cela te permettera d'exécuter cette macro avec le bon code (Chr)

Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub

isabelle

Bonjour,

Je copie-colle un tableau depuis Internet dans Excel, ce qui a pour effet de
rajouter des espaces à la fin de chaque entrée de cellule, ce qui me gêne
pour la suite de mon traitement.
Par exemple au lieu d'avoir "blabla" dans une cellule, j'ai "blabla "
J'ai essayé d'appliquer un supprespace à chacune de mes cellules mais le
blanc final demeure :'-(
Comment puis-je faire ?

Merci d'avance


Avatar
Gillou
Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub


Super, ça marche avec le code 160. Et je comprends maintenant pourquoi
supprespace ne fonctionne pas : les blancs que je cherche à supprimer ne sont
pas de vrais espaces, mais le fameux caractère n° 160...

Merci beaucoup !

Avatar
isabelle
bonjour Gillou,

oui c'est bien ça, l'espace détecté par supprespace est le Chr(32)

isabelle



Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub



Super, ça marche avec le code 160. Et je comprends maintenant pourquoi
supprespace ne fonctionne pas : les blancs que je cherche à supprimer ne sont
pas de vrais espaces, mais le fameux caractère n° 160...

Merci beaucoup !



Avatar
Trirème
Bonjour à vous,
Puis je me permettre d'intervenir ?
Merci ;-)
Je suis très souvent confronté à ce genre de manip.
Juste après le collage, en conservant la plage sélectionnée, je fais un
Édition - remplacer.
Champ <Rechercher> : Alt + 0160 (Alt maintenu du début à la fin de la
saisie de 0160)
Champ <Remplacer par> : <rien>
Validation, et Excel confirme le nombre de changements.

Cordialement

Trirème


Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub



Super, ça marche avec le code 160. Et je comprends maintenant pourquoi
supprespace ne fonctionne pas : les blancs que je cherche à supprimer ne sont
pas de vrais espaces, mais le fameux caractère n° 160...

Merci beaucoup !



Avatar
jps
à ce sujet, je connais des informaticiens vraiment charlots qui
n'appartiennent pourtant pas à la moindre des SSII dont je tairai malgré
tout le nom
je m'explique : dans la saisie d'un formulaire sur un site bancaire, dans
une certaine case, il ne faut pas que le texte saisi soit autre chose qu'un
seul mot (ex: jesuiscon) ; si le pauvre bougre qui tente de remplir ce
formulaire a le malheur de saisir "je suis con", une msgbox lui saute au
visage avec, écrit dedans : la chaîne ne doit pas comporter de " "
et avec ça, ledit bougre va passer une bonne heure à chercher ce qu'il a
bien pu taper de faux en regardant si dans les autres cases, il n'y a pas un
truc qui a foiré dans la saisie du RIB (car il s'agit de cela, à la fin du
compte)...bref, la prise de tête jusqu'à téléphoner à la banque qui
trnasfère sur la SSII involved et là, un gugus, au demeurant très gentil (à
18h une veille de 14 juillet, c'est rare) qui fait les essais avec vous,
appelle un pote à lui qui, ex abrupto, s'écrit "mais ça veut dire qu'il ne
faut pas d'espace dans le texte"
vous voulez pas me dire que le concepteur du programme n'aurait pas pu
écrire : la chaîne ne doit pas contenir d'espaces...
s'il me tombe un jour sous la main, çui-là, je l'escrabouille
jps

"isabelle" a écrit dans le message de news:

bonjour Gillou,

oui c'est bien ça, l'espace détecté par supprespace est le Chr(32)

isabelle



Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub



Super, ça marche avec le code 160. Et je comprends maintenant pourquoi
supprespace ne fonctionne pas : les blancs que je cherche à supprimer ne
sont pas de vrais espaces, mais le fameux caractère n° 160...

Merci beaucoup !





Avatar
twinley
Bonjour jps

Tu as eu accès au programme de rickhuberttesttoualietc ?
Pas de violence, je te prie, déjà que le titre du post à un relent
raciste...
Je ne t'ai pas vu au défilé, peut être au pince-fesse de l'Elysée alors ?!

à+twinley

jps wrote:
à ce sujet, je connais des informaticiens vraiment charlots qui
n'appartiennent pourtant pas à la moindre des SSII dont je tairai
malgré tout le nom
je m'explique : dans la saisie d'un formulaire sur un site bancaire,
dans une certaine case, il ne faut pas que le texte saisi soit autre
chose qu'un seul mot (ex: jesuiscon) ; si le pauvre bougre qui tente de
remplir ce formulaire a le malheur de saisir "je suis con", une msgbox
lui saute au visage avec, écrit dedans : la chaîne ne doit pas comporter
de " "
et avec ça, ledit bougre va passer une bonne heure à chercher ce qu'il a
bien pu taper de faux en regardant si dans les autres cases, il n'y a
pas un truc qui a foiré dans la saisie du RIB (car il s'agit de cela, à
la fin du compte)...bref, la prise de tête jusqu'à téléphoner à la
banque qui trnasfère sur la SSII involved et là, un gugus, au demeurant
très gentil (à 18h une veille de 14 juillet, c'est rare) qui fait les
essais avec vous, appelle un pote à lui qui, ex abrupto, s'écrit "mais
ça veut dire qu'il ne faut pas d'espace dans le texte"
vous voulez pas me dire que le concepteur du programme n'aurait pas pu
écrire : la chaîne ne doit pas contenir d'espaces...
s'il me tombe un jour sous la main, çui-là, je l'escrabouille
jps

"isabelle" a écrit dans le message de news:


bonjour Gillou,

oui c'est bien ça, l'espace détecté par supprespace est le Chr(32)

isabelle



Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub




Super, ça marche avec le code 160. Et je comprends maintenant
pourquoi supprespace ne fonctionne pas : les blancs que je cherche à
supprimer ne sont pas de vrais espaces, mais le fameux caractère n°
160...

Merci beaucoup !









Avatar
jps
:-))))))
m'aurais-tu surpris avec alliot-marie par zazar?
jps

"twinley" a écrit dans le message de news:

Bonjour jps

Tu as eu accès au programme de rickhuberttesttoualietc ?
Pas de violence, je te prie, déjà que le titre du post à un relent
raciste...
Je ne t'ai pas vu au défilé, peut être au pince-fesse de l'Elysée alors ?!

à+twinley

jps wrote:
à ce sujet, je connais des informaticiens vraiment charlots qui
n'appartiennent pourtant pas à la moindre des SSII dont je tairai malgré
tout le nom
je m'explique : dans la saisie d'un formulaire sur un site bancaire, dans
une certaine case, il ne faut pas que le texte saisi soit autre chose
qu'un seul mot (ex: jesuiscon) ; si le pauvre bougre qui tente de remplir
ce formulaire a le malheur de saisir "je suis con", une msgbox lui saute
au visage avec, écrit dedans : la chaîne ne doit pas comporter de " "
et avec ça, ledit bougre va passer une bonne heure à chercher ce qu'il a
bien pu taper de faux en regardant si dans les autres cases, il n'y a pas
un truc qui a foiré dans la saisie du RIB (car il s'agit de cela, à la
fin du compte)...bref, la prise de tête jusqu'à téléphoner à la banque
qui trnasfère sur la SSII involved et là, un gugus, au demeurant très
gentil (à 18h une veille de 14 juillet, c'est rare) qui fait les essais
avec vous, appelle un pote à lui qui, ex abrupto, s'écrit "mais ça veut
dire qu'il ne faut pas d'espace dans le texte"
vous voulez pas me dire que le concepteur du programme n'aurait pas pu
écrire : la chaîne ne doit pas contenir d'espaces...
s'il me tombe un jour sous la main, çui-là, je l'escrabouille
jps

"isabelle" a écrit dans le message de news:


bonjour Gillou,

oui c'est bien ça, l'espace détecté par supprespace est le Chr(32)

isabelle



Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub




Super, ça marche avec le code 160. Et je comprends maintenant pourquoi
supprespace ne fonctionne pas : les blancs que je cherche à supprimer
ne sont pas de vrais espaces, mais le fameux caractère n° 160...

Merci beaucoup !










Avatar
twinley
Non, je pensais que tu avais meilleur goût...
Les politiques me lèvent le coeur mais sous la torture, si j'étais
obligé je choisirai la brunette qui est toujours derrière Delanoé.

à+twinley

jps wrote:
:-))))))
m'aurais-tu surpris avec alliot-marie par zazar?
jps

"twinley" a écrit dans le message de news:


Bonjour jps

Tu as eu accès au programme de rickhuberttesttoualietc ?
Pas de violence, je te prie, déjà que le titre du post à un relent
raciste...
Je ne t'ai pas vu au défilé, peut être au pince-fesse de l'Elysée
alors ?!

à+twinley

jps wrote:

à ce sujet, je connais des informaticiens vraiment charlots qui
n'appartiennent pourtant pas à la moindre des SSII dont je tairai
malgré tout le nom
je m'explique : dans la saisie d'un formulaire sur un site bancaire,
dans une certaine case, il ne faut pas que le texte saisi soit autre
chose qu'un seul mot (ex: jesuiscon) ; si le pauvre bougre qui tente
de remplir ce formulaire a le malheur de saisir "je suis con", une
msgbox lui saute au visage avec, écrit dedans : la chaîne ne doit pas
comporter de " "
et avec ça, ledit bougre va passer une bonne heure à chercher ce
qu'il a bien pu taper de faux en regardant si dans les autres cases,
il n'y a pas un truc qui a foiré dans la saisie du RIB (car il
s'agit de cela, à la fin du compte)...bref, la prise de tête jusqu'à
téléphoner à la banque qui trnasfère sur la SSII involved et là, un
gugus, au demeurant très gentil (à 18h une veille de 14 juillet,
c'est rare) qui fait les essais avec vous, appelle un pote à lui qui,
ex abrupto, s'écrit "mais ça veut dire qu'il ne faut pas d'espace
dans le texte"
vous voulez pas me dire que le concepteur du programme n'aurait pas
pu écrire : la chaîne ne doit pas contenir d'espaces...
s'il me tombe un jour sous la main, çui-là, je l'escrabouille
jps

"isabelle" a écrit dans le message de news:


bonjour Gillou,

oui c'est bien ça, l'espace détecté par supprespace est le Chr(32)

isabelle



Sub Macro11()
Cells.Replace What:=Chr(??), Replacement:="", LookAt:=xlPart
End Sub





Super, ça marche avec le code 160. Et je comprends maintenant
pourquoi supprespace ne fonctionne pas : les blancs que je cherche
à supprimer ne sont pas de vrais espaces, mais le fameux caractère
n° 160...

Merci beaucoup !