Et comment le configurer pour qu'il s'agrandisse automatiquement?Utilise alors un label (me relire)
Et comment le configurer pour qu'il s'agrandisse automatiquement?
un label qui, lui, est doté d'une propriété ad hoc (autosize)
Comme je le disais plus haut, je ne suis pas très doué en VBA et donc je suis ouvert à toutes propositionsc'est pas que ça va pas mais tu te casse la tète pour rien
Option Explicit
Private Sub CBnTxtLong_Click()
AjusterLab LabTest, "Portez ce blond whisky au vieux juge qui fume"
End Sub
Private Sub CBnTxtCourt_Click()
AjusterLab LabTest, "Salut"
End Sub
Private Sub AjusterLab(ByVal Lab As MSForms.Label, ByVal Texte As String)
Dim Lar As Double, H0 As Double, Haut As Double, Bas As Double, DT As Double, Ctl As MSForms.Control
Lar = Lab.Width: H0 = Lab.Height: Haut = Lab.Top: Bas = Haut + H0
Lab.Caption = Texte
Lab.AutoSize = True
Lab.AutoSize = False
Lab.Width = Lar
DT = Lab.Height - H0: If DT = 0 Then Exit Sub
For Each Ctl In Me.Controls
If Ctl.Top > Bas Then Ctl.Top = Ctl.Top + DT
Next Ctl
Me.Height = Me.Height + DT
End Sub
Mon manque de connaissancere
deja il faudra m'expliquer pourquoi tu joue avec "FILTER" alors que ta liste est dans l'ordre alphabetique et qu'avec le matchentry elle fait le boulot toute seule
Bonsoir,Bonjour.
VB:Option Explicit Private Sub CBnTxtLong_Click() AjusterLab LabTest, "Portez ce blond whisky au vieux juge qui fume" End Sub Private Sub CBnTxtCourt_Click() AjusterLab LabTest, "Salut" End Sub Private Sub AjusterLab(ByVal Lab As MSForms.Label, ByVal Texte As String) Dim Lar As Double, H0 As Double, Haut As Double, Bas As Double, DT As Double, Ctl As MSForms.Control Lar = Lab.Width: H0 = Lab.Height: Haut = Lab.Top: Bas = Haut + H0 Lab.Caption = Texte Lab.AutoSize = True Lab.AutoSize = False Lab.Width = Lar DT = Lab.Height - H0: If DT = 0 Then Exit Sub For Each Ctl In Me.Controls If Ctl.Top > Bas Then Ctl.Top = Ctl.Top + DT Next Ctl Me.Height = Me.Height + DT End Sub
Patrick,bon tant pis j'ai parlé a un sourd en disant "qu'il y avait beaucoup plus simple"
sachant qu'avec cette méthode il faut aussi redimensionner l'usf et que la partie ajout' descends aussi
bref
je répète une dernière fois
tu n'a besoins que de ton combo , txtb3 et les 3 premiers boutons et de ton txtb de recherche
tout le reste tu jette
l'ajout ou la modif peut se faire avec ceux ci
le txtb3 on lui prévoit un height pour 4 ou 5 lignes et c'est tout
aucun déplacement , aucun redimensionnement
épicétoo'