Comment supprimer des espace vide dans une chaine
DraaFil
- Messages postés
- 264
- Date d'inscription
- mercredi 16 avril 2003
- Statut
- Membre
- Dernière intervention
- 23 mars 2012
- 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
- Vb.net supprimer espace dans string avec gyrophare ! - Codes sources - Visual Basic / VB.NET (Texte)
- VBA supprimer les filtres d'une page ✓ - Forum - Visual Basic 6
- [déplacé VB6 -> VBA] Supprimer des lignes dans Excel ✓ - Forum - Visual Basic 6
- VBA supprimer des feuilles ✓ - Forum - Visual Basic 6
- Supprimer espaces d'une cellule ✓ - Forum - Visual Basic 6
7 réponses
Meilleure réponse
- Messages postés
- 17280
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 21 juillet 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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
214 internautes nous ont dit merci ce mois-ci
- 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
- 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.