blanks galere

[teodormircea]

J'ai des soucis avec des blanks bizarres, j'ai tout essaye, trim gauche, droit, meme des macros qui fonctionne dans des conditions normales, rien a faire toujours pareil.
Si quelcun a une idee.J'ai un fichier comme example. Il ya 2 example si vous selectez les cellules vous aller comprendre de koi je parle.
Merci beacoup.

 

[Guest]

Re : blanks galere

Bonjour,

Avec la fonction: =EPURAGE(A1) qui enlève tous les caractère de controle d'une chaine. Ici le caractère ASCII 10

A bientôt

 

[Staple1600]

Re : blanks galere

Bonjour



Ton problème s'appelle Chr(13)

ou CODE(13)

EDITION; Bonjour Hasco, chr(10) ou chr(13)?

Mon Excel me dit Chr(13)

EDITION 2
Désolé, je viens de voir le Chr(10)

 

[Guest]

Re : blanks galere

bonjour Staple,

Mon petit excel à moi il dis chr(10) sur cellule A1

bonne journée à toi.

 

[teodormircea]

Re : blanks galere

j'ai essaye avec trim ca marche pas
j'enleve rien, explique moi un petit peut plus le probleme qu j'ai.
Meme avec une macros qui m'enleve les espace ca donne rien

 

[Guest]

Re : blanks galere

Vois mon message plus haut,

Avec la fonction Epurage, cela fonctionne chez moi

A+

 

[Staple1600]

Re : blanks galere

Re



Essaye cette macro (pour la colonne A)

Sub Test_TRIM
Dim i as Long
Application.ScreenUpdating = False
For i = [A65536].End(xlUp).Row To 1 Step -1
Cells(i, 1).Value = Replace(Cells(i, 1).Value, Chr(10), vbNullString)
Cells(i, 1).Value = Replace(Cells(i, 1).Value, Chr(13), vbNullString)
Next i
Application.ScreenUpdating = True
End Sub

Hasco:
Je confirme également que EPURAGE fonctionne sur le fichier de test posté par teodormica

 

[teodormircea]

Re : blanks galere

trim ca marche mais si tu fait un copier et un coller special comme valeur ben ca garde les espaces

 

[teodormircea]

Re : blanks galere

j'ai essaye le macros' j'ai une un peut dif qui fait la meme chose, c;est coome si ca detecte pas les espaces

 

[MJ13]

Re : blanks galere

Bonjour à tous,

Attention il y a 2 types d'espaces. Il ya aussi le car(160).
En fait non, c'est pas une bonne piste voir fichier de Staple que je salue dans le post suivant.

 

[Staple1600]

Re : blanks galere

Re



Regarde avec ton fichier test

Ca fonctionne non?

 

[teodormircea]

Re : blanks galere

j'ai essaye ca efface pas tout car j'ai d'autres types d'espace
commbien de type ca existe, pour que je les mettes dans le macros

 

[Staple1600]

Re : blanks galere

Re


Pourquoi n'as-tu pas mis dans ton premier message un fichier contenant

tous les caractères à éliminer?


Tu peux rajouter
Chr(32)
Chr(160)

EDITION: cf pièce jointe (2 façons de faire)

 

[teodormircea]

Re : blanks galere

Merci çà marche. Heureusement avec vous les gars

 

[teodormircea]

Re : blanks galere

Une petite question
est -il possible de modifier cette macros pour lui dire au debut dans une imput box quelle colonne traiter
Sub test()
'(auteur: jindon)
Application.ScreenUpdating = False
Dim r As Range
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp)) "" ici au lieux de changer a chaque foix, juste indiquer le nujmero de la colonne a traiter au debut
r.Value = CleanAll(r.Value)
r.WrapText = False
Next
Application.ScreenUpdating = True
End Sub

Private Function CleanAll(txt As String) As String
'(auteur: jindon)
With CreateObject("VBScript.RegExp")
.Pattern = "[\f\n\r\t\v]"
.Global = True
CleanAll = .Replace(txt, "")
End With
End Function