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

4 réponses

  1.
    WhiteFang Messages postés 2063 Statut Membre 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
    1. kaysersoze
       
      merci bcp
      0
    2. WhiteFang Messages postés 2063 Statut Membre 204 > kaysersoze
       
      ;-) De rien...
      0
    3. thibault > WhiteFang Messages postés 2063 Statut Membre
       
      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
    4. WhiteFang Messages postés 2063 Statut Membre 204 > WhiteFang Messages postés 2063 Statut Membre
       
      ;-) Où se trouvent tes espaces "en trop"... ?
      0
    5. thierry > WhiteFang Messages postés 2063 Statut Membre
       
      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
  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
    2
    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
      0
      1. WhiteFang Messages postés 2063 Statut Membre 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
  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/
    0
  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