Fonction VBA pour supprimer les espaces dans une cellule
6 réponses
Caroual
Bonjour,
Je recherche une fonction VBA qui permette de supprimer tous les espaces
d'une cellule.
Il y a bien
LTrim qui supprime au cas où les espaces du début de cellule
RTrim qui supprime au cas où les espaces de fin d'une cellule
Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur
de la cellule
exemple :
Range("A1")= "xxx yyy zzz"
et je veux comme résultat "xxxyyyzzz"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
A ma connaissance n'existe pas. Tu peux te faire une fonction personnalisée pour réaliser ta demande
Function suppspaces(rng As Range)
For I = LBound(Split(rng, " ")) To UBound(Split(rng, " ")) temp = Split(rng, " ")(I) & temp Next suppspaces = temp
End Function
A+
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
Bonjour,
A ma connaissance n'existe pas. Tu peux te faire une fonction
personnalisée pour réaliser ta demande
Function suppspaces(rng As Range)
For I = LBound(Split(rng, " ")) To UBound(Split(rng, " "))
temp = Split(rng, " ")(I) & temp
Next
suppspaces = temp
End Function
A+
Bonjour,
Je recherche une fonction VBA qui permette de supprimer tous les espaces
d'une cellule.
Il y a bien
LTrim qui supprime au cas où les espaces du début de cellule
RTrim qui supprime au cas où les espaces de fin d'une cellule
Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur
de la cellule
exemple :
Range("A1")= "xxx yyy zzz"
et je veux comme résultat "xxxyyyzzz"
A ma connaissance n'existe pas. Tu peux te faire une fonction personnalisée pour réaliser ta demande
Function suppspaces(rng As Range)
For I = LBound(Split(rng, " ")) To UBound(Split(rng, " ")) temp = Split(rng, " ")(I) & temp Next suppspaces = temp
End Function
A+
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
Ardus Petus
s= replace(Range("A1").value, " ","")
remplace tous les espaces
Cordialement, -- AP
"Caroual" a écrit dans le message de news:
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
s= replace(Range("A1").value, " ","")
remplace tous les espaces
Cordialement,
--
AP
"Caroual" <caroual@wanadoo.fr> a écrit dans le message de news:
uHOqp9CcGHA.3952@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je recherche une fonction VBA qui permette de supprimer tous les espaces
d'une cellule.
Il y a bien
LTrim qui supprime au cas où les espaces du début de cellule
RTrim qui supprime au cas où les espaces de fin d'une cellule
Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur
de la cellule
exemple :
Range("A1")= "xxx yyy zzz"
et je veux comme résultat "xxxyyyzzz"
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
Quetzalcoatl
Bonjour,
Essaie : Trim
Nous dire.
"Caroual" a écrit dans le message de news:
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
Bonjour,
Essaie :
Trim
Nous dire.
"Caroual" <caroual@wanadoo.fr> a écrit dans le message de news:
uHOqp9CcGHA.3952@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je recherche une fonction VBA qui permette de supprimer tous les espaces
d'une cellule.
Il y a bien
LTrim qui supprime au cas où les espaces du début de cellule
RTrim qui supprime au cas où les espaces de fin d'une cellule
Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur
de la cellule
exemple :
Range("A1")= "xxx yyy zzz"
et je veux comme résultat "xxxyyyzzz"
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
JB
Bonjour,
x="aaa bbb ccc" x = Application.Substitute(x, " ", "") ' ou x=Replace(x," ","") si 2000
JB
Bonjour,
x="aaa bbb ccc"
x = Application.Substitute(x, " ", "") ' ou x=Replace(x," ","") si
2000
x="aaa bbb ccc" x = Application.Substitute(x, " ", "") ' ou x=Replace(x," ","") si 2000
JB
Caroual
Bonjour, Merci de m'avoir répondu aussi rapidement. l'utilisation des fonctions (replace) ou (application.substitute) répondent parfaitement à ce que je voulais faire. Encore merci à tous Cordialement Caroual
"Caroual" a écrit dans le message de news:
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
Merci
Bonjour,
Merci de m'avoir répondu aussi rapidement.
l'utilisation des fonctions (replace) ou (application.substitute) répondent
parfaitement à ce que je voulais faire.
Encore merci à tous
Cordialement
Caroual
"Caroual" <caroual@wanadoo.fr> a écrit dans le message de news:
uHOqp9CcGHA.3952@TK2MSFTNGP04.phx.gbl...
Bonjour,
Je recherche une fonction VBA qui permette de supprimer tous les espaces
d'une cellule.
Il y a bien
LTrim qui supprime au cas où les espaces du début de cellule
RTrim qui supprime au cas où les espaces de fin d'une cellule
Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur
de la cellule
exemple :
Range("A1")= "xxx yyy zzz"
et je veux comme résultat "xxxyyyzzz"
Bonjour, Merci de m'avoir répondu aussi rapidement. l'utilisation des fonctions (replace) ou (application.substitute) répondent parfaitement à ce que je voulais faire. Encore merci à tous Cordialement Caroual
"Caroual" a écrit dans le message de news:
Bonjour, Je recherche une fonction VBA qui permette de supprimer tous les espaces d'une cellule. Il y a bien LTrim qui supprime au cas où les espaces du début de cellule RTrim qui supprime au cas où les espaces de fin d'une cellule Mais je n'ai pas trouvé de fonction qui supprime les espaces à l'intérieur de la cellule exemple : Range("A1")= "xxx yyy zzz" et je veux comme résultat "xxxyyyzzz"
