Discussion :

[Gorzyne]

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

[Nicopilami]

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

[Michel_M]

Bonjour

par exemple

Code :

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

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

[Gorzyne]

ok ça marche merci Michel_M

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



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

Code :

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

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