Excel

Résolu
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   -  
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

voila j'ai develloper un code qui me permet de recuperer des données sous forme de string mais le probleme j'ai des espace entre deux caractere

j'ai essai avec

debug.print toto

connaissez vous une autre methode pour effacé les espaces

merci de vore aide

cordialement
A voir également:

15 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

et si tu traitais le problème à la source : j'ai develloper un code
Manifestement il ne retourne pas des chaines adaptées à excel, change de codage de caractère pour trouver le bon (essaie unicode, ansi ...)

eric
2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

j'ai develloper un code qui me permet de recuperer des données sous forme de string
Pourriez vous nous transmettre ce-dit code?

Sinon :
LTrim(String) supprime les espaces en début de chaine,
RTrim(String) supprime les espaces en fin de chaine,
Trim(String) supprime les espaces en début et en fin de chaine
Replace(String, " ", "") supprime tous les espaces.
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
bonjour et merci de votre aide

Public Sub gettoto()

Dim titi As String



titi = myfunction


Debug.Print titi


'et la j'ai mes données qui s'affiche sur la fenetre d'execution mais avec des espaces entre

End Sub


je souhaiterais utilisé replace pour effacé les espaces entre les caractere

comment je pourrais faire pouvez vous m'aider SVP

merci encore une fois

cordialement
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
remplace :
titi = myfunction 
par :
titi = myfunction 
titi = Replace(titi, " ", "")
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
merci de votre aide

j'ai essai mais ca ne marche pas j'ai le meme resultat

un espace entre deux caractere

Avez-vous d'autre solution SVP

merci de votre aide

cordialement
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Il doit y avoir un autre souci. Sans avoir accès ni à tes données, ni au code complet je ne peux plus faire grand chose pour toi...
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
A quoi correspond : myfonction ... ?
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
bonsoir et merci de votre attention

myfunction est un get en web services (réalisé sous c++ dans une dll)que j'appel depuis vba et je recupere son résultat dans ma fenetre d'excution, mais le probleme est que le resultat retourné ya des espace entre les caractere

voila un apercu du resultats

[ { " s e l f " : " h t t p : / / l o c a l h o s t : 8 0 8 0 /.......} ]

j'espere que j'etais claire, sinon n'hesite pas

merci de votre aide

cordialement
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Merci, donc [myfonction] vous renvoi une chaine...
Cas 1 par :
titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")


Salutations.
Le Pingou
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
j'ai essayer cette fois ci ca m'envoie juste le premier caractere

donc juste le :

[

merci encore de votre aide

cordialement
0
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour à tous,

Si le replace ne fonctionne pas il faudrait essayer avec un espace insécable (alt 0160 ou alt 255).

Si cela n'est pas fonctionnel il faut récupérer le résultat et le coller dans un éditeur hexa pour voir le caractère qui est intercalé dans le résultat.
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
BONSOIR ET MERCI DE VOTRE AIDE

(alt 0160 ou alt 255) la methode ne fonctionne pas
sinon pour edit hexa il l'est pas mal l'outil sinon c'est pas vraiment mon but de recuperer le resultat le mettre dans fichier le coller et comprendre le reste , non je souhaite recuperer directement mon resultat sans espace entre les caractere dans ma fenetre d'exuction

merci de votre aide

cordialement
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Avez-vous utilisez cette formule que j'avais modifié:

titi = myfunction   
titi = Application.WorksheetFunction.Substitute(titi," ","")
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
oui c'est bien celle la mais ca m'envoie que le premier caractere

titi = myfunction
titi = Application.WorksheetFunction.Substitute(titi," ","")
0
amine69500 Messages postés 422 Date d'inscription   Statut Membre Dernière intervention   12
 
Bonsoir et merci encore pour ceux qui ont essayé de m'aider

merci a toi aussi erric ta vais raison le probleme venais de la source (la fonction de la dll crée sous c++)

il fallait changer le resultat de la fonction, de BSTR en LPCSTR,

merci encore une fois

Bonne soirée a tous
0