Rechercher : dans
Par :

Suppression espace indésirable sous excel?

Dernière réponse le 30 mar 2009 à 20:24:54 kaysersoze, le 25 aoû 2005 à 15:03:01 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « Suppression espace indésirable sous excel? » dans :
Supprimer les doublons dans une colonne Excel VoirPour extraire les doublons dans une colonne Excel : Cliquer sur le menu "Données" "Filtrer" "Filtre élaboré" Dans ce menu, sélectionner la colonne où se trouvent les doublons Cocher la case "Extraire sans doublon" La seule chose est que...
[Word] Supprimer tous les liens hypertextes VoirLorsque vous copiez-collez un extrait d'une page web, vous risquez fort d'obtenir dans le texte de nombreux liens hypertextes. Voici deux solutions pour supprimer les liens hypertextes d'un document Word. 1° solution : un lien hypertexte à la...
Eviter les doublons dans Excel VoirEviter les doublons lors d'un encodage dans un colonne de feuille excel: prendre le format conditionnel sur le première cellule sous les titres (par ex A2) choisir la formule suivante : =NB.SI($A$2:$A$21;A2)>1 mettre là la couleur de fond...
Javascript - Les chaînes de caractères VoirQu'est-ce qu'une chaîne de caractère Une chaîne de caractère est, comme son nom l'indique, une suite de caractères. On la représente par la suite de caractères encadrée par des guillemets simples (') ou doubles ("), sachant que les deux types de...
Systèmes d'exploitation - DOS - Astuces VoirAvoir accès au lecteur de CD-ROM Le lecteur de CD-ROM se déclare dans les fichiers config.sys et autoexec.bat. Dans le fichier config.sys il faut déclarer le gestionnaire de périphérique pour votre lecteur CD-ROM (bien qu'il soit détecté...

1

WhiteFang, le 25 aoû 2005 à 15:10:42
  • +3

;-)

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

;-) Wild and Free

Répondre à WhiteFang

2

kaysersoze, le 25 aoû 2005 à 15:54:13

Merci bcp

Répondre à kaysersoze

3

WhiteFang, le 25 aoû 2005 à 16:01:53

;-) De rien...
Wild and Free

Répondre à WhiteFang

4

thibault, le 27 sep 2006 à 11:37:44

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

Répondre à thibault

5

WhiteFang, le 30 sep 2006 à 09:41:14

;-) Où se trouvent tes espaces "en trop"... ? Wild and Free

Répondre à WhiteFang

6

thierry, le 26 avr 2007 à 09:58:47

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

Répondre à thierry

10

trustpol, le 14 avr 2008 à 09:48:16
  • +1

Bonjour Thierry,

Pourrais-tu me commenter t on message précédent car je voudrais l'appliquer seulement a quelques colonnes de ma

feuille.

Merci beaucoup

Cordialement

Tructpol

Répondre à trustpol

12

blutch, le 14 nov 2008 à 14:18:27
  • +1

Un grand merci pour ce code, j'ai pas compris le contenu...mais il fait exactement ce que je voulais. merchi !

Répondre à blutch

7

Mohamed, le 4 mai 2007 à 00:02:06

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

Répondre à Mohamed

8

Don, le 23 mai 2007 à 15:49:05

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

Répondre à Don

9

WhiteFang, le 23 mai 2007 à 18:26:03

;-)

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...

;-)
Wild and Free

Répondre à WhiteFang

11

laruche, le 17 sep 2008 à 15:21:38

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-espace­s-en-trop-sur-excel/

Répondre à laruche

13

 Kap6, le 30 mar 2009 à 20:24:54

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

Répondre à Kap6