formattage

Le
Hawk
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
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
RGI
Le #4908621
Bonjour

avec ceci

Sub Virespaces()
mStr = [b5].Value
nstr = Replace(mStr, " ", "")
MsgBox nstr
End Sub

Sub Virelepoint()
mStr = [b4].Value
nstr = Replace(mStr, ".", "")
MsgBox nstr

End Sub

Salutations

RGI


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


Ellimac
Le #4908611
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



garnote
Le #4908601
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"
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
Le #4906111
Merci

On Thu, 28 Jun 2007 11:49:03 -0400, "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"
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
Le #4906101
Merci

On Thu, 28 Jun 2007 11:49:03 -0400, "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"
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
Le #4906091
Merci

On Thu, 28 Jun 2007 17:33:31 +0200, RGI
Bonjour

avec ceci

Sub Virespaces()
mStr = [b5].Value
nstr = Replace(mStr, " ", "")
MsgBox nstr
End Sub

Sub Virelepoint()
mStr = [b4].Value
nstr = Replace(mStr, ".", "")
MsgBox nstr

End Sub

Salutations

RGI


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




Publicité
Poster une réponse
Anonyme