Verification d' une valeur en VBA

Artisous43 -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,
j' ai une certaine valeur en B2 par exemple. Je veux savoir si cette valeur est égale à 3,6,9,12,ou15.
Si oui le programme continue, sinon Message erreur.

Est ce que quelqu'un peut m' aider?

Merci d' avance
Configuration: Windows Vista
Safari 530.5

3 réponses

  1. Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    If CInt(Range("B2").Value) <> 3 Or CInt(Range("B2").Value) <> 6 Or _
           CInt(Range("B2").Value) <> 9 Or CInt(Range("B2").Value) <> 12 Or _
           CInt(Range("B2").Value) <> 15 Then
       MsgBox "Erreur"
    End If


    ;o)
    0
    1. artisous43
       
      Merci, c' est OK....
      Bon aprés midi
      0
  2. moiced59 Messages postés 1161 Statut Membre 60
     
    bonjour

    le code ne fonctionne pas mesage d erreur a chaque fois meme si valeur OK
    0
  3. Polux31 Messages postés 7219 Statut Membre 1 204
     
    pffff désolé, remplace les Or par des And ... ça ira mieux

    ;o)
    0