Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer les espaces

B

Bruno

Guest
Bonjour a tous,

Dans une base de donnée j'ai une liste de produit du style :
Produit 25 250 Gr x 10

Je voudrais enlever tous les espaces inutile pour avoir :
Produit 25 250 Gr x 10

Est il possible de le faire en Vba ?

merci de votre aide à tous

@+
 
V

Vériland

Guest
y'a pas d'quoi Pat5..mais pour moi ce n'est pas réellement une macro...c'est seulement une solution qui permet de ranger la Formule "SUPPRESPACE()" dans la cellule A1 qui vient de la cellule C1

ceci étant concernant la question la source provient d'un autre fichier...il faudra une autre réponse...lol

A+ Vériland
 
P

pat5

Guest
Encore merçi Vériland et en même temps je viens de m'apercevoir que j'avais déjà ça sur mon micro ( j'en ai trop, il faudrait que je classe )

Sub EffacerLesEspaces()

'Pour chaque cellule dans la sélection
For Each C In Selection.Cells
'Renvoie une valeur de type Variant (String) contenant une copie d'une chaîne
'en supprimant les espaces de gauche (LTrim), les espaces de droite (RTrim)
'ou les deux (Trim).

'Syntaxe

'LTrim (chaîne)
'RTrim (chaîne)
'Trim (chaîne)

'On prend la valeur de la cellule et on supprime tous les espaces.
C.value = Application.Trim(C.value)

'Cellule suivante
Next C

End Sub

A+ ;o)
 
B

Bruno

Guest
remerci a tous

Si j'ai utiliser la formule pour me dépanner.
Mais je préfère un code en vba pour le faire automatiquement, j'ai essayer la macro de Pat5 qui marche très bien.

@+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…