hauteur dans un textbox

[grisan29]

bonjour a vous tous
je voudrais que leTEXTBOX1 de l'exemple ci-dessous puisse adapter sa hauteur automatique en fonction de ce qu'il recoit
mais il ne recoit pas toujours 2 ou 3 lignes mais le plus souvent 1 seule

merci par avance de vos solution

Pascal

 

[fhoest]

Re : hauteur dans un textbox

Bonjour,
voici un code qui pourra te mettre sur le chemin.[highlight]

Dim h As Integer

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Height = h
If TextBox1.Text = "" Then Exit Sub
On Error Resume Next
TextBox1.Height = TextBox1.Height + (TextBox1.LineCount) * h / 2
End Sub

Private Sub UserForm_Initialize()
   h = TextBox1.Height
   TextBox1.Value = Feuil1.Range("C6").Value
   TextBox2.Value = Feuil1.Range("C6").Value
End Sub

[/code]
A+

 

[grisan29]

Re : hauteur dans un textbox

bonjour fhoest
merci de te pencher sur mon problème mais le fichier de destination du code ne fonctionne pas mieux, sur l'exemple joint j'ai mis 2 textbox le 2ème n'est la que pour montrer comment doit devenir le 1er quand il y a 2,3 ou 4 lignes a s'inscrire, j'ai bien un code qui fait inscrire les 3 lignes dans la feuille "facture"dont voici l'extrait

With .Range("D" & lig, "H" & lig)
.Font.Size = 14
.Font.Name = "arial"
.MergeCells = False
.WrapText = True 'retour du texte à la ligne
.EntireRow.AutoFit 'mettre la ligne en ajustement auto de la hauteur
MaHauteur = .RowHeight 'voir quelle est la hauteur de la ligne une fois cet autofit fait
.MergeCells = True 'refusionner

.VerticalAlignment = xlCenter
.RowHeight = IIf(MaHauteur > 19, MaHauteur, 19) 'si la hauteur une fois autofit fait est inferieur à 15 je laisse 15 en minimum sinon hauteur de l'autofit (perso c'est la hauteur mini que je voulais
End With

mais dans le cas présent le textbox concerné ne sert qu'a visualiser les données une par une par un spinbutton

si je me suis mieux expliqué cette fois tant mieux

Merci par avance de ton aide

cordialement
Pascal

 

[fhoest]

Re : hauteur dans un textbox

voici un fichier
a+

 

[grisan29]

Re : hauteur dans un textbox

bonjour fhoest
un grand merci c'et tout a fait ce que je voulais😱
merci beaucoup de ton efficacité et rapidité bravo 😎

cloture du message

cordialement
Pascal