text souligné par textbox

bonjour a vous tous

je viens de trouvé un code qui je l'espérai ferai mon affaire mais le soulignement se fait dans le texbox mais pas dans la feuille ou le textbox envoie sa donnée

Code:

---

Me.Textbox1.Text = Font.Underline = True

---

autre chose dans mon fichier j'ai 2 textbox qui s'interfère car il doivent remplir une meme cellule a des moments différents

Code:

---

1 2 3 4 5 6

.Cells(lig, "B") = Me.Txtnumero .Cells(lig, "C") = Me.txtArticle .Cells(lig, "I") = Me.txtPU .Cells(lig, "J") = Me.txtUnité .Cells(lig, "K") = Me.Txt_vente .Cells(lig, "C") = Me.TxtTranche

---

c'est au niveau de

Code:

---

.Cells(lig, "C")

---

que le problème survient
si je mets la ligne en commentaire

Citation:

---

Me.TxtTranche

---

l'autre ligne fonctionne nickel
mais les 2 en même temps plus rien n'est envoyé en cell C
la dernière ligne de code

Code:

---

.Cells(lig, "C") = Me.TxtTranche

---

ne me sert que l'ors d'ajout de séparation de famille de l'article qui va être mis a sa suite dans le tableau

tous les articles se mettent en col C

si vous avez besoin d'explication n'hésitez pas
cordialement
Pascal

Bonjour,

Les formats ne sont pas liés entre un textbox et une cellule

Il faut que tu ajoutes le format souligné sur la cellule de destination

Code:

---

1 2	Sheets("Feuil1").Range("A1").Underline = xlUnderlineStyleSingle Sheets("Feuil1").Range("A1").Value = TextBox1.Text

---

Citation:

---

autre chose dans mon fichier j'ai 2 textbox qui s'interfère car il doivent remplir une meme cellule a des moments différents

---

A mon avis Me.TxtTranche est vide a ce moment
Si tu veux mettre les 2 txtbox a la suite

Code:

---

.Cells(lig, "C") = Me.txtArticle & " " & Me.TxtTranche

---

bonjour jfontaine

merci pour ta réponse
la cellule de destination est connue en début d'inscription mais inconnue par la suite d'où la difficulté de prévoir le soulignement d'avance et toutes les cells n'ont pas besoin d'être soulignée? mais une listbox est'elle liée a une cellule ?

Citation:

---

A mon avis Me.TxtTranche est vide a ce moment

---

oui Me.TxtTranche est vide a plusieurs moment et Me.txtArticle toujours rempli et justement quand Me.txtArticle n'est pas rempli il faudrait pouvoir remplir TxtTranche qui se trouve sur le même USF

cordialement

Pascal

Si tu preferes, tu peux aussi ecrire le format de cellule comme ceci

Code:

---

.Cells(lig, "B").Underline = xlUnderlineStyleSingle

---

Citation:

---

oui Me.TxtTranche est vide a plusieurs moment et Me.txtArticle toujours rempli et justement quand Me.txtArticle n'est pas rempli il faudrait pouvoir remplir TxtTranche qui se trouve sur le même USF

---

Je ne comprend pas ce que tu souhaites
Comment on rempli TxtTranche?

bonjour jfontaine

Me.TxtTranche est rempli manuellement, je te joint le code de TxtTranche

Code:

---

1 2 3 4 5

Private Sub TxtTranche_Change() Me.TxtTranche.Text = UCase(Me.TxtTranche.Text) Me.TxtTranche.Text = Font.Underline = True   End Sub

---

je ne vois pas ou intégré ton code

Citation:

---

.Cells(lig, "B").Underline = xlUnderlineStyleSingle

---

cordialement

Pascal

Citation:

---

je ne vois pas ou intégré ton code
Citation:
.Cells(lig, "B").Underline = xlUnderlineStyleSingle

---

A mettre avant la ligne

Code:

---

.Cells(lig, "B") = Me.Txtnumero

---

Pour txtTranche ca ne m'aide pas plus. as tu un fichier exemple de ce que tu souhaites

bonjour jfontaine et le forum et bonne fin d'année

Merci pour tout, en fait il n'y a pas lieu d'un soulignement,je ne sais ce qui m'a piqué pour le demander
tout le reste est on ne peu plus parfait

donc je clos le post en te remerciant:ccool:

bon courage pour le changement d'année

Merci pour tout

Cordialement

Pascal