XL 2021 Textbox extensible en hauteur

Claudinedu13 · 15 Janvier 2024

Bonjour à tous,
J'ai plusieurs textbox multiligne d'une hauteur de 20, je souhaiterai que quand on se place dans le textbox la hauteur se mette à 60 et quand je sors de la textbox elle revienne à 20, j'espère que vous comprendrez ma demande. Merci

job75 · 15 Janvier 2024

Bonsoir Claudinedu13,

Bah pour la 1ère TextBox :

VB:

Private Sub TboxDesc1_Enter()
TboxDesc1.Height = 60
End Sub

Private Sub TboxDesc1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TboxDesc1.Height = 20
End Sub

A+

job75 · 15 Janvier 2024

Bonsoir Claudinedu13,

Bah pour la 1ère TextBox :

VB:

Private Sub TboxDesc1_Enter()
TboxDesc1.Height = 60
End Sub

Private Sub TboxDesc1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TboxDesc1.Height = 20
End Sub

A+

Claudinedu13 · 15 Janvier 2024

job75 à dit:
Bonsoir Claudinedu13,

Bah pour la 1ère TextBox :

VB:

Private Sub TboxDesc1_Enter() TboxDesc1.Height = 60 End Sub Private Sub TboxDesc1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TboxDesc1.Height = 20 End Sub[/ [/QUOTE]

Bonsoir Job75 , merci ça fonctionne

XL 2021 Textbox extensible en hauteur

Claudinedu13

XLDnaute Nouveau

Pièces jointes

job75

job75

XLDnaute Barbatruc

Claudinedu13

XLDnaute Nouveau

Discussions similaires