C
christelle
Guest
re-bonjour à tous,
soyons direct: je lance un formulaire avec un bouton de commande (jusque là tout va bien) mais quand je veux valider le formulaire, tout plante et je ne vois pas où est l'erreur. Voilà le programme du bouton valider du formulaire:
Private Sub CommandButton1_Click()
If (OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False) Then
MsgBox ('Vous n'avez pas choisi la méthode')
Else
If OptionButton1.Value = True Then
Sheets('concentrations').Cells(3, 8).Value = 'a'
ElseIf OptionButton3.Value = True Then
Sheets('concentrations').Cells(3, 8).Value = 'b'
ElseIf OptionButton2.Value = True Then
Sheets('concentrations').Cells(3, 8).Value = 'c'
End If
End If
Sheets('concentrations').Cells(3, 4).Value = textbox_analyte.Value
UserForm_concentration.Hide
End Sub
merci pour votre aide...
soyons direct: je lance un formulaire avec un bouton de commande (jusque là tout va bien) mais quand je veux valider le formulaire, tout plante et je ne vois pas où est l'erreur. Voilà le programme du bouton valider du formulaire:
Private Sub CommandButton1_Click()
If (OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False) Then
MsgBox ('Vous n'avez pas choisi la méthode')
Else
If OptionButton1.Value = True Then
Sheets('concentrations').Cells(3, 8).Value = 'a'
ElseIf OptionButton3.Value = True Then
Sheets('concentrations').Cells(3, 8).Value = 'b'
ElseIf OptionButton2.Value = True Then
Sheets('concentrations').Cells(3, 8).Value = 'c'
End If
End If
Sheets('concentrations').Cells(3, 4).Value = textbox_analyte.Value
UserForm_concentration.Hide
End Sub
merci pour votre aide...