Verification d' une valeur en VBA

Artisous43 -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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

3 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   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
artisous43
 
Merci, c' est OK....
Bon aprés midi
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
bonjour

le code ne fonctionne pas mesage d erreur a chaque fois meme si valeur OK
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
pffff désolé, remplace les Or par des And ... ça ira mieux

;o)
0