supprimer des espaces

[kastor]

Bonjour,

Je cherche une solution pour supprimer des espaces dans une cellule.

EX : en "A1" j'ai "06 05 47 " et je voudrais obtenir "060547"

et ça sous forme de range ("A1").value ="060547"

Merci pour votre aide

 

[Pierrot93]

Re : supprimer des espaces

Bonjour,

regarde peut être ceci :

Range("A1").Value = Replace(Range("A1").Value, " ", "")

bon après midi
@+

Edition : bonjour 00🙂

 

[DoubleZero]

Re : supprimer des espaces

Bonjour, kastor, Pierrot 🙂, le Forum,

Une autre possibilité :

Sub Zéro_espace_mais_avec_zéro()
Dim c As Range
Columns("A:A").Replace What:=" ", Replacement:=""
For Each c In Range("a1", [a65000].End(xlUp))
    If c.Value <> "" And Len(c.Value) = 5 Then c.Value = "'0" & c.Value
Next
End Sub

A bientôt 🙂

 

[kastor]

Re : supprimer des espaces

Merci mais je ne veux pas remplacer les valeurs,

Je me suis mal exprimé, désolé

Mais obtenir la valeur dans les espaces, mais avec le "0" devant.

du type val = "060547......."

 

[job75]

Re : supprimer des espaces

Bonjour kastor, salut Pierrot, DoubleZero 🙂

Tu as raison DoubleZero, notre client veut un zéro devant s'il n'y a plus que 5 chiffres.

Mais peut-être que ceci, plus simple, lui conviendra :

Sub Zéro_espace()
[A:A].Replace " ", "", xlPart
[A:A].NumberFormat = "000000"
End Sub

A+

 

[DoubleZero]

Re : supprimer des espaces

Re-bonjour,

Pourrions-nous voir à quoi ressemble le fichier de travail, dépourvu de donnée confidentielle, avec les données obtenues et les valeurs attendues ?

A bientôt 🙂

P. S. : bonjour, job75 😀, JHA

 

[JHA]

Re : supprimer des espaces

Bonjour à tous,

=TEXTE(SUBSTITUE(A1;" ";"");"000000")

JHA

 

[job75]

Re : supprimer des espaces

Re,

Je me suis mal exprimé, désolé

Oui, et après 7 posts on ne sait toujours pas où vous voulez mettre le résultat.

Si c'est pour le mettre dans une variable VBA :

Sub Test()
Dim v As String
v = Replace([A1].Text, " ", "")
MsgBox v 'pour tester
End Sub

A+

 

[kastor]

Re : supprimer des espaces

Donc, je dois récupérer un numéro de téléphone en cellule "A1" par exemple ("06 00 00 00 00") pour supprimer les espaces et conserver uniquement les caractères numériques



Sub envoitexto()





Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Dim Message As String
Dim TheDay As Date

TheDay = Date

Message = "message du texto"

numtél = range ("A1").value '(exemple : 0600000000)

Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
With OLMail
.To = numtél & "@opérateur.fr"
.CC = MailCC
.Importance = olImportanceNormal
.Subject = ""
.Body = Message
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send

End With


Set OLApplication = Nothing
Set OLMail = Nothing
End Sub

 

[job75]

Re : supprimer des espaces

Re,

La formule que j'ai donnée au post #8 appliquée à votre code :

numtél = Replace([A1].Text, " ", "")

Avez-vous compris qu'elle fonctionne dans tous les cas ?

- valeur texte en A1 (chiffres séparés par des espaces)

- valeur numérique en A1 au format Spécial Numéro de téléphone.

A+

 

[kastor]

Re : supprimer des espaces

Merci, job75

Je n'avais pas vu hier.

c'est parfait