Private Sub CommandButton1_Click()
If TextBox1.Value > '0' And TextBox1.Value < '0.150' Then
Range('e10') = TextBox1.Value
Label4.Caption = Range('g9')
Else
If TextBox1.Value > '0.151' And TextBox1.Value < '0.353' Then
Range('e12') = TextBox1.Value
Label4.Caption = Range('g11')
Else
If TextBox1.Value > '00.354' And TextBox1.Value < '0.553' Then
Range('e14') = TextBox1.Value
Label4.Caption = Range('g13')
Else
If TextBox1.Value > '0.554' And TextBox1.Value < '0.758' Then
Range('e16') = TextBox1.Value
Label4.Caption = Range('g15')
Else
If TextBox1.Value > '0.759' And TextBox1.Value < '0.972' Then
Range('e18') = TextBox1.Value
Label4.Caption = Range('g17')
Else
If TextBox1.Value > '0.973' And TextBox1.Value < '1.152' Then
Range('e20') = TextBox1.Value
Label4.Caption = Range('g19')
Else
If TextBox1.Value > '1.153' And TextBox1.Value < '1.352' Then
Range('e22') = TextBox1.Value
Label4.Caption = Range('g21')
Else
If TextBox1.Value > '1.353' And TextBox1.Value < '1.540' Then
Range('e24') = TextBox1.Value
Label4.Caption = Range('g23')
Else
If TextBox1.Value > '1.541' And TextBox1.Value < '1.749' Then
Range('e26') = TextBox1.Value
Label4.Caption = Range('g25')
Else
If TextBox1.Value > '1.75' And TextBox1.Value < '1.957' Then
Range('e28') = TextBox1.Value
Label4.Caption = Range('g27')
Else
If TextBox1.Value > '1.958' And TextBox1.Value < '2.140' Then
Range('e30') = TextBox1.Value
Label4.Caption = Range('g29')
Else
If TextBox1.Value > '2.141' And TextBox1.Value < '2.346' Then
Range('e32') = TextBox1.Value
Label4.Caption = Range('g31')
Else
If TextBox1.Value > '2.347' And TextBox1.Value < '2.544' Then
Range('e34') = TextBox1.Value
Label4.Caption = Range('g33')
Else
If TextBox1.Value > '2.545' And TextBox1.Value < '2.749' Then
Range('e36') = TextBox1.Value
Label4.Caption = Range('g35')
Else
If TextBox1.Value > '2.75' And TextBox1.Value < '2.948' Then
Range('e38') = TextBox1.Value
Label4.Caption = Range('g37')
Else
If TextBox1.Value > '2.949' And TextBox1.Value < '3.149' Then
Range('e40') = TextBox1.Value
Label4.Caption = Range('g39')
Else
If TextBox1.Value > '3.15' And TextBox1.Value < '3.347' Then
Range('e42') = TextBox1.Value
Label4.Caption = Range('g41')
Else
If TextBox1.Value > '3.348' And TextBox1.Value < '3.548' Then
Range('e44') = TextBox1.Value
Label4.Caption = Range('g43')
Else
If TextBox1.Value > '3.549' And TextBox1.Value < '3.743' Then
Range('e46') = TextBox1.Value
Label4.Caption = Range('g45')
Else
If TextBox1.Value > '3.744' And TextBox1.Value < '3.950' Then
Range('e48') = TextBox1.Value
Label4.Caption = Range('g47')
Else
If TextBox1.Value > '3.951' And TextBox1.Value < '4.153' Then
Range('e50') = TextBox1.Value
Label4.Caption = Range('g49')
Else
If TextBox1.Value > '4.154' And TextBox1.Value < '4.348' Then
Range('e52') = TextBox1.Value
Label4.Caption = Range('g51')
Else
If TextBox1.Value > '4.349' And TextBox1.Value < '4.575' Then
Range('e54') = TextBox1.Value
Label4.Caption = Range('g53')
Else
If TextBox1.Value > '4.576' And TextBox1.Value < '4.752' Then
Range('e56') = TextBox1.Value
Label4.Caption = Range('g55')
Else
If TextBox1.Value > '4.753' And TextBox1.Value < '4.9' Then
Range('e58') = TextBox1.Value
Label4.Caption = Range('g57')
Else
If TextBox1.Value > '4.901' And TextBox1.Value < '5' Then
Range('e60') = TextBox1.Value
Label4.Caption = Range('g59')
Else
MsgBox ('Hors echelle de mesure')
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub