Bonjour tout le monde,
@loic0ss : Je suis très intéressé par ta ligne de code, je rencontre le même problème.
La cellule qui me pose problème est C7, elle est alimentée par TextBox1 de mon userform. Donc :
Range("C7") = _
Application.WorksheetFunction.Substitute(TextBox1, vbCrLf, Chr(10))
Question, à quelle niveau j'entre cette ligne de code ?
Lors de l'enregistrement de la plage de cellule déterminré (C1:C9) en pdf :
ActiveSheet.PageSetup.PrintArea = "C1:C9"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Username\Desktop\" & fichier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Ou avant cela, lorsque mon userform alimente ma cellule Excel qui sera imprimée ensuite :
Sheets("Base de données").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = ComboBox1
ActiveCell.Offset(0, 1) = ComboBox2
ActiveCell.Offset(0, 3) = TextBox1
Merci à qui peut m'apporter une réponse.