Discussion :

[aurogrady]

Bonjour,

Je suis en train de créer un userform dans lequel il y aura des combobox qui se créeront en automatique en fonction un nombre donné dans un textbox.
Je souhaite que la taille de l'userform s'adapte au nombre de combobox car pour le moment les combobox s'affichent par dessus les autres éléments du userform et voir dépasse même de la page. Y a t il un moyen de lui indiquer qu'il doit s'aggrandir et faire descendre les boutons et autres en fonction du nombre de combobox?
merci

[Pierre Fauconnier]

Salut.

Tu peux "jouer" sur la propriété Height de l'objet.

Voici un code qui, à chaque clic sur le userform, ajoute un textbox et redimensionne le userform. Place-le dans le module du UserForm puis ouvre le userorm avec F5 et clique... Tu verras le userform s'adapter aux contrôles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Click()
  Dim Controle As Control
  Static Haut As Long
 
  Set Controle = Me.Controls.Add("Forms.TextBox.1")
  Controle.Top = Haut
  Haut = Haut + 20
  Me.Height = Controle.Top + Controle.Height + 50
End Sub

[aurogrady]

super!
merci cela fonctionne pour redimensionner l'userform en fonction de mes combobox!
Par contre cela affiche toujours par dessus les boutons qu'il y a en bas du userform et en plus maintenant, si je fais peu de combobox l'userform s'ajuste et on ne voit plus le bouton. Y a t il un moyen pour cela prenne également en compte qu'il y a d'autres élément sous les combobox?

[Pierre Fauconnier]

Oui, il y a moyen.

Mon code donne l'idée. Il faut le comprendre et l'adapter en travaillant sur les propriétés des contrôles et du USF (TOP et HEIGHT,notamment)

La dernière ligne du code suivant replace le bouton CommandButton1 à 48 points du bord inférieur du usf.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Click()
  Dim Controle As Control
  Static Haut As Long
  
  Set Controle = Me.Controls.Add("Forms.TextBox.1")
  Controle.Top = Haut
  Haut = Haut + 20
  Me.Height = Controle.Top + Controle.Height + 50
  CommandButton1.Top = Me.Height - 48
End Sub

[aurogrady]

merci
je l'ai adapté et c'est nickel!!
Sinon j'ai une autre petite question.
Mon code me permet donc de générer des combobox en fonction du nombre indiqué en textbox1 cela fonction trés bien mais admettons que l'utilisateur se trompe de chiffre et veut le modifier, si le nouveau chiffre est > au précédent c'est bon mais par contre s'il est < un combobox de trop se forme et je n'arrive pas à comprendre pourquoi ni comment l'éviter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub TextBox1_Change()
Dim nbrcom, j, x, i As Integer
Dim cbox As Control
Dim cbox2 As Control
nbrcom = TextBox1.Value
 
If nbrcom = "" Then
    MsgBox ("Veuillez inserer un chiffre")
Else
    For i = 1 To nbrcom
 
    On Error Resume Next
 
        Set cbox = Me.Controls.Add("Forms.Combobox.1")
        With cbox
            .Name = "combobox" & i
            .Left = 20
            .Top = 50 + ((i - 1) * 22)
            .Width = 168
            .Height = 15.5
            .RowSource = "'feuil5'!A1: A4"
        Me.Height = cbox.Top + cbox.Height + 50
        CommandButton1.Top = Me.Height - 45
        Me.Height = CommandButton1.Top + cbox2.Height + 50
        End With
 
        Set cbox2 = Me.Controls.Add("Forms.Combobox.1")
        With cbox2
            .Name = "combobox" & i
            .Left = 200
            .Top = 50 + ((i - 1) * 22)
            .Width = 168
            .Height = 15.5
            .RowSource = "'feuil5'!A1: A4"
        Me.Height = cbox2.Top + cbox2.Height + 50
        CommandButton1.Top = Me.Height - 45
        Me.Height = CommandButton1.Top + cbox2.Height + 50
        End With
Next i
TextBox1.SetFocus
End If
End Sub

[jp014]

Bonsoir

Ci dessous le code pour supprimer les combobox.
J"ai modifié les noms en rajoutant a et b ainsi que la position du message d'erreur.
Une variable permet de mémoriser l'ancienne valeur

A tester et à modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
 
Dim nbval As Byte
 
Private Sub TextBox1_Change()
Dim nbrcom, j, x, i As Integer
Dim cbox As Control
Dim cbox2 As Control
 
nbrcom = TextBox1.Value
 If nbrcom = "" Then
    Exit Sub
 
Else
If Not IsNumeric(nbrcom) Then
    MsgBox "Une valeur numérique svp"
    Exit Sub
End If
 
If nbrcom > nbval Then
 
    For i = 1 To nbrcom
 
    On Error Resume Next
 
        Set cbox = Me.Controls.Add("Forms.Combobox.1")
        With cbox
            .Name = "comboboxa" & i
            .Left = 20
            .Top = 50 + ((i - 1) * 22)
            .Width = 168
            .Height = 15.5
            .RowSource = "'feuil5'!A1: A4"
        Me.Height = cbox.Top + cbox.Height + 50
        CommandButton1.Top = Me.Height - 45
        Me.Height = CommandButton1.Top + cbox2.Height + 50
        End With
 
        Set cbox2 = Me.Controls.Add("Forms.Combobox.1")
        With cbox2
            .Name = "comboboxb" & i
            .Left = 200
            .Top = 50 + ((i - 1) * 22)
            .Width = 168
            .Height = 15.5
            .RowSource = "'feuil5'!A1: A4"
        Me.Height = cbox2.Top + cbox2.Height + 50
        CommandButton1.Top = Me.Height - 45
        Me.Height = CommandButton1.Top + cbox2.Height + 50
        End With
 
    nbval = nbrcom
 
Next i
 
Else
 
For i = nbrcom + 1 To nbval
    Me.Controls.Remove "comboboxb" & i
    Me.Controls.Remove "comboboxa" & i
Next i
 
nbval = nbrcom
 
End If
 
TextBox1.SetFocus
End If
End Sub

JP