Re : [VBA] Option par défaut lors de l'ouverture d'un formulaire
Salut,
Arf désolé j'y avais pas pensé sur le moment, voila le code (peut-tu m'indiquer ou je doit mettre le code exactement stp ?) :
Private Sub cmdajouter_Click()
Dim numlignevide As Integer
'activation de la feuille "Prêt BluRay"
Worksheets("Prêt BluRay").Activate
'trouve la dernière ligne vide du tableau et enregistre le numéro de la ligne dans la variable numlignevide
numlignevide = ActiveSheet.Columns(1).Find("").Row
'vérifie que les champs obligatoires sont correctement remplis
If txtfilm.Text = "" Then
MsgBox "Veuillez rentrez le nom d'un film.", vbCritical, "Important"
txtfilm.SetFocus
Else
'enregistre les données
ActiveSheet.Cells(numlignevide, 1) = UCase(txtfilm.Text)
ActiveSheet.Cells(numlignevide, 3) = txtpret.Text
If option1 = True Then
ActiveSheet.Cells(numlignevide, 2) = "Oui"
ElseIf option2 = True Then
ActiveSheet.Cells(numlignevide, 2) = "Non"
ActiveSheet.Cells(numlignevide, 3) = "En stock !"
End If
'efface le formulaire et replace le curseur sur txtfilm
txtfilm.Text = ""
txtpret.Text = ""
option1 = ""
option2 = ""
txtfilm.SetFocus
End If
End Sub
Merci !