[VBA] pb suppression d'espaces

  • Initiateur de la discussion Initiateur de la discussion swan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

swan

XLDnaute Junior
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
 
Re : [VBA] pb suppression d'espaces

Bonjour

EDITION: ça marche aussi comme çà:
Code:
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
Code:
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
 
Dernière édition:
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!
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

W
Réponses
1
Affichages
1 K
willy
W
N
  • Question Question
Réponses
11
Affichages
1 K
nimbus le truand
N
Retour