Supprimer les espaces ne marche pas !

T

thebenoit59

XLDnaute Accro

• 21 Avril 2016

• #2

Re : Supprimer les espaces ne marche pas !

Bonjour Phillip.
Trime supprime les espaces à gauche et à droite, pas entre plusieurs mots.
Essaye plutôt:

Code:

Sub ESPACES()
For Each cel In Range("a1:a5")
    cel.Value = Replace(cel.Value, " ", "")
Next cel
End Sub

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 21 Avril 2016

• #3

Re : Supprimer les espaces ne marche pas !

Bonjour Benoit et Phillip.
Benoit, je me permet d'ajouter (en tout bien tout honneur) une option supplémentaire à ton code au cas où

Code:

Sub ESPACES()
    For Each cel In Range("a1:a5")
        If InStr(1, cel.Value, Chr(160), vbTextCompare) Then
            cel.Value = Replace(cel.Value, Chr(160), vbNull)
        Else
            cel.Value = Replace(cel.Value, " ", vbNull)
        End If
    Next cel
End Sub

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 21 Avril 2016

• #4

Re : Supprimer les espaces ne marche pas !

Bonjour CPk.
Tu as raison de modifier mon code, ça me permet d'apprendre.
Chez moi vbNull donne 1, as-tu une explication ?

 

Vote positif 0 Vote négatif

Chris24

XLDnaute Impliqué

• 21 Avril 2016

• #5

Re : Supprimer les espaces ne marche pas !

Bonjour

Normal, on remplace l'espace par la valeur de la constante vbNull qui est égale à 1

Cordialement

 

Vote positif 0 Vote négatif

Phillip

XLDnaute Occasionnel

• 21 Avril 2016

• #6

Re : Supprimer les espaces ne marche pas !

Bonjour,

merci à tous les deux, mais effectivement, le code de CPK me remplace les espaces par des 1....


benoît, ton code fonctionne parfaitement, j'avais cru comprendre que trim supprimait TOUS ls espaces, j'ai du mal comprendre !

Cordialement


Phillip

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 21 Avril 2016

• #7

Re : Supprimer les espaces ne marche pas !

thebenoit59 à dit:

Bonjour CPk.
Tu as raison de modifier mon code, ça me permet d'apprendre.
Chez moi vbNull donne 1, as-tu une explication ?

Cliquez pour agrandir...

Euh...l'explication c'est que...

Chris24 à dit:

Bonjour

Normal, on remplace l'espace par la valeur de la constante vbNull qui est égale à 1

Cordialement

Cliquez pour agrandir...

Et donc pour le coup... CPk = VbNull !

Ceci dit l'option d'amélioration portait plus sur la prise en compte de l'autre enquiquineur d'espace fréquemment visible lors d'importation donc moralité... -1 pour la mauvaise correction mais +100 pour avoir pensé à l'enquiquineur ce qui me fait une note globale de 25 sur 20.

 

Dernière modification par un modérateur: 21 Avril 2016

Vote positif 0 Vote négatif