Hauteur d’un USF selon les TextBox remplis.

marcelio · 4 Octobre 2016

Bonjour,
J’ai un USF avec 5 TextBox sur une ligne et sur une hauteur de 20 soit un total de 100 TextBox
Avec des formules sur ma feuille « Recap » en T1 à X20 j’ai des résultats qui s’affichent.
Selon les résultats toutes les lignes peuvent être remplis, voir moins ou pas du tout.
Est-il possible d’adapter la hauteur de l’USF au dernier TextBox remplis.
Et si aucun résultat n’est trouvé, indiquer à l’aide d’un message que l’USF est vide.
Merci d’avance de votre aide

Marcelio

youky(BJ) · 4 Octobre 2016

Bonsoir Marcelio,

Code:

Private Sub CommandButton21_Click()
Dim n
n = Application.CountA([T1:T20])
If n = 0 Then MsgBox "Rien à afficher": Exit Sub
tableau.Height = 30 + (n * 24)
tableau.Show
End Sub

Bien effacer les espaces qui reste dans les lignes vides
Bruno

youky(BJ) · 4 Octobre 2016

Si formules il faut rectifier

VB:

Private Sub CommandButton21_Click()
Dim n
n = 20 - Application.CountIf([T1:T20], "")
If n = 0 Then MsgBox "Rien à afficher": Exit Sub
tableau.Height = 34 + (n * 24)
tableau.Show
End Sub

Bruno

marcelio · 4 Octobre 2016

Bonsoir Bruno et le forum,
Merci pour ce code s'est super.
Bonne fin de soirée à toi et au forum.
Marcelio

Hauteur d’un USF selon les TextBox remplis.

marcelio

XLDnaute Occasionnel

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

marcelio

XLDnaute Occasionnel

Discussions similaires