Discussion :

[brunop3165]

Bonjour,

Voici un petit moment que je tourne en rond sans trouver de solution malgré mes recherches

Dans un fichier, je récupère des nombres qui se présentent par exemple sous la forme 1 016. Or il n'est pas reconnu comme un nombre, même si je le convertis, et j'ai besoin de le transformer en nombre pour m'en servir dans des calculs.
Pour cela, j'ai essayer de supprimer cet espace qui me gêne => pas de résultat avec la fonction Replace
J'ai donc essayer de contourner le problème en recherchant cet espace pour le supprimer. J'ai par exemple essayé avec les codes suivants :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Test = InStr(Range("P4").Value, " ")

me renvoie la valeur 0, l'espace est donc introuvable alors qu'il est considéré comme un caractère puisque :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Test = Len(Range("P4"))

me donne 5 en réponse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Test = Left(Right(Range("P4").Value, 4), 1)

m'indique que Test = " ", mais impossible d'exploiter cette réponse. J'ai simplement testé avec le code ci-dessous qui ne m'affiche rien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Test = " " Then MsgBox "Espace"

Auriez-vous une solution à me proposer pour supprimer automatiquement ces espaces et me permettre ainsi d'utiliser ces nombres dans mes calculs ? Merci d'avance

Bonne journée
Bruno

[GoFio]

Salut,

Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Test = Replace(Test, " ", "")

Test est ton nombre en variable string
Tu y remplaces l'espace " " par rien ""

Après tu pourras le convertir en un nombre suivant le format que tu souhaites
(tu peux le faire sur la même ligne)

Dis moi si cela fonctionne

[Marc-L]

Bonjour, bonjour,

en fait ce n'est tout simplement pas un espace ! C'est comme cela quand on joue avec le net …

La fonction Asc va permettre de trouver le code exact du caractère et la fonction Chr sera utile pour le remplacement,
consulter l'aide VBA intégrée de chacune …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Menhir]

Est-ce que tu as essayé simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim test2 as integer
test2=val(Range("P4").Value)

Que se passe-t-il si tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim test2 as integer
test2=Range("P4").Value + 1

Et que renvoie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i as integer
For i=1 to len(Range("P4").Value)
   debug.print asc((mid(Range("P4"),i,1))
next i

Avec le nombre que tu as donné, tu devrais obtenir :
49
32
48
49
54
Si le second nombre n'est pas 32, alors ce n'est pas un espace.

[Marc-L]

Comme ce n'est pas un espace au sens du code ASCII #32,
la fonction Val renvoie uniquement la partie à gauche du caractère …

[Menhir]

Effectivement parce qu'un "vrai" espace n'empêcherait pas la fonction Val de convertir cette chaîne en valeur numérique.

[GoFio]

en fait ce n'est tout simplement pas un espace ! C'est comme cela quand on joue avec le net …

Autant pour moi, désolé d'avoir induit en erreur.
Toujours suivre les conseils des plus anciens

[brunop3165]

Merci pour votre aide

Menhir, Marc-L a donné la réponse. Je ne connaissais pas cette fonction VAL.

GoFio, comme indiqué dans mon 1er message, j'avais d'abord essayé cette fonction ... en vain mais elle va tout de même me servir, voir le code ci-dessous

Marc-L, merci beaucoup ça marche avec le code suivant, Asc(Test) renvoyant la valeur 160. Je n'avais jamais utilisé ces fonctions, et je n'ai absolument pas eu l'idée de les utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Test As String
Test = Replace(Range("P4"), Chr(160), "")
Range("P4").Value = Test

Pour info, les "nombres" sont issus d'une application intranet qui me permet d'exporter des résultats de requêtes au format Excel ... mais il semble que ces exportations soient perfectibles puisque ça ne marche pas dans certains cas

Edit : code simplifié

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Test = Left(Right(Range("P4").Value, 4), 1)

Tu devrais jeter un oeil sur la fonction Mid() dans l'aide VBA. Ca va te simplifier la vie.

[Invité]

Salut,

Ça m'étais arrivais aussi sur Excel. La fonction SUPPRESPACE ne marchait pas parce que le caractère Unicode était différent de celui d'un espace standard. Il faut utiliser UNICAR/UNICODE sur EXCEL ou ChrW & AscW sur VBA. Le codage est effectué sur 16 bit plutôt que 8 bit avec UNICAR/UNICODE/ChrW/AscW.

[brunop3165]

Menhir, j'utilise ponctuellement Mid, mais je ne pouvais pas l'utiliser précédemment puisque je ne savais pas quel caractère je cherchais
J'ai édité mon message précédent pour simplifier le code.

[Menhir]

J'ai édité mon message précédent pour simplifier le code.

Encore plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("P4").Value = Replace(Range("P4"), Chr(160), "")

[brunop3165]

Exact, merci