Discussion :

[Sinclar]

Bonjour,
Le problème est le suivant:
Après un copier/coller de x enreg d'une feuille excel vers une table, le caractère carré après dans les tables si la cellule excel contenait un ou + sieurs retours à la ligne;
Je souhaiterais créer une boucle pour rechercher tous ces carrés et les remplacer par un espace; j'ai essayé avec chr(13), chr(10) et plein d'autre mais rien à faire, il ne reconnait pas le caractère.

Si quelqu'un a une idée
Merci d'avance

[argyronet]

Bonjour,

Avant d'importer ou de Copier/Coller, il faut que tu remplaces ces caractère par un espace dans Excel d'abord...
Si tu as de vbCrlf dans ta feuille c'est que tu as (ou le dernier utilisateur a) mis des ALT+Entrée dans les cellules... ou quez ces données viennent d'ailleurs...

Argy

[Sinclar]

Merci de ta réponse,
Le pb est que les cellules sont déjà copiées et que cela représente +sieurs centaines de manips car les données provenaient de différents fichiers donc pas d'automatisation donc fait manuellement.

Je voudrais être sur qu'il n'y a pas d'autre solution dans access avant d'envisager de tout recommencer.

[argyronet]

Il y a toujours des solutions, sinon, il n'y aurait pas de problèmes !!!

Tu peux employer par exemple cette fonction dans tes requêtes:

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
 
Public Function RemoveVBCrlf(ByVal FieldContent As String) As String
Dim strTemp As String
  strTemp = FieldContent
  If InStr(1, FieldContent, vbLf) Then
    strTemp = Replace(FieldContent, vbLf, " ", 1, -1, vbBinaryCompare)
  End If
  If InStr(1, strTemp, vbCr) Then
    strTemp = Replace(strTemp, vbCr, " ", 1, -1, vbBinaryCompare)
  End If
  If InStr(1, strTemp, vbCrLf) Then
    strTemp = Replace(strTemp, vbCrLf, " ", 1, -1, vbBinaryCompare)
  End If
  RemoveVBCrlf = strTemp
End Function

Soit dans mon exemple:

Code :

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

1
2
SELECT tblChr13.Champ1, tblChr13.Champ2, RemoveVBCrlf([Champ2]) AS NewChamp2
FROM tblChr13;

Argy

[Sinclar]

Super,
Merci infiniment c'est exactement ce qu'il fallait;