Insérer un retour chariot dans le contenu d'une celule

[jb084]

Bonjour à tous,

Je suis en train de faire une fonction concaténant le texte de cellule correspondant à ce que je cherche, et je voudrais que cela ajoute un retour à la ligne entre chaque occurrence.

Function Lib_affaire_jour(soc As Integer, affaire As String, dat As String, typ As String)

  Dim temp_lib As String
  Dim lig_affaire, lig_jour As String
    Dim wsExcel As Excel.Worksheet 'Feuille Excel    
    Set wsExcel = Workbooks("planning.xls").Sheets("Planning")
    
    For i = 1 To 5 Step 1
      lig_affaire = wsExcel.Cells(i, 2)
      lig_jour = wsExcel.Cells(i, 1)
      
      If lig_affaire = affaire And lig_jour = dat Then
        temp_lib = temp_lib & wsExcel.Cells(i, 3) & [B]vbLf[/B]
      End If
    Next i
  Lib_affaire_jour = temp_lib
End Function

J'ai tenté plusieurs choses :
vbLf
vbLfCr
Chr(10) & Chr(13), etc etc

Rien ne fonctionne, cela me colle les occurrences...

Ou est mon erreur ?

Merci

 

[youky(BJ)]

Re : Insérer un retour chariot dans le contenu d'une celule

Salut,
Essaye de remplacer comme ceci...

temp_lib = temp_lib & Chr(10) & wsExcel.Cells(i, 3)

Le format de cellule doit êrte avec retour à la ligne
Bruno

 

[Roland_M]

Re : Insérer un retour chariot dans le contenu d'une celule

bonjour

pour le retour ligne dans une cellule
Cells(NoDeLig,NoDeCol).WrapText = True

 

[jb084]

Re : Insérer un retour chariot dans le contenu d'une celule

Bonjour,

Je reviens sur ce point : la dernière solution proposée convient, mais affiche des caractères bizarres à la place (un carré).

J'utilise "VrCrLf" concaténé à mon texte.

Quelle est mon erreur ?

 

[youky(BJ)]

Re : Insérer un retour chariot dans le contenu d'une celule

Bonsoir JB,
Avec un bout de fichier c'est plus facile, essaye le donc.
Bruno

 

[jb084]

Re : Insérer un retour chariot dans le contenu d'une celule

Merci, cela semble mieux fonctionner.