Discussion :

[hescallier]

Bonjour,
En pilotage d’Excel par Delphi comment peut-on placer deux lignes successives dans une cellule ?
L’insertion des caractère #10 ou #13 n’ont aucun effet.
Merci d’avance pour votre précieuse aide.

[Invité]

#10 fonctionne parfaitement:

Code :

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

1
2
3
4
5
6
7
8
9
10
var
 xApp, Wb: OleVariant;
begin
  xApp := CreateOleObject('Excel.Application');
  xApp.Visible := True;
  Wb := xApp.Workbooks.Add;
  Wb.ActiveSheet.Range['A1'].Value := 'Ligne1'#10'Ligne 2';
  Wb.ActiveSheet.Range['B1'].Value := 'Ligne1'#13'Ligne 2';
  Wb.ActiveSheet.Range['C1'].Value := 'Ligne1'#13#10'Ligne 2';
end;

[ShaiLeTroll]

Un peu de code à fournir pour que nous n'ayons pas à tout écrire ?

Si l'on devine vos propos c'est que ceci ne fonctionne pas ?

Code :

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

Range.Value := 'Ligne N°1' + sLineBreak + 'Ligne N°2';

Avez vous tenter d'ajouter Range.WrapText property (Excel)

Code :

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

Range.WrapText := True;

Faut voir l'impact du WrapText selon la largeur de la colonne aussi.


EDIT : Grillé par rMist2024

[hescallier]

Merci pour votre aide mais ma demande ne devait pas être assez précise !
J’ai bien compris que ce que vous proposez donne le bon résultat c’est-à-dire une insertion dans la cellule d’un texte sur 2 lignes.
Mais par contre je ne comprends pas pourquoi la formule suivante ne donne pas le bon résultat !
=CONCAT("Ligne";CAR(10);"Ligne 2")

[Linkin]

La formule n'est pas en cause, la cellule contient la bonne valeur. Il s'agit du format de la cellule comme indiqué précédemment.
"Renvoyer à la ligne automatiquement" doit être coché. (ce qui correspond à mettre WrapText à true, voir le post de ShaiLeTroll).