Export pdf et contenu TextBox

Bonjour,

J'utilise un Userform avec différentes ComboBox et TextBox pour saisir des données dans un formulaire (mon classeur).

Dans certaine TextBox je saute à la ligne en ayant préalablement mis sur "True" la propriété "EnterKeyBehavior"

Jusque là pas de problème la saisie de mon document via cet Userform fonctionne parfaitement.

Lorsque j’exporte mon document en pdf, les sauts de ligne apparaisse avec un symbole "point d'interrogation dans un carré" (voir pièce jointe)

Comment faire disparaitre ce symbole lors de l’export de mon document en pdf ?

En complément d'information, sur mon classeur Excel, ce symbole n'apparait pas visuellement.

Merci d'avance pour votre aide.

Bonjour,

à tester,

Range("A1") = Application.Substitute(Me.TextBox1.Value, Chr(13), "")

Bonjour et merci pour ta réponse.

J’ajoute ce code dans ma macro d’export du classeur en Excel ?

re,

Dans certaine TextBox je saute à la ligne en ayant préalablement mis sur "True" la propriété "EnterKeyBehavior"

c'est pour modifier les lignes de code qui transfert la valeur des TextBox concerné en cellule. (à adapter)

Bonjour à tous,

Après de nombreuses recherche, j'ai trouvé la solution.

Voici le code :

Range("A1") = _

Application.WorksheetFunction.Substitute(TextBox1, vbCrLf, Chr(10))

Merci pour votre aide.

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.

Je me permets de relancer, le sujet étant inscrit comme résolu, il part vitesse grand v aux oubliettes.

Il s'agit pour moi de finaliser un userform sur lequel je travaille depuis un petit moment.

Merci à ceux qui auraient une réponse pour moi.

Bonjour Sk8Strong,

à tester,

    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) = Application.WorksheetFunction.Substitute(TextBox1, vbCrLf, Chr(10))  '<------------- ici

Bonjour i20100 et merci pour ta réponse, bonjour tout le monde,

J'ai réussi après plusieurs tests à faire fonctionner mon fichier, je poste ici ma solution pour ceux que ça intéressent :

ActiveSheet.PageSetup.PrintArea = "C1:C9"
Range("C8") = _
Application.WorksheetFunction.Substitute(TextBox1, vbCrLf, Chr(10))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Username\Desktop\" & fichier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

A adapter !

Bonjour,

Je suis vraiment désolé de ne pas avoir apporter de réponse, je viens seulement de découvrir les messages.

Encore pardon.