Mon premier formulaire.

[danaxia]

Bonsoir je vous demande votre avis sur mon premier formulaire.
Comme je débute!
Bonsoir à vous. Dan

 

[13GIBE59]

Re : Mon premier formulaire.

Bonjour Danaxia, Jean-Marcel.

Effectivement, c'est un bon début.
Juste deux points qui peuvent être améliorés :
Pour vider un userform (remettre tous les contrôles à 0 ou rien):

Private Sub B_raz_Click()
  Dim c As Control
  For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
          c.Value = ""
        Case "CheckBox"
          c.Value = False
        Case "ListBox", "ComboBox"
          c.ListIndex = -1
     End Select
  Next c
End Sub

Par ailleurs, tes combo sont alimentées par row source. Tu risques des désagréments si tu supprimes une ligne.
Pour les alimenter par code :
méthode additem : (il en existe bien d'autres)

Private Sub UserForm Initialize()
With Me.ComboBox1
ComboBox1.AddItem "toto"
ComboBox1.AddItem "tata"
ComboBox1.AddItem "titi"
End With
End Sub

Plus généralement, tu trouveras tout sur l'excellent site d'Eric RENAUD.

Bonne continuation à toi.