Inputbox et valeur

Bonsoir,

j'ai un petit problème dans la saisie automatique sur Excel.
J'ai créé un inputbox avec des chiffres.
Ces chiffres correspondent à un motif d'absence.

Comment faire lorsque je saisie ce chiffre (ex : 5), qu'il me mette dans la cellule adéquate "MALADIE"

Merci de votre aide, car je n'arrive pas à le faire fonctionner.
Il me renvoit toujours vers la valeur du else en fin de paramétre.

Bonjour,

Tu peux essayer la fonction "Choose" :

Code:

---

1 2	Range("b6") = Choose(motif, "A. TRAJET", "A.TRAVAIL", "ACCUEIL ENF", "M.PROF", "MALADIE", "MATERNITE", "MTT", "PATERNITE", "PATHO")

---

Hervé.

Bonjour,
C'est normal que ça ne fonctionne pas vous avez

motif = InputBox(.........)

Puis vous faites un test
If Valeur = 1 then etc...

Or Valeur est vide puisque le 5 que vous tapez est dans motif

Il suffit simplement de mettre Valeur = motif juste avant le test

Code:

---

1 2 3

Valeur = motif If Valeur = 1 then ........

---

merci c'est nickel

Je remonte le soucis car j'ai rajouté un motif, et cela ne fonctionne plus.
Il doit avoir un truc mais je n'arrive pas à trouver où.

Si une ame charitable pouvez m'aider.

Bonjour,
Pour la demande du motif vous utilisez la méthode Application.InputBox au lieu de la fonction InputBox.
J'ai changé cela et dans les déclaration j'ai motif As String au lieu de Byte.
Alors ça fonctionne.
A vous de voir.

C'est OK cela marche.