blanks galere

G

Guest

Guest

• 14 Avril 2008

• #2

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2008

• #3

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)

 

Dernière édition: 14 Avril 2008

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Avril 2008

• #4

Re : blanks galere

bonjour Staple,

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

bonne journée à toi.

 

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 14 Avril 2008

• #5

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Avril 2008

• #6

Re : blanks galere

Vois mon message plus haut,

Avec la fonction Epurage, cela fonctionne chez moi

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2008

• #7

Re : blanks galere

Re



Essaye cette macro (pour la colonne A)

Code:

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

 

Dernière édition: 14 Avril 2008

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 14 Avril 2008

• #8

Re : blanks galere

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

 

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 14 Avril 2008

• #9

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 14 Avril 2008

• #10

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.

 

Dernière édition: 14 Avril 2008

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2008

• #11

Re : blanks galere

Re



Regarde avec ton fichier test

Ca fonctionne non?

 

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 14 Avril 2008

• #12

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2008

• #13

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)

 

Dernière édition: 14 Avril 2008

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 14 Avril 2008

• #14

Re : blanks galere

Merci çà marche. Heureusement avec vous les gars

 

Vote positif 0 Vote négatif

T

teodormircea

XLDnaute Occasionnel

• 14 Avril 2008

• #15

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

 

Vote positif 0 Vote négatif