Suppression espace indésirable sous excel?

Résolu
kaysersoze -  
 Fritz -
Bonjour,


J'ai un soucis sur une macro sous excel car débutant
Je voudrais une macro qui puisse m'enlever tout les espaces superflus dans toutes mes cellules....

Merci par avance pour votre aide
A voir également:

4 réponses

Réponse 1 / 4
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204
 
;-) 
Sub SupprEspaces()
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
    For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
        Cells(L, cl).Value = Trim(Cells(L, C).Value)
        Next
    Next
End Sub

;-)
9
kaysersoze
 
merci bcp
0
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204 > kaysersoze
 
;-) De rien...
0
thibault > WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Je n'arrive pas à faire fonctionner ta macro. Pourrais-tu m'aider?
J'ai un tableau à deux colonnes contenant des nombres avec des espaces indésirables.

J'ai créé ta macro.
Je me place sous mon tableau.
Je lance la macro mais rien ne se passe.

Comment dois-je faire?

Merci Stéphanie
0
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204 > WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention  
 
;-) Où se trouvent tes espaces "en trop"... ?
0
thierry > WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention  
 
Sub SupprEspaces()
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Cells(L, c).Value = Trim(Cells(L, C).Value)
Next
Next
End Sub

voici le bon code
0
Réponse 2 / 4
Mohamed
 
Bonsoir,

ceci peut etre resolu sans macro; selectionner la colonne puis faire CTRL H taper un espace dans la case rechercher et faite entrer... le tour est joué

BY
2
Don
 
En l'occurence non, cette solution ne fonctionne pas... Si le format de nombre initial comprend des espaces pour séparer les milliers, dans mon cas, sous Excel, je ne peux plus modifier le format et la recherche Ctrl+H ne permet pas de les remplacer non plus. D'ailleurs la macro ci-dessus n'arrange pas mon problème non plus
0
WhiteFang Messages postés 2063 Date d'inscription   Statut Membre Dernière intervention   204 > Don
 
;-)

C'est normal... La fonction TRIM ne fonctionne que pour des cellules contenant du texte, pas pour des cellules au format "nombre"... Trim(L,C) n'aura d'effet que sur du texte, pas sur des nombres...

;-)
0
Réponse 3 / 4
laruche
 
Merci pour vos explications...

Pour faire plus simple j'ai recodé votre code ; vous pouvez le télécharger sur mon blog !

http://bout2code.com/non-classe/2008/08/supprimer-les-espaces-en-trop-sur-excel/
0
Réponse 4 / 4
Kap6
 
Bonjour,

J'ai pris le code suivant sur le site mais il me laisse un espace

Sub Etoile()

For Each Item In Selection
Item.Value = "*" & Item.Offset(0, 0) & "*"
Item.Value = UCase(Item.Value)
Item.Value = Application.Trim(Item.Value)
Next
End Sub


Il y'a également une macro permettant l'insertion d'étoiles de chaque côté du champ mais le problème réside simplement dans le fait que celà me laisse un espace et celà ne viens pas de ma macro étoile ...

Help s'il vous plait

Alexandre
0