Mettre à la ligne 2 textbox differents dans une cellule

Bonjour à tous,

Besoin d'une info que je ne trouve pas.

Je rempli 2 TextBox différents dans un USF.

J'aimerais que le resultat de ceux-ci apparaissent dans la même cellule de mon tableau mais :==> A LA LIGNE SUIVANTE.

POur le moment j'ai ceci:

Range("E" & L).Value = TextBox3 & TextBox6

Pour l'instant, j'ai bien le résultat de mes 2 textbox mais collé sur la même ligne .

Ce que j'aimerais comme affichage dans mon tableau (dans la même cellule):

Texte du textebox3

Texte du textebox6

et non pas:

Texte du textebox3Texte du textebox6

Merci d'avance pour l'aide

Bonjour

Essaie ça :Range("E" & L).Value = TextBox3 & Chr(10) & TextBox6

Résultat ?

Bye !

Un grand merci !

C'est exactement ce que je voulais.

Une dernière question, si vous pouvez m'aider.

j'ai besoin de savoir comment on peut mettre le texte d'un textbox en gras.

Range("E" & L).Value = "POLY: " & TextBox14

je voudrais que la partie POLY s'inscrive en gras dans mon tableau

D'avance merci de m'avoir lu

Bonsoir,

A tester :

Range("E" & L).Characters(1, 4).Font.Bold = True

=> mise en gras des 4 premiers caractères de la cellule

Bouben

Un grand merci, cela fonctionne parfaitement !

Mais après test, j'ai quand même un soucis.

Range("E" & L).Value = "POLY  :" & TextBox6 & Chr(10) & Chr(10) & " MONO " & TextBox7 & Chr(10) & Chr(10) & TextBox3
Range("E" & L).Characters(1, 4).Font.Bold = True

Dans cette ligne, j'ai bien compris pour mettre POLY en gras mais si je veux également mettre "MONO" en gras et comme il est impossible de savoir à quelle ligne "MONO" sera dans la cellule du tableau , vu la quantité de texte de 'TextBox6'.

Comment faire dans ce cas ?

D'avance merci pour l'aide

J'ai trouvé........MAIS ......

Range("E" & L).Characters(InStr(1, Range("E" & L).Value, "POLY"), Len("POLY")).Font.Bold = True
Range("E" & L).Characters(InStr(1, Range("E" & L).Value, "MONO"), Len("MONO")).Font.Bold = True

Afin de ne pas écrire 2 fois la ligne, y a t il un moyen d'encoder différemment ? Et donc d'indiquer directement les 2 mots ?

Ex: Range("E" & L).Characters(InStr(1, Range("E" & L).Value, "POLY"&"MONO"), Len("POLY"&"MONO")).Font.Bold = True

Mais cela ne fonctionne pas .

SI vous savez, je suis preneur .

Merci d'avance

Bonjour Jérôme DD,

Pour ne garder qu'une fois la ligne.

Mot="POLY":For I = 1 To 2: Range("E" & L).Characters(InStr(I, Range("E" & L).Value, Mot), 4).Font.Bold = True: Mot = "MONO": Next I

Bons tests, bonne continuation.

Merci pour l'aide et bravo à tous pour vos connaissances !

Après test, une dernière question.

J'ai bien su mettre en place le code mais néanmoins celui ci met en GRAS les 4 premier caractères mais imaginons que mon premier mot soit "POLY" et que le 2ième soit "ENVIRONNEMENT" , alors là je n'ai que 'ENVI' en gras.

Est-ce possible que cela s'adapte à la longueur du mot ? Et aussi si je veux leur adapter bold et également uderline .

Encore merci

Hello,

Pour gérer la longueur du mot, sur la base du post de X Cellus :

Remplacer le "4" par len(Mot)

Pour le soulignement, même principe que le gras, en utilisant la propriété "Underline " :

Font.Underline = xlUnderlineStyleSingle

NB : pour faciliter les échanges, un fichier en PJ serait bienvenu, pour éviter d'envoyer des bouts de code

Bouben

Merci bcp !

Je vais travailler tout ça !

Désolé re-moi

Gros problème de dernière minutes !!!

Voir fichier joint:

Quand je crée mon rapport , pas de soucis. j'ai bien en gras et souligné les mots souhaités. Comme vous m'avez appris.

Par contre quand je rappelle mon formulaire pour modification ("MODIFIER RAPPORT") après enregistrement, celui met tout en gras et en souligné . Pouvez-vous faire un test et peut-être m'aider dans une solution?

Même après modification, j'ai besoin de garder exactement le même format : gras, souligné etc

Besoin d'aide svp ! merci

Hello,

Lors de la modification, il faut refaire le même traitement de mise en forme.

Cf PJ

Bouben

Merci, merci ! Je suis rassuré !

Un grand thks !