Petit probleme sur un select case

Version imprimable

Chères amies, chers amis

J'effectue un test avec select case, le test est sur la valeur d'une cellule, elle peut prendre que true ou false, voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Select Case cms_cell.offset(0, 3).Value
                Case Is = cms_cell.offset(0, 3).Value = 1
                    For j = 1 To Len(Match.SubMatches(x))
                        If IsNumeric(VBA.Mid(Match.SubMatches(x), j, 1)) Then
                        h = h + 1
                        cell.offset(0, 3 + h) = DateAdd("yyyy", CDbl(Val(VBA.Mid(Match.SubMatches(x), j, Len(Match.SubMatches(x)) - j + 1))), cell.offset(0, -4))
                        j = j + Len(str(VBA.Mid(Match.SubMatches(x), j, 1))) - 1
                        End If
                        Next
                    h = 0
                Case Is = cms_cell.offset(0, 3).Value = 0
                    For j = 1 To Len(Match.SubMatches(x))
                        If IsNumeric(VBA.Mid(Match.SubMatches(x), j, 1)) Then
                        cell.offset(0, 5) = DateAdd("yyyy", CDbl(Val(VBA.Mid(Match.SubMatches(x), j, Len(Match.SubMatches(x)) - j + 1))), cell.offset(0, -4))
                        cell.offset(0, 4) = DateAdd("m", 3, cell.offset(0, -4))
                        j = j + Len(str(VBA.Mid(Match.SubMatches(x), j, 1))) - 1
                    End If
                    Next
                End Select

Cepandant cela marche pas auriez vous une idée SVP?
L'espion reconnait bien la valeur de la cellule et je ne comprend pas pourquoi le test bne s'effectue pas, le pas pas après la ligne case is saute tout de suite au suivant case.

Merci

Bonjour,

Essais comme cela

Code:

1
2
3
4
5
6
Select Case cms_cell.offset(0, 3).Value
                Case True
                  ....
                Case False
                   ...
End select

Bonjour,
Ton problème est dans la syntaxe
Soit

Code:

1
2
3
4
5
6
7
8
Sub t1()
 Select Case Range("A2")
  Case 1
   MsgBox "La valeur est égal à 1"
  Case 2
   MsgBox "La valeur est égal à 2"
 End Select
End Sub

Soit

Code:

1
2
3
4
5
6
7
Sub t2()
 Select Case True
  Case Range("A2") = 1
   MsgBox "La valeur est égal à 1"
  Case Range("A2") = 2
   MsgBox "La valeur est égal à 2"
 End Select

[EDIT]
Je n'avais pas lu que la valeur devait être à VRAI ou FAUX
La solution de Jérôme répond à ta question.
Sol 1

Code:

1
2
3
4
5
6
7
8
Sub t1()
 Select Case Range("A2")
  Case True
   MsgBox "La valeur est égal à Vrai"
  Case False
   MsgBox "La valeur est égal à Faux"
 End Select
End Sub

Sol 2

Code:

1
2
3
4
5
6
7
8
Sub t2()
 Select Case True
  Case Range("A2")
   MsgBox "La valeur est égal à VRAI"
  Case Not (Range("A2"))
   MsgBox "La valeur est égal à FAUX"
 End Select
End Sub

Thank you very much le code marche nickel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Select Case cms_cell.offset(0, 3)
                Case True
                    For j = 1 To Len(Match.SubMatches(x))
                        If IsNumeric(VBA.Mid(Match.SubMatches(x), j, 1)) Then
                        h = h + 1
                        cell.offset(0, 3 + h) = DateAdd("yyyy", CDbl(Val(VBA.Mid(Match.SubMatches(x), j, Len(Match.SubMatches(x)) - j + 1))), cell.offset(0, -4))
                        j = j + Len(str(VBA.Mid(Match.SubMatches(x), j, 1))) - 1
                        End If
                        Next
                    h = 0
                Case False
                    For j = 1 To Len(Match.SubMatches(x))
                        If IsNumeric(VBA.Mid(Match.SubMatches(x), j, 1)) Then
                        cell.offset(0, 5) = DateAdd("yyyy", CDbl(Val(VBA.Mid(Match.SubMatches(x), j, Len(Match.SubMatches(x)) - j + 1))), cell.offset(0, -4))
                        cell.offset(0, 4) = DateAdd("m", 3, cell.offset(0, -4))
                        j = j + Len(str(VBA.Mid(Match.SubMatches(x), j, 1))) - 1
                    End If
                    Next
                End Select