[VBA] pb suppression d'espaces

[swan]

Bonjour,

je désirerais écrire une macro qui supprime les espaces entre les valeurs numériques.
Cependant, je redoute que ça s'affiche sous une forme différente.
Par exemple:

238095054100101 13091938 2 107266976

risque de donner:

2,38095054100101E+32

alors que je veux:

238095054100101130919382107266976

 

[Staple1600]

Re : [VBA] pb suppression d'espaces

Bonjour

EDITION: ça marche aussi comme çà:

Sub test_II()
Dim nochr32 As String
Dim strg As String
strg = "238095054100101 13091938 2 107266976"
nochr32 = Replace(strg, Chr(32), "")
    With Range("A1")
        .NumberFormat = "@"
        .Value = nochr32
        End With
End Sub

A tester

Sub test()
Dim nochr32 As String
Dim strg As String
strg = "238095054100101 13091938 2 107266976"
nochr32 = Replace(strg, Chr(32), "")
Range("A1").Value = "'" & nochr32
End Sub

 

[swan]

Re : [VBA] pb suppression d'espaces

Génial! ton code marche. mais mon problème n'est pas encore résolu.
j'ai une centaine de données à modifier et je ne voudrais pas à chaque fois changer le code
strg = "238095054100101 13091938 2 107266976"

aurais tu une alternative pour ce code avec une boucle par exemple?

Merci!

 

[Staple1600]

Re : [VBA] pb suppression d'espaces

Re


Ce code VBA n'était là que pour te mettre sur la piste.


Avec un fichier exemple reproduisant la structure de tes données, l'aide apportée sera plus efficace

 

[swan]

Re : [VBA] pb suppression d'espaces

Ok c'était au cas où...

Merci quand même!

 

[Staple1600]

Re : [VBA] pb suppression d'espaces

RE



Tu ne peux donc pas joindre un fichier exemple anonymisé et zippé??

For i= [DANS QUEL LIGNE?].End(xlUP).Row to 1 step -1
Cells(i, DANS QUEL COLONNE?).Value= Replace(Cells(i,QUEL COLONNE), Chr(32),"")
Next i

 

[swan]

Re : [VBA] pb suppression d'espaces

voilà, mais normalement g plus de données que ça

 

[pierrejean]

Re : [VBA] pb suppression d'espaces

bonjour swan

Salut Staple 🙂

Vois si tu peux t'inspirer de cela

 

[swan]

Re : [VBA] pb suppression d'espaces

Nickel! ça marche.

Merci pierrejean et Staple.