inputbox mettre plusieurs macro en mot de passe Résolu

Question

Bonjour
j'ai encore besoin de votre aide je suis sur excel 2000 je crée des mots de passe pour mon fichier pour acceder a chaque fonction mais voila quand je mais exemple "poussin"cela lance ma macro "nom" le soucis c'est que j'ai  
3 autre demande qui s'afficheor je voudrais en avoir une.
Comment puis je faire?
If InputBox(Message, Title, Default) = "poussin" Then nom
If InputBox(Message, Title, Default) = "gouter" Then CopieFeuille
If InputBox(Message, Title, Default) = "hamster" Then masquerLesColonnesNom
If InputBox(Message, Title, Default) = "babar" Then CopieFeuille2

j'ai essayée ça
If InputBox(Message, Title, Default) = "poussin" Then 
nom
CopieFeuille
masquerLesColonnesNom
CopieFeuille2

toutes mes macro se lance en meme temps or je voudrais que si je marque "poussin"ca lance ma macro nom  ainsi de suite
merci 
 pat

PCPT · Accepted Answer

salut,

si tu ne sors pas de ta procédure (après la saisie), tu vas forcément poursuivre

soit EXIT SUB après execution (bof bof)
soit imbriquer les IF avec ELSEIF (mieux mais peu pratique en cas de modifs de code)
soit faire un switch....

select case 
InputBox(Message, Title, Default)
  case "poussin" : nom
  case "gouter" : CopieFeuille
  case "hamster" : masquerLesColonnesNom
  case "babar" : CopieFeuille2
  case else : msgbox "aucune saisie valide"
end select




++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

patbl · Answer

merci beaucoup  de ton aide

 pat

Inputbox mettre plusieurs macro en mot de passe

2 réponses

Votre réponse

Discussions similaires