Restriction sur cellule

Bonjour

je ne vois comment mettre en forme de facon plus elegante que la mienne pour avoir une restriction sur la facon de remplir manuellement une cellule :

en A1 , je dois uniquement inserer les mots suivants et ecris en majuscule : VELO ou STYLO ou TABLE ou CHAISE

et si on insere un mot autre que ces 4 mots que cela ne soit pas possible et que la cellule soit automatiquement vidée pour recommencer .

j'ai pensé à ecrire quelque chose comme

if

 range("a1")<> "VELO"  or range("a1")<>"STYLO" or range("a1")<>"TABLE"  or range("a1")<>"CHAISE " then 

msgbox" MOT REFUSE "

range("a1").clear

else 

'traitement 

end if 

ou dumoins existe t il une facon de ne pas réecrire systematiquement " or " à chaque fois que je veux poser une restriction

Merci

Bonjour,

Je ne sais pas si ça correspond à ce que tu cherches, mais tu peux faire cela à partir d'une liste déroulante de choix...

Voir fichier joint...

Merci pour votre réponse , mais je ne peux pas ouvrir un fichier de type xlsx car ma version est celle de 2003

Bonjour

Bonjour samurai_kagemusha

Une autre (non deux) manières de faire

Sub truc2()
  Select Case Range("A1")
    Case "VELO", "STYLO", "TABLE", "CHAISE"
    Case Else
      Range("A1").ClearContents
  End Select
End Sub

Sub truc3()
Dim NomOk

  NomOk = ",VELO,STYLO,TABLE,CHAISE,"
  If InStr(1, NomOk, "," & Range("A1") & ",", vbBinaryCompare) = 0 Then
    Range("A1").ClearContents
  End If
End Sub

Mais c'est vrai (et plus pratique) que la liste de choix est mieux

Voilà le fichier au format Excel 1997-2003.

Pas Mal Banzai !! Merci pour ces facons de faire qui me paraissent 1000 fois mieux

Bonjour

Je maintiens ce que j'ai dit

Par une liste de validation c'est mieux et plus souple

Essayes le fichier de samurai_kagemusha