Suppression espace indésirable sous excel?

Résolu
kaysersoze -  
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

4 réponses

  1.  WhiteFang
    ;-) 
    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

    ;-)
    1. kaysersoze
      merci bcp
    3. thibault
      @WhiteFangBonjour,
      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
    5. thierry
      @WhiteFangSub 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
  2. 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
    1. 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
    2. WhiteFang
      @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...

      ;-)
  3. 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/
    1. 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