Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value <> 0 Then
[A1] = Label1.Caption & "=" & TextBox1.Value
End If
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value <> 0 Then
[A1] = ";" & Label2.Caption & "=" & TextBox2.Value
End If
End Sub
[COLOR=rgb(184, 49, 47)][U][B] 'Dans le présent cas, si la value du TextBox2 est <> de 0, les données écrasent les valeurs déjà présentes dans A1[/B][/U][/COLOR]