High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

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 :
[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...
Sed - Trucs et astuces VoirSubstitution Affichage Suppression Espace et tabulation Ligne vide Intervalle régulier Divers Joindre des lignes Affichage insensible à la casse Substitution Substituer "foo" par "bar" à chaque ligne Seulement la 1ère...
Posez votre question Répondre

1

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

;-) 

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
Posez votre question Répondre
Ils ont besoin de votre aide