Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel comment enlever un espace dans une cellule pour retrouver le format nombre ?

comment enlever un espace dans une cellule pour retrouver le format nombre ?

14 réponses
Avatar
Nathalie et François
bonsoir à tous,
j'utilise le copier coller sur une page au format pdf pour le transferer sur
une feuille excel.
Seul souci: lors du coller il subsiste un espace derrière mon chiffre, je
m'explique à l'aide d'un exemple:
12.30espace
Ce qui fait que je ne peux pas modifier le format de ma cellule (reste au
format standard) ni utiliser CNUM.... et je suis obligé de reprendre toutes
les cellules pour supprimer l'espace !!! afin de pouvoir exploiter mes
données. et ça fait un paquet de cellules à modifier à chaque fois...

y-a-t-il une astuce car je sèche complètement ?

merci de votre aide,
François.G
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Nathalie et François
en fait je voudrais pouvoir selectionner une colonne et lancer une macro qui
me retirerait cet espace ???
Avatar
Tatanka
Bonsoir,

Peut-être ceci :

Sub Test()
For Each v In Selection
v.Value = Trim(v.Value)
Next v
End Sub

Serge

"Nathalie et François" a écrit dans le message de news: 4cfe8c26$0$13967$
en fait je voudrais pouvoir selectionner une colonne et lancer une macro qui me retirerait cet espace ???

Avatar
Nathalie et François
Bonsoir Serge,

super c'est exactement ce que je cherchais, merci beaucoup, ça va me faire
gagner un temps, fou..

encore merci.

cordialement, François.G
Avatar
Tatanka
Mais s'il y avait des espaces insécables, ça ne fonctionnerait pas.
Mieux vaut dans ce cas :

Sub AutreTest()
For Each v In Selection
v.Value = Replace(v.Value, Chr(160), "")
Next v
End Sub

Serge


"Nathalie et François" a écrit dans le message de news: 4cfe94f8$0$2105$
Bonsoir Serge,

super c'est exactement ce que je cherchais, merci beaucoup, ça va me faire gagner un temps, fou..

encore merci.

cordialement, François.G

Avatar
michdenis
Bonjour Serge,

Dans ce cas, ceci serait suffisant :

'------------------------
Sub test()
Selection.Replace Chr(160), ""
End Sub
'------------------------


MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : idm5nj$h6$

Mais s'il y avait des espaces insécables, ça ne fonctionnerait pas.
Mieux vaut dans ce cas :

Sub AutreTest()
For Each v In Selection
v.Value = Replace(v.Value, Chr(160), "")
Next v
End Sub

Serge


"Nathalie et François" a écrit dans le message de news: 4cfe94f8$0$2105$
Bonsoir Serge,

super c'est exactement ce que je cherchais, merci beaucoup, ça va me faire gagner un temps, fou..

encore merci.

cordialement, François.G

Avatar
Tatanka
Merci maître,

Et sûrement plus rapide. J'avais essayé d'appliquer Trim à Selection mais en vain.

Serge

"michdenis" a écrit dans le message de news: idmc25$gh1$
Bonjour Serge,

Dans ce cas, ceci serait suffisant :

'------------------------
Sub test()
Selection.Replace Chr(160), ""
End Sub
'------------------------


MichD
--------------------------------------------
"Tatanka" a écrit dans le message de groupe de discussion : idm5nj$h6$

Mais s'il y avait des espaces insécables, ça ne fonctionnerait pas.
Mieux vaut dans ce cas :

Sub AutreTest()
For Each v In Selection
v.Value = Replace(v.Value, Chr(160), "")
Next v
End Sub

Serge


"Nathalie et François" a écrit dans le message de news: 4cfe94f8$0$2105$
Bonsoir Serge,

super c'est exactement ce que je cherchais, merci beaucoup, ça va me faire gagner un temps, fou..

encore merci.

cordialement, François.G




Avatar
Nathalie et François
rebonsoir,

hier je n'avais pas testé le bon fichier et en fait aucune des macros ne
fonctionnent ce n'est peut-être pas de vrais espaces je vous poste donc un
extrait de ce fichier

http://dl.free.fr/mL94PWTvK

j'ai testé et il faut faire ouvrir avec excel.
http://dl.free.fr/mL94PWTvK
Avatar
Nathalie et François
re-bonsoir,
toutes mes excuses ça fonctionne il n'y a plus qu'à convertir en nombre avec
CNUM( ) et ça marche (fonctionne!! ) si on pouvait en plus directement
convertir en nombre, ce serait parfait, en tout cas merci beaucoup de votre
aide, ça faisait un temps certain que je n'utilisais plus de VBa et je m'y
remets c'est fou le temps que l'on gagne...

encore merci
Avatar
Tatanka
Bonsoir,

Essaie donc ceci pour voir :

Sub AutreTest()
Selection.Replace Chr(160), ""
For Each v In Selection
v.Value = 1 * v.Value
Next v
Selection.NumberFormat = "#,##0.00"
End Sub

Serge

"Nathalie et François" a écrit dans le message de news: 4cffc845$0$19712$
re-bonsoir,
toutes mes excuses ça fonctionne il n'y a plus qu'à convertir en nombre avec CNUM( ) et ça marche (fonctionne!! ) si on pouvait en
plus directement convertir en nombre, ce serait parfait, en tout cas merci beaucoup de votre aide, ça faisait un temps certain que
je n'utilisais plus de VBa et je m'y remets c'est fou le temps que l'on gagne...

encore merci


Avatar
Nathalie et François
Bonsoir Serge,

et bien cette fois on y est merci beaucoup, ça fonctionne impecablement
bien.
une dernière question: à quoi sert le Chr(160) ??
cordialement,

François
1 2