Comment supprimer des espace vide dans une chaine
Signaler
DraaFil
biegontrand
- Messages postés
- 264
- Date d'inscription
- mercredi 16 avril 2003
- Statut
- Membre
- Dernière intervention
- 23 mars 2012
biegontrand
- Messages postés
- 5
- Date d'inscription
- vendredi 27 octobre 2006
- Statut
- Membre
- Dernière intervention
- 9 mai 2011
A voir également:
- Vba supprimer espace
- Supprimer espace vba - Meilleures réponses
- Vba supprimer les espaces - Meilleures réponses
- [VB6] Enlever les espaces à l'interieur d'une chaine de caracteres ✓ - Forum - Visual Basic
- Problème d'espace : comment les supprimer? ✓ - Forum - Visual Basic
- Supprimer un espace au début d'un string ✓ - Forum - C# / .NET
- Vba supprimer espace inutile ✓ - Forum - C# / .NET
- Split avec plusieurs espaces de suite ✓ - Forum - Visual Basic
7 réponses
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
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, à 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 ç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é (Gauche ou droite)
Renfield
Admin CodeS-SourceS - MVP Visual Basic
pas d'accord par contre avec la remarque sur le VbNullString, dont l'emploi est correct ici.
(VbNullstring, à 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 ç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é (Gauche ou droite)
Renfield
Admin CodeS-SourceS - MVP Visual Basic
PCPT
- Messages postés
- 13280
- Date d'inscription
- lundi 13 décembre 2004
- Statut
- Modérateur
- Dernière intervention
- 3 février 2018
salut,
le do est inutile est le vbnullstring est un chr(0), donc pas bien ;)
stChaine = "bonjour a toi"
stChaine = Replace$(stChaine," ", "")
le do est inutile est le vbnullstring est un chr(0), donc pas bien ;)
stChaine = "bonjour a toi"
stChaine = Replace$(stChaine," ", "")
drelinqc
- Messages postés
- 2
- Date d'inscription
- samedi 26 avril 2003
- Statut
- Membre
- Dernière intervention
- 23 janvier 2006
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
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
crenaud76
- Messages postés
- 4172
- Date d'inscription
- mercredi 30 juillet 2003
- Statut
- Membre
- Dernière intervention
- 9 juin 2006
Renfield < Replace$ existe bel et bien, en VB6 du moins.
CR
CR
Renfield
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
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
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
- Messages postés
- 4172
- Date d'inscription
- mercredi 30 juillet 2003
- Statut
- Membre
- Dernière intervention
- 9 juin 2006
OK ! comme vB6 est compliqué en fait !!!
CR
CR
biegontrand
- Messages postés
- 5
- Date d'inscription
- vendredi 27 octobre 2006
- Statut
- Membre
- Dernière intervention
- 9 mai 2011
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.
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.