XL 2021 Textbox extensible en hauteur

[Claudinedu13]

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]

Bonsoir Claudinedu13,

Bah pour la 1ère TextBox :

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]

Bonsoir Claudinedu13,

Bah pour la 1ère TextBox :

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