J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Bonjour
avec ceci
Sub Virespaces()
mStr = [b5].Value
nstr = Replace(mStr, " ", "")
MsgBox nstr
End Sub
J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Ellimac
Bonjour,
Edition Remplacer devrait le faire ?
Camille
"Hawk" wrote:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Bonjour,
Edition Remplacer devrait le faire ?
Camille
"Hawk" wrote:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
garnote
Bonsoir Hawk,
Un exemple : Cette macro devrait enlever tous les points et tous les espaces des cellules de la plage A1:A10.
Sub Ménage() Dim c As Range For Each c In [a1:A10] c.Value = Replace(Replace(c, " ", ""), ".", "") Next c End Sub
Serge
"Hawk" a écrit dans le message de news:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Bonsoir Hawk,
Un exemple :
Cette macro devrait enlever tous les points
et tous les espaces des cellules de la plage A1:A10.
Sub Ménage()
Dim c As Range
For Each c In [a1:A10]
c.Value = Replace(Replace(c, " ", ""), ".", "")
Next c
End Sub
Serge
"Hawk" <nospam@orange.fr> a écrit dans le message de news: p4k7835j8b20adej4kj4qltfff1qjnfagp@4ax.com...
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
Un exemple : Cette macro devrait enlever tous les points et tous les espaces des cellules de la plage A1:A10.
Sub Ménage() Dim c As Range For Each c In [a1:A10] c.Value = Replace(Replace(c, " ", ""), ".", "") Next c End Sub
Serge
"Hawk" a écrit dans le message de news:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Hawk
Merci
On Thu, 28 Jun 2007 11:49:03 -0400, "garnote" wrote:
Bonsoir Hawk,
Un exemple : Cette macro devrait enlever tous les points et tous les espaces des cellules de la plage A1:A10.
Sub Ménage() Dim c As Range For Each c In [a1:A10] c.Value = Replace(Replace(c, " ", ""), ".", "") Next c End Sub
Serge
"Hawk" a écrit dans le message de news:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Merci
On Thu, 28 Jun 2007 11:49:03 -0400, "garnote"
<garnote3@ENLEVER.videotron.ca> wrote:
Bonsoir Hawk,
Un exemple :
Cette macro devrait enlever tous les points
et tous les espaces des cellules de la plage A1:A10.
Sub Ménage()
Dim c As Range
For Each c In [a1:A10]
c.Value = Replace(Replace(c, " ", ""), ".", "")
Next c
End Sub
Serge
"Hawk" <nospam@orange.fr> a écrit dans le message de news: p4k7835j8b20adej4kj4qltfff1qjnfagp@4ax.com...
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
On Thu, 28 Jun 2007 11:49:03 -0400, "garnote" wrote:
Bonsoir Hawk,
Un exemple : Cette macro devrait enlever tous les points et tous les espaces des cellules de la plage A1:A10.
Sub Ménage() Dim c As Range For Each c In [a1:A10] c.Value = Replace(Replace(c, " ", ""), ".", "") Next c End Sub
Serge
"Hawk" a écrit dans le message de news:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Hawk
Merci
On Thu, 28 Jun 2007 11:49:03 -0400, "garnote" wrote:
Bonsoir Hawk,
Un exemple : Cette macro devrait enlever tous les points et tous les espaces des cellules de la plage A1:A10.
Sub Ménage() Dim c As Range For Each c In [a1:A10] c.Value = Replace(Replace(c, " ", ""), ".", "") Next c End Sub
Serge
"Hawk" a écrit dans le message de news:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Merci
On Thu, 28 Jun 2007 11:49:03 -0400, "garnote"
<garnote3@ENLEVER.videotron.ca> wrote:
Bonsoir Hawk,
Un exemple :
Cette macro devrait enlever tous les points
et tous les espaces des cellules de la plage A1:A10.
Sub Ménage()
Dim c As Range
For Each c In [a1:A10]
c.Value = Replace(Replace(c, " ", ""), ".", "")
Next c
End Sub
Serge
"Hawk" <nospam@orange.fr> a écrit dans le message de news: p4k7835j8b20adej4kj4qltfff1qjnfagp@4ax.com...
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
On Thu, 28 Jun 2007 11:49:03 -0400, "garnote" wrote:
Bonsoir Hawk,
Un exemple : Cette macro devrait enlever tous les points et tous les espaces des cellules de la plage A1:A10.
Sub Ménage() Dim c As Range For Each c In [a1:A10] c.Value = Replace(Replace(c, " ", ""), ".", "") Next c End Sub
Serge
"Hawk" a écrit dans le message de news:
Bonjour,
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Hawk
Merci
On Thu, 28 Jun 2007 17:33:31 +0200, RGI wrote:
Bonjour
avec ceci
Sub Virespaces() mStr = [b5].Value nstr = Replace(mStr, " ", "") MsgBox nstr End Sub
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?
Merci
Merci
On Thu, 28 Jun 2007 17:33:31 +0200, RGI <nospam.RGI@wanadoo.fr> wrote:
Bonjour
avec ceci
Sub Virespaces()
mStr = [b5].Value
nstr = Replace(mStr, " ", "")
MsgBox nstr
End Sub
J'ai un fichier excel qui va chercher une liste de clients dans une
base de données, par contre la saisie des n°s de tel dans cette base
est aléatoire,
je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou
bien 0 000 000 000 etc...
Comment enlever les espaces du milieu et les points ?
J'ai un fichier excel qui va chercher une liste de clients dans une base de données, par contre la saisie des n°s de tel dans cette base est aléatoire, je peux avoir des n° de type 00.00.00.00.00 ou bien 00 00 00 00 00 ou bien 0 000 000 000 etc... Comment enlever les espaces du milieu et les points ?