comment supprimer des espace vide dans une chaine

Question

Bonjour a tous, je cherche commnet supprimer les espace vide fans une chaine de caractere. ex: "bonjour a toi" avec espace
                        "bonjouratoi" snas espace

J'ai trouve la fonction trim mais cela ne vide pas les espace, juste a me dire quel fonction ou comment faire 

Merci

Renfield · Accepted Answer

d'accord avec pcpt, le do...until est inutile.

pas d'accord par contre avec la remarque sur le VbNullString, dont l'emploi est correct ici.

(VbNullstring, &#224; ne pas confondre avec VbNullChar)

de plus, drelinqc Replace$ n'existe pas ^^ 
et le TextCompare (qui indique une recherche qui ignore la casse) est inutile ici, un espace majuscule, j'ai jamais vu &#231;a ^^

je conclue donc en indiquant la ligne :

stChaine = "bonjour a toi"
stChaine = Replace(stChaine, " ", vbNullString)
MsgBox  stChaine

PS:
Trim$ permet de supprimer les espaces a gauche et a droite de la chaine (comme dans "    Bonjour   ")
LTrim$ et RTrim$ ne 'nettoient' qu'un cot&#233; (Gauche ou droite)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

drelinqc · Answer

Voici une fonction qui pourrait être utilisé pour résoudre votre problème :


  Dim stChaine As String

  stChaine = "Chaine de caractere ici"

  Do Until InStr(1, stChaine, Chr$(32)) = 0
    stChaine = Replace$(stChaine, Chr$(32), vbNullString, , , vbTextCompare)
  Loop

  ' Maintenant la variable stChaine est vidée de ses espaces

PCPT · Answer

salut,

le do est inutile est le vbnullstring est un chr(0), donc pas bien ;)



stChaine = "bonjour a toi"

stChaine = Replace$(stChaine," ", "")

crenaud76 · Answer

Renfield < Replace$ existe bel et bien, en VB6 du moins.

CR

Renfield · Answer

Replace renvoie un String
Replace$ appelle Replace....

Replace$ n'apparait d'ailleurs pas dans l'explorateur d'objets (F2)
tapes 
Replace$(
cliques dans le mot...
et presse Shift + F2

l'explorateur d'objet indique bien la fonction Replace...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

crenaud76 · Answer

OK ! comme vB6 est compliqué en fait !!!

CR

biegontrand · Answer

Salut à vous, j'aimerais savoir si la fonction Replace$() peut etre utilisée en VBA sous Excel 2000 ?
Moi j'ai un problème comme celui ci :

J'utilise la fonction CountIf(). En fait j'aimerais pouvoir compter le nombre de personnes appartenant à une entité (service) : par exemple "DG / CA /MED". Comme vous voyez ma chaine de caractère contient des espaces. Mais lorsque j'utilise la fonction CountIf() ca se passe bien jusqu'ici : 

For Each z1 In zone1 
Application.CountIf(z1.Offset(0, 23), "*DG" & "*") then x1 = x1 + 1 
Next z1 

Mais mon problème est que j'ai aussi des entités comme : "DGA / DT / TP" par exemple et donc ma fonction me compte également ces personnes alors que "DG" est différent de "DGA". S'il vous plait, comment puis je faire la différence entre les deux ? Merci d'avance.

Comment supprimer des espace vide dans une chaine

7 réponses

Discussions similaires