Variable conditionnée

Sub Traitement1()
Dim i As Variant
      i = TextBox2.Value
      If IsNumeric(i) Then
            If i >= 6 And i <= 13 Then
                  TextBox1 = i - 5
            ElseIf i >= 15 And i <= 17 Then
                  TextBox1 = i - 6
            ElseIf i >= 19 And i <= 21 Then
                  TextBox1 = i - 7
            Else
                  'Ce que tu veux ici pour les autres cas...
            End If
      End If
End Sub

Sub Traitement2()
Dim i As Variant
      i = TextBox2.Value
      If IsNumeric(i) Then
            Select Case i
            Case 6 To 13
                  TextBox1 = i - 5
            Case 15 To 17
                  TextBox1 = i - 6
            Case 19 To 21
                  TextBox1 = i - 7
            Case Else
                  'Ce que tu veux ici pour les autres cas...
            End Select
      End If
End Sub

Cliquez pour agrandir...