Supprimer les espaces

[nordahl]

Bonjour ,

C'est assez urgent SVP !

Le problème que j'ai est simple : j'utilise un logiciel au taff qui , quand je transfert les données vers excel met un espace pour séparer le millier : ce qui me bloque complètement ca r je ne peux appliquer aucunes formules ; Je ne peux pas le faire non plus à la main car c'est une liste très conséquente . J'ai essayer la fonction texte supprespace mais cela ne fonctionne pas . HELP !!!

Exemple : 10 123 au lieu de 10123

Merci d'avance Bye

 

[Robert]

Re : Supprimer les espaces

Bonjour Nordhal, bonjour le forum,

Un fichier exemple pour que l'on puisse mieux cerner le problèmes serait le bienvenu...

 

[jeanpierre]

Re : Supprimer les espaces

Bonjour nordhal, Robert,

Après selection de ta plage, tu fais Edition/Remplacer dans le premier champ tu saisies un espace et dans le second rien du tout et Remplacer tout.

Si cela ne fonctionne pas, tu refais l'opération mais dans le premier champ (touche Alt enfoncée) tu saisies 0160 et tu termines par Remplacer tout.

Bonne journée.

Jean-Pierre

 

[nordahl]

Re : Supprimer les espaces

Voila ,

 

[nordahl]

Re : Supprimer les espaces

Bonjour nordhal, Robert,

Après selection de ta plage, tu fais Edition/Remplacer dans le premier champ tu saisies un espace et dans le second rien du tout et Remplacer tout.

Si cela ne fonctionne pas, tu refais l'opération mais dans le premier champ (touche Alt enfoncée) tu saisies 0160 et tu termines par Remplacer tout.

Bonne journée.

Jean-Pierre

OOOHHH Merci

Nikel ! Merci beaucoup bonne journée Le alt 0160 fallait l'trouver !

Merci !! Bye

 

[Staple1600]

Re : Supprimer les espaces

Bonsoir à tous


Une solution par macro
(ici traite la colonne A de la feuille active)

Sub NettoyageCellules()
Dim a, i As Long, j As Integer
With Range([A1], [A65536].End(xlUp))
    a = .Value
    .ClearContents
    With CreateObject("VBScript.RegExp")
        .Pattern = "\W"
        .Global = True
        For i = 1 To UBound(a, 1)
            For j = 1 To UBound(a, 2)
                a(i, j) = .Replace(a(i, j), Empty)
            Next
        Next
    End With
    .Value = a
    .Value = .Value
End With
End Sub

 

[Lone-wolf]

Re : Supprimer les espaces

Bonjour Staple et bravo pour le code.

Je viens de tomber (hum... hum...) sur celui-ci et fait un essai avec des mots comme ceci:

p arapluie - ch evaux - bic hounette. Mérite un 20 / 10.

J'aimerais juste savoir que signifie "\W" qui n'est repris nul part dans le code.


A+

 

[Staple1600]

Re : Supprimer les espaces

Bonjour à tous

Lone-Wolf
Tu sais déjà ce que je vais te répondre, non ?
Tu me connais (enfin ma façon d'être sur XLD)
Donc je ne déroge pas :
Un petit coup de G..gling et tu sauras pourquoi ici le pattern choisi est \W
Si tu préfères rester sur XLD, voir le superbe boulot de JNP sur RegExp (dans la FAQ du forum)
Sans oublier le réconfort que tu trouveras dans les bras costauds (pour ce qui est de RegExp en tout cas de David84)

PS: Pas le temps de mettre les liens, je reparte bosser incessamment sous peu.

 

[Staple1600]

Re : Supprimer les espaces

Re,

Lone-Wolf
Ma nutritionniste m'engueulerait si elle me voyait manger si vite.
Mais bon, en cette période pré-apocalyptique et de gros bonhomme rouge avec sa hotte plein de jolis cadeaux, je vais être gentil tout plein.
Voici les liens qui satisfairont ta curiosité bien-placée, Wolfy :
JNP
=7&prefixchoice[]=&prefixchoice[]=Excel_2010&prefixchoice[]=Excel_2007&prefixchoice[]=Excel_2003&prefixchoice[]=Excel_2002&prefixchoice[]=Excel_2000&prefixchoice[]=MAC&prefixchoice[]=Toutes_Versions&prefixchoice[]=Access&prefixchoice[]=Word&prefixchoice[]=Outlook&prefixchoice[]=Power_Point&prefixchoice[]=Visio&prefixchoice[]=Project&prefixchoice[]=Autres&prefixchoice[]=Excel2010&prefixchoice[]=Excel2007&prefixchoice[]=Developpement_vba&prefixchoice[]=Initiation&prefixchoice[]=Prefectionnement&childforums=1&replyless=0&replylimit=0&type[]=1"]David84

 

[Lone-wolf]

Re : Supprimer les espaces

Ooooooohhh! C'est gentil Staply !


A+