bonjour,
tu pourrais simplifier le code ainsi, vu que le calcul semble le même pour option1 ou option2.
Private Sub CommandButton1_Click()
Dim C As Range
Dim Mmol As Double
With Sheets("Tableau périodique des éléments")
For i = 1 To 16 Step 2
If IsNumeric(Controls("TextBox" & i).Value) Then
If Controls("TextBox" & i + 1).Text <> "" Then
Set C = .Range("B1:B72").Find(Controls("TextBox" & i + 1).Text, , xlValues, xlWhole)
If Not C Is Nothing Then
Mmol = Mmol + Val(Controls("TextBox" & i).Value) * C.Offset(, 1).Value
End If
End If
End If
Next i
End With
If OptionButton1 = True Then
Sheets("Calcul FC").Cells(14, 4) = Mmol
ElseIf OptionButton2 = True Then
Sheets("Calcul FC").Cells(15, 4) = Mmol
End If
End Sub
d'autre part avec 2 optionbutton tu as 4 possibilités (vrai,vrai; vrai,faux;faux,vrai et faux,faux). Tu sembles n'en avoir besoin que de 2. Dans ce cas, un seul bouton d'option est nécessaire (l'alternative étant, mettre en ligne 14 ou en ligne 15)