Discussion :

[grisan29]

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 :

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

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 :

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

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 :

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

.Cells(lig, "C")

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

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 :

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

.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

[jfontaine]

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 :

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

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

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 :

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

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

[grisan29]

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 ?

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

[jfontaine]

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

Code :

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

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

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?

[grisan29]

bonjour jfontaine

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

Code :

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

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

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

cordialement

Pascal

[jfontaine]

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

A mettre avant la ligne

Code :

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

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

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

[grisan29]

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

bon courage pour le changement d'année

Merci pour tout

Cordialement

Pascal