Suppression espace indésirable sous excel?
Résolu/Fermé
A voir également:
- Suppression espace indésirable sous excel?
- Espace insécable word - Guide
- Liste déroulante excel - Guide
- Forcer suppression fichier - Guide
- Formule excel - Guide
- Comment liberer de l'espace sur gmail - Guide
4 réponses
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
25 août 2005 à 15:10
25 août 2005 à 15:10
;-)
;-)
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
;-)
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
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
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
WhiteFang
Messages postés
2056
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
>
Don
23 mai 2007 à 18:26
23 mai 2007 à 18:26
;-)
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...
;-)
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...
;-)
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/
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/
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
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
25 août 2005 à 15:54
25 août 2005 à 16:01
27 sept. 2006 à 11:37
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
30 sept. 2006 à 09:41
26 avril 2007 à 09:58
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