Supprimer tous les espaces d'une chaine de caractères

[petithomme]

Bonjour,

c'est encore moi

Je souhaite supprimer tous les espaces d'une chaine de caratères à partir d'une extraction et mettre cette nouvelle chaine au format nombre pour effectuer des opérations mathématiques.


voila tout est dans le .xls

Merci

 

[petithomme]

Re : Supprimer tous les espaces d'une chaine de caractères

PS : Formule ou vba, comme vous trouvez ^^

j'ai essayé ca :

Function supespace(ch As String) As String
Dim longueur As Integer
Dim i As Integer
Dim chf As String
longueur = Len(ch)
i = 1
chf = ""
While i <= longueur
    If Mid(ch, i, 1) = " " Then
        chf = chf & Mid(ch, i, 1)
    End If
    i = i + 1
Wend
supespace = chf
End Function

fonction qu'on utiliserait dans une cellule mais en fait qu'en j'extrais un espace il me le prend ni en "" ni en " " . . .
donc ma chaine finale est la même que la 1ere . . .

 

[gbinforme]

Re : Supprimer tous les espaces d'une chaine de caractères

bonjour

essaie plutôt : If not Mid(ch, i, 1) = " " Then

 

[mutzik]

Re : Supprimer tous les espaces d'une chaine de caractères

bonjour

=SUBSTITUE(A1;" ";"") te fait cela sans prob

 

[petithomme]

Re : Supprimer tous les espaces d'une chaine de caractères

Merci mais aucune ne fonctionne les espaces y sont toujours . . .
je viens de tester je crois que cela est dû à ma formule d'extraction mais je ne vois pas comment faire . . .

 

[GPLIONEL]

Re : Supprimer tous les espaces d'une chaine de caractères

Bonjour Petithomme,

Le problème vient de l'espace entre tes chiffres, ce sont des espaces "insécables" seul Word gère ces espaces. Il faut avant d'extraire les données dans excel passer par word pour supprimer tous les espaces insacables. Pour info dans word pour faire un espace insécable il faut maintenir enfoncé les touches Maj+Alt en faisant ton espace.
Dans "Edition" "Remplacé" tu fais remplacé Maj+Alt+Espace par rien !!!!

 

[petithomme]

Re : Supprimer tous les espaces d'une chaine de caractères

HA ! quel mierda . . . je peux pas passer par word avant.

mais merci quand même je vais m'arranger pour ne pas utiliser ce champs dans mes calculs . .

Merci

 

[mutzik]

Re : Supprimer tous les espaces d'une chaine de caractères

Re petithomme, donne nous un bout de ton fichier, il y a toujours un moyen de supprimer des caractères, même dans excel

 

[ninbihan]

Re : Supprimer tous les espaces d'une chaine de caractères

Bonjour le forum et tous sur ce fil


Voici une solution en récupérant le code de l'espace


Bonne journée,

Ninbihan

 

[petithomme]

Re : Supprimer tous les espaces d'une chaine de caractères

lol mon bout de fichier était au 1er post ^^

En mangeant a midi un éclair m'a foudroyé et paf :

Function supespace(ch As String) As String
Dim longueur As Integer
Dim i As Integer
Dim chf As String
longueur = Len(ch)
i = 1
chf = ""
While i <= longueur
    If IsNumeric(Mid(ch, i, 1)) Then
        chf = chf & Mid(ch, i, 1)
    End If
    i = i + 1
Wend
supespace = chf
End Function

j'avais la solution ^^

je vais jetter un coup d'oeil à ta soluce ninbihan

Merci a tous !

 

[petithomme]

Re : Supprimer tous les espaces d'une chaine de caractères

Voici une solution en récupérant le code de l'espace

hey hey ! ca marche nikel aussi

 

[JEFFFOU]

Re : Supprimer tous les espaces d'une chaine de caractères

Merci Bertrand - A+

bonjour

=SUBSTITUE(A1;" ";"") te fait cela sans prob