Discussion :

[Nono Sto]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Bonjour,

Essais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,
Ton problème est dans la syntaxe
Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nono Sto]

Thank you very much le code marche nickel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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