affichage message si ....

[rem$]

bonjour a tous

voici un pb a mon avis simple mais je ne vois pas la solus (pourtant j'ai mis mes lunettes)

je voudrais que si la valeur d'une cellule dans la plage p45000 est egale a soit : 3;4;9;11;12;13;14;15;16;17;18 alors msgbox "papier" sinon si egale a 1;5;6;7;8;10;21 alors msgbox "informatique" 2 et 19 étant valeur interdite de saisie dans cette plage

en fait j'ai fait :
If Range("p4").Value = "3" Or Range("p4").Value = "4" or ......Then
MsgBox ("papier")
Else
End If

et l'autre message pour les autres valeurs...
comme je suis grand debutant je suis sur que l'on peut faire plus court et plus simple

d'avance merci
a demain
rem$

 

[rem$]

re
en plus quand je mets la plage "p45000" dans le range ca ne fonctionne plus

merci

 

[Michel_M]

salut Rem$ et ze forum,

Ci joint petite macro d'avant la soupe du soir à assaisonner selon tes paramètres.

A+
Michel

 

[Michel_M]

Ca faisait longtemps que j'avais pas fait ce genre d'oubli

 

[rem$]

bonjour a tous
bonjour Michel_M

merci pour la macro, elle est presque aux poils mis a part qu'il faudrait que le msgbox apparaisse lors de la saisie
merci
rem$

 

[Michel_M]

Bonjour,

au lieu de worksheet_selectionchange

worksheet_change

A+
Michel