select case ne marche pas

[aperobass]

bonsoir,j'ai un petit soucis avec "select case "il ne marche pas.
Exce que, j'ai oublier quelque chose dans mon code?
,

Private Sub TextBox4_Change()
a = Val(Right(TextBox4, 5))
b = Val(Right(TextBox6, 5))
If a > b Then
MsgBox ("..."), vbCritical, ("...")
End If
Select Case ActiveSheet.Name
     Case Is = "E02103" 
   a = Val(Right(TextBox4, 4))
   b = Val(Right(TextBox6, 4))
     If a > b Then
MsgBox ("...l"), vbCritical, ("....")
End If
 End Select
End Sub

A+

 

[kjin]

Re : select case ne marche pas

Bonsoir,
Ne bouge pas, je sors la boule de cristal...si je la retrouve..
A+
kjin

 

[phlaurent55]

Re : select case ne marche pas

Bonsoir aperobass, kjin

Pourquoi il ne fonctionne pas ton Select Case ....................as-tu une erreur lors de l'exécution ?
ou, tout bêtement, tu aurais oublié de mettre un Case Else ????????????????

il serait possible pour cet oubli, que ça fonctionne parfaitement mais sans résultat visible

bonne nuit
à+
Philippe

 

[Kobaya]

Re : select case ne marche pas

Bonsoir aperobass, kjin, phlauren55,

D'accord avec kjin et phlauren55, y'a pas de raison que ça ne fonctionne pas !
D'ailleurs ça fonctionne chez moi...
Ceci dit, plutôt que

Case Is "E02103"

j'écrirais simplement

Case  "E02103"

Pourquoi se compliquer la vie, elle l'est déjà assez comme ça, non ?!