Supprimer espace insécable

Version imprimable

Bonjour à tous

Cette fois c'est moi qui pose une question :mrgreen:

Je récupère de BO une fichier Excel qui contient devant mes données des espaces insécables. Avant que l'on me dise qu'il faut paramétrer mon rapport sous BO pour effacer ces espaces, je précise que je n'ai pas accès à la modification du rapport, donc il faut le faire sous Excel.

j'ai penser à remplacer le code ASCII 160 par un espace ou même rien et j'ai pas réussi à le faire :aie:

Ensuite j'ai essayer de faire un "for Each cell" en le faisant tourner à la main avec des espions pour mes variables il fait bien les calculs mais je dois oublier quelque chose parce qu'il m'enregistre rien

voici mon code qui ne plante pas mais qui ne marche pas non plus :oops:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 Sub Sup_Esp_Insec() Dim Caract As String Dim Lign As Long Dim Coln As Integer Dim Der_Lig As Long Dim Der_Col As Integer Dim NomF As String Dim Posit As Integer Dim Esp_Insc As String Esp_Insc = Chr(160) Lign = 1 Coln = 1 NomF = "Feuil1" NomF = InputBox("Saisie du Nom de la feuille", , NomF) Der_Lig = ThisWorkbook.Worksheets(NomF).UsedRange.Rows.Count Der_Col = ThisWorkbook.Worksheets(NomF).UsedRange.Columns.Count MsgBox "Ligne : " & Der_Lig & vbCrLf & "Colonne : " & Der_Col Range(Cells(1, 1), Cells(Der_Lig, Der_Col)).Select For Each Cell In Selection recup = InStr(Cell, Esp_Insc) Do While recup <> 0 Caract = Asc(Cell) If Caract = 160 Then Cell = Right(Cell, Len(Cell) - 1) 'Replace(cell,Esp_Insc," ") recup = InStr(Cell, Esp_Insc) End If Loop Next End Sub
Si quelqu'un a une idée je sui preneur

Merci d'avance.

10/11/2015, 13h53
Minise

j'ai déjà été confronté à ce problème de code 160, j'ai carrément copié/collé "l'espace" du code 160 pour le mettre dans la formule

ça donnait un truc comme ça :

Code:

chaine = Replace(chaine, "*", " ")

j'ai essayé de copié ma ligne de code mais sur le forum il me met par défaut un * au milieu des premières guillemets :roll:

en espérant que ça peut t'aider

Bonjour,

Pour le test, j'ai fais le remplacement par un tiret bas et ça fonctionne avec la fonction Replace :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Sup_Esp_Insec()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim NomF As String
 
    NomF = "Feuil1"
 
    NomF = InputBox("Saisie du Nom de la feuille", , NomF)
 
    With Worksheets(NomF)
 
        'plutôt de cette façon pour être sûr de la plage. A partir de A1...
        Set Plage = .Range(.Cells(1, 1), _
                    .Cells(.Cells.Find("*", .[A1], -4123, , _
                    1, 2).Row, .Cells.Find("*", .[A1], -4123, , _
                    2, 2).Column))
 
    End With
 
        MsgBox "Ligne : " & Plage.Rows.Count & vbCrLf & "Colonne : " & Plage.Columns.Count
 
        'ici avec 1 tiret bas..!
        For Each Cel In Plage
 
            Cel.Value = Replace(Cel.Value, Chr(160), "_")
 
        Next Cel
 
End Sub

peut etre aussi tenter un
Code:

1 2 Cel.Value = Replace(Cel.Value, Chr(160), Chr(32))

10/11/2015, 14h43
Igloobel
ouais super
Code:

1 2 3 For Each cell In Selection cell.Value = Replace(cell, Esp_Insc, "") Next
ça Marche nickel

Merci Minise je n'avais pas penser à Cell.value

je cloture et :plusser: