Discussion :

[rjcab]

Bonjour,

Voici ce que j'essaie de faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, " " + " ", " ")

Mais cela ne fonctionne pas.
De plus si l'utilisateur fait 3 espaces, la commande n'est plus bonne.

Si qq1 à une sol ...

[J.Michel]

Et tout betement comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, "  ", " ")

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, chr(32) & chr(32), chr(32))

S'il y a plus de 2 espaces de suite, il faut relancer la procédure

[micniv]

Bonjour,
voici la fonction que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Function fSingleSpaceBetweenWords(ByVal Chaine As String) As String
    Dim str1 As String, str2 As String
    Dim compteur As Long
 
    str1 = Chaine
    compteur = 0
    While str2 <> str1
        If compteur > 1 Then str1 = str2
        str2 = Replace(str1, "  ", " ")
        compteur = compteur + 1
    Wend
 
    fSingleSpaceBetweenWords = str2
 
End Function

que tu utilses par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Form_Build_Order.Commentaires= fSingleSpaceBetweenWords (Form_Build_Order.Commentaires)

[J.Michel]

Il y a aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Do While InStr(1, MonTexte, "  ") > 0
        MonTexte = Replace(MonTexte, "  ", " ")
    Loop

[micniv]

J.michel : 1 point (ouane poïnnete)
C'est plus smart en effet

[rjcab]

Bonjour à vous,

Il est vrai que la proposition de J.michel est simple

Par contre j'ai aps l'impression que mon pb est reglé:

voici un extrait de mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
  If Form_Build_Order.Commentaires.Value <> Empty Then
 
            Do While InStr(1, Form_Build_Order.Commentaires.Value, "  ") > 0
            Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, "  ", " ")
            Loop
 
            'Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, " " + " ", " ")
            Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, Chr(13) + Chr(10), " ")
            Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, Chr(10), " ")
            Form_Build_Order.Commentaires.Value = Replace(Form_Build_Order.Commentaires.Value, Chr(13), " ")
        Else
        End If

En fait le but est:

Un utilisateur saisi du texte dans une zone texte d'un formulaire, celui ci est ensuite exporter en csv.

Par contre ce texte doit comporter qu'un seul espace par mot, par de retour chariot etc. En gros que cela phase une belle phrase sans rien d'autre autrement l'export marche pas bien.

Avec ce code la, mes espace ne sont pas bien gérés et génère un décalage dans l'export.

Je ne vois pas où cela pêche, je regarde .

Merci

[J.Michel]

Peut ête devrais tu mettre la suppression des espaces à la fin

[rjcab]

Me revoila,

J'ai pas l'impression que ca marche pas l'histoire de supprimer les 2 epaces à suivre car dans l'export cela me met ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<div>Déménagement d'un site RH2 Temporaire - RH2 sans création: 06/10/2008 9H Retour dans les locaux d'origine, déplacement du routeur demandé pour le 06/10/2008 9H  &nbsp

Puis le reste dans une autre cellule.
Je crois que cela : &nbsp désinge un espace ?

[J.Michel]

Puis le reste dans une autre cellule.

C'est quoi le reste ?
Et de quelle cellule parles tu ? Je croyais que tu exportais en CVS

[rjcab]

oups pardon ...

J'exporte en csv.

Une fois le fichier créer je l'ouvre avec xls.
et j'ai une partie du texte dans une cellule:

<div>Déménagement d'un site RH2 Temporaire - RH2 sans création: 06/10/2008 9H Retour dans les locaux d'origine, déplacement du routeur demandé pour le 06/10/2008 9H &nbsp

et le reste dans l'autre:
pour que cela soit efficace pour l'install.

Si lors de la saisi j'enlève cet espace en trop aucun pb.
Le pb c'est que ce n'est pas moi l'utilisateur....

[J.Michel]

Quand je prend cette partie de texte dans Excel tout ce passe bien.
Donne nous le fichier CSV pour mieux comprendre.

[rjcab]

Bonjour J.Michel,

Donc voici ce que j'ai fais:
Dans ma zone texte commentaires, j'ai tappé ceci:

a a a

Je fais l'export csv et le 3 ième a est dans la cellule suivante.
Si j'ouvre ce csv avec le bloc note voivi ce que cela donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

;<div>a a &nbsp;a</div>;

Je joins le fichier.

Merci

[J.Michel]

En fait ce qui bloque ce n'est pas le &nbsp mais le ; qui est juste derrière.
De plus il faudrait peut être aussi supprimer le <div> et le </div> pour faire plus propre

[rjcab]

Le ; se met automatiquement, c'est la séparation des champs lors de la creation csv.
pourtant moi je ne met pas ceci, il y a juste:

a a a (2 espaces entre le 2 et 3 a)

[J.Michel]

As tu essayé de faire toi même la création du CSV par procédure ?
Ca te permettrait de donner le format exact de ce que tu veux faire.