Discussion :

[mika0102]

Bonjour,

Voici mon problème.

Dans un premier temps, j'ai une base access avec différentes tables et requêtes.

J'exporte une de mes requête au format xls (excel 97-2002).

Malheureusement, dans la table access de départ l'utilisateur avait encoder des retour chariot (enter). Lorsque j'exporte en xls, ces CR sont convertit dans des caractères spéciaux (| je croit).

J'aimerais voir s'il est possible d'automatiser un traitement qui me permettrait de remplacer ces caractères par un espace par exemple?

Peut-on faire cela avec une macro ou simplement avec une formule?

J'ai joint à ce message un exemple de mon fichier xls avec les caractères spéciaux.

Merci de votre aide

Michaël

[J.Michel]

Tu sélectionne tes cellule puis tu lance cette procédure

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Test()
    Dim Mycel As Range
 
    For Each Mycel In Selection
        Mycel.Value = Replace(Mycel.Value, Chr(13), Chr(32))
    Next
 
End Sub

Dis nous si ca fonctionne

[mika0102]

Merci pour ta réponse mais étant un peu novice dans cette matière, peux-tu me dire où je doit mettre le code de cette procédure pour l'exécuter?

Merci

[fring]

Bonjour tlm,

Je pense qu'il y a des chr(10) qui traînent en plus des chr(13)

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim i As Integer
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 1) = Replace(Cells(i, 1), Chr(10), " ")
    Cells(i, 1) = Replace(Cells(i, 1), Chr(13), "")
Next
End Sub

[kiki29]

Salut,à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub Tst()
Dim i As Long
Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        Cells(i, 1) = Application.WorksheetFunction.Clean(Cells(i, 1))
    Next i
End Sub

[mika0102]

Merci à tous por vos réponse. La solution de fring fonctionne très bien pour ce que je voulais faire apparemment. Mon problème est donc résolu.

Une bonne fin de journée à tous

[mika0102]

Pour information la boucle décrite ci-dessus ne fonctionne que sur la 1ère colonne du fichier excel.

Pour que cela fonctionne sur l'ensemble des colonnes, j'ai donc dû modifier un peu le code.

Je voulais vous le partager au cas où cela intéresserait l'un de vous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SupprimerEnter()
Dim i As Integer
Dim j As Integer
Dim NbCol As Integer
 
NbCol = Cells.SpecialCells(xlCellTypeLastCell).Column
j = 1
Do Until j > NbCol
 
    For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
 
       If Not IsNumeric(Cells(i, j)) Then
        Cells(i, j) = Replace(Cells(i, j), Chr(10), " ")
        Cells(i, j) = Replace(Cells(i, j), Chr(13), " ")
      End If
    Next
    j = j + 1
Loop
End Sub

Bonne journée

Michaël

[fring]

En reprenant la proposition de kiki29 tu pourrais écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SupprimerEnter()
Dim NbCol As Integer, NbLig As Integer, Cel As Range
 
NbCol = Cells.SpecialCells(xlCellTypeLastCell).Column
NbLig = Cells.SpecialCells(xlCellTypeLastCell).Row
 
For Each Cel In Range(Cells(1, 1), Cells(NbLig, NbCol))
    Cel = Application.WorksheetFunction.Clean(Cel)
Next
 
End Sub