Pour le else, il me faut un & x + 5, parce que je veux faire deux colonnes.
Private Sub Valider_parametre_Click()
For x = 1 To valider Step 1
If x < 6 Then
Set monobjet = Controls.Add("forms.textbox.1", "mon_champ" & x, True)
With monobjet
.Top = 120 + 40 * (x - 1)
.Left = 80
.Height = 30
.Width = 130
End With
Else
Set monobjet = Controls.Add("forms.textbox.1", "mon_champ" & x + 5, True)
With monobjet
.Top = 120 + 40 * (x - 6)
.Left = 330
.Height = 30
.Width = 130
End With
End If
Next
End Sub
Sinon tu n'as pas d'autre influence que la valeur de "valider" qui est une variable qui me contrôle le nombre de boite de dialogue créées.
J'ai essayé d'ajouter des labels devant mes boites de dialogue mais elles n'apparaissent pas. J'ai mis ce bout de code dans la boucle for.
Set monobjet = Controls.Add("forms.label.1", "Parametre" & x, True)
With monobjet
.Top = 120 + 40 * (x - 1)
.Left = 10
.Height = 12
.Width = 60
End With
Si je comprend comment marche le code, form.label.1 c'est le name de mon label et parametre x c'est le caption de mon label avec enfin true pour visible ?