Hauteur d’un USF selon les TextBox remplis.

[marcelio]

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)]

Bonsoir Marcelio,

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)]

Si formules il faut rectifier

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]

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