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

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

Privacy & Transparency

Privacy & Transparency