Dimension d'USF

[apdf1]

Bonjour,

Voila j'ai un USF avec des textBox et une ComBobox qui donne le nombre de textBox visible sur l'USF.

"Code réaliser par Papou-net que je remercie au passage"

j'aimerais si possible avoir un complément de code pour avoir une dimension USF en fonction du nombre de textBox visible.

Ci-joint mon fichier exemple

Je vous remercie par avance et vous souhaite une bonne journée.

Cordialement
Max

 

[Papou-net]

Re : Dimension d'USF

Bonjour apdf1,

Voici le code modifié :

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
For n = 1 To 100
  Me.Controls("TextBox" & n).Visible = False
  If n <= CInt(ComboBox1.Value) * 2 Then
    With Me
      .Controls("TextBox" & n).Visible = True
      .Height = IIf(n < 51, Me.Controls("TextBox" & n).Top + .Controls("TextBox" & n).Height + 40, _
      .Controls("TextBox49").Top + .Controls("TextBox49").Height + 40)
    End With
  End If
Next
Application.ScreenUpdating = True
End Sub

Bonne journée.

Cordialement.

 

[apdf1]

Re : Dimension d'USF

Re,

Je te remercie beaucoup vraiment génial, par contre deux petit chose a te demander si je n'abuse pas trop.
Il a fallu que je change le sens des textBox pour une meilleur
façon de remplir mon USF, j'ai mis les textBox en ligne soit 1,2,3,4 sur la première ligne 5,6,7,8 sur la deuxième ligne ect..voila pour première demande, et est-il possible d'avoir USF du départ ouvert uniquement dessous mon bouton Valider.

Sur ce je te remercie encore et je te joint mon fichier comme exemple

bonne fin d'après midi.

Cordialement

Max

 

[Papou-net]

Re : Dimension d'USF

Re apdf1,

Voici les macros modifiées dans le module UserForm1 :

Private Sub ComboBox1_Change()
Dim NbCBx As Byte
Application.ScreenUpdating = False
With Me
  For n = 1 To 99 Step 2
    .Controls("TextBox" & n).Visible = False
    .Controls("TextBox" & n + 1).Visible = False
    If n <= CInt(ComboBox1.Value) * 2 Then
      NbCBx = NbCBx + 2
      .Controls("TextBox" & n).Visible = True
      .Controls("TextBox" & n + 1).Visible = True
    End If
  Next
  .Height = .Controls("TextBox" & NbCBx).Top + .Controls("TextBox" & NbCBx).Height + 40
End With
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Activate()
Me.Height = 80
End Sub

On pourrair règler directement la hauteur du UserForm1 dans ses propriétés, mais je l'ai ajouté dans l'événement Activate. Ca permet de voir le formulaire plus dans l'éditeur VB et d'avoir ainsi accès aux TextBox.

Cordialement.

 

[apdf1]

Re : Dimension d'USF

Re Papou-Net,

Je te remercie beaucoup et te souhaite un bon week end

Cordialement

Max