Nettoyage de string avec Application.WorksheetFunction.clean

Version imprimable

04/02/2013, 15h18
Gorzyne

Nettoyage de string avec Application.WorksheetFunction.clean

Bonjour

je dispose dans VBA du strinc "coord" qui vaut

"

4 Rue Du Poney Qui Tousse
39000 Grenoble"

que je souhaite convertir en

"4 Rue Du Poney Qui Tousse
39000 Grenoble"

J'utilise la fonction Application.WorksheetFunction.clean(coord)

mais ça me donne

"4 Rue Du Poney Qui Tousse 39000 Grenoble"

je souhaite conserver le saut de ligne tout en procédant au nettoyage de la chaîne de caractère

Une idée ?

Cdt,
Gorz
04/02/2013, 16h40
Nicopilami

Oublie, j'avais mis une bêtise... je proposais trim, mais ca marche pas...

Bonjour

par exemple

Code:

1
2
texto = Split(Range("A1"), vbLf)
Range("A1") = texto(UBound(texto) - 1) & vbLf & texto(UBound(texto))

ok ça marche merci Michel_M

petite adaptation triviale à faire vu que je passe pas par Excel mais ça marche tout pareil

:ccool:

si l'adresse est sur 3 lignes ça colle pas
je propose la solution suivante qui est sans doute améliorable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
                texto = Split(coord, vbLf)
                temp = ""
                For lig = 0 To UBound(texto)
                    If Application.WorksheetFunction.Clean(texto(lig)) <> "" And Application.WorksheetFunction.Clean(texto(lig)) <> " " Then
                        If temp = "" Then
                            temp = Application.WorksheetFunction.Clean(texto(lig))
                        Else
                            temp = temp & vbLf & Application.WorksheetFunction.Clean(texto(lig))
                        End If
                    End If
                Next lig
                coord = temp