Retour à la ligne dans une zone de texte

ces carrés sont des VbLf  a remplacer par des VbCrLf

En fait j'ai une fonction (que j'ai récupérée) et qui fait cela

Public Function ChangeStr(strOriginal As Variant, strOldChar As String, strNewChar As String, intMatchCase As Integer) As Variant
   ' This function changes all substrings strOldChar in string strOriginal
   ' to strNewChar.
   ' The parameter intMatchCase has the same purpose as in the
   ' InStr() function, i.e. 1 makes the function case-sensitive, 0 does not
   Dim temp As String, pos As Integer
   temp = ""
   If IsNull(strOriginal) Then
      ChangeStr = Null
      Exit Function
   End If
   If strOldChar = "" Or strOriginal = "" Then
      ChangeStr = strOriginal
      Exit Function
   End If

   pos = InStr(1, strOriginal, strOldChar, intMatchCase)
   While pos > 0
      temp = temp & Mid$(strOriginal, 1, pos - 1) & strNewChar
      strOriginal = Right$(strOriginal, Len(strOriginal) - pos - Len(strOldChar) + 1)
      pos = InStr(1, strOriginal, strOldChar, intMatchCase)
   Wend
   ChangeStr = temp & strOriginal
End Function

Donc dans ma configuration de ma table ACCESS, j'ai mis :

    Req_SQL = "UPDATE Desc_Ch_audit_local SET Observations = ChangeStr(Observations,&VbLf,&VbCrLf,0);"
    DoCmd.RunSQL Req_SQL

Il doit encore manquer qqch...

la fonction VBA Replace existe deja
tu ne pourras pas le faire facilement via SQL

récupères tes enregistrement (Recordset) et mets a jour ceux-ci un a un

Bonjour

Un simple :
MaChaine=Replace(CahineSource,VbLf,VbCrLf)
suffit, pas besoin de fonction très complexe.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

Bonjour

Renfield a été plus rapide (le cowboy c'est comme Lucky Luke ? tu es rapide )

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

Merci pour ton aide, j'ai réussi à faire ce que je voulais en fait.

Je n'avais pas activé le WrapText sous mon document Excel donc :

        xlBook2.Sheets("Detail").Range("H2").WrapText = True

H2 étant ma cellule qui était sur 2 lignes (que je vais étendre à toute la colonne H). Et, dans mes requêtes SQL :

    Req_SQL = "UPDATE Desc_Ch_audit_local SET [Observations] = replace([Observations],chr(10),chr(13)&chr(10));"
    DoCmd.RunSQL Req_SQL

Et impeccable : je n'ai plus de carré sur ma feuille EXCEL, ni sur ma zone de texte sur ACCESS !