Input Box avec de la saisie texte et chiffre

Question

Je viens une fois de plus demander de l'aide car une tout petit chose ne me permet pas d'avancer. Je m'explique, Je souhaite crée un input box ou il faut écrire des chiffres et des lettres dans le message qui s'affiche. Jusqu’à cet étape je n'est eu aucun souci, en revanche une fois que je veut le mettre sur ma feuille un message d'erreur s'affiche "Incompatibilité de type". je pense que sa vient du faite que je mélange des chiffres et des lettres. Donc si c'est sa pouvez vous me donner une solution. Je vous mais mon code. Sub macor1() Dim Codepostal As Integer 'Code postal ville Codepostal = InputBox("Inscrire le code postal de la ville ainsi que les 4 première lettre de la ville en retirant le 'Saint' si nécessaire. Seul les régions Rhone Alpes, Auvergne,Ile de france, ainsi que les 40 premiers villes francais sont presente dans le logiciel") Range("B34").Select ActiveCell.FormulaR1C1 = Codepostal End sub Cordialement...

h2so4 · Accepted Answer

Une proposition de correction, Si tu définis une variable de type Integer, celle-ci ne pourra contenir qu'un nombre entier compris entre -32768 et + 32767, Or tu utilises cette variable pour y mettre un mélange de différents caractères (chiffres et lettres), il faut la définir commer String ou comme variant (défaut quand on ne met pas de type) Sub macor1() Dim Codepostal 'Code postal ville Codepostal = InputBox("Inscrire le code postal de la ville ainsi que les 4 première lettre de la ville en retirant le 'Saint' si nécessaire. Seul les régions Rhone Alpes, Auvergne,Ile de france, ainsi que les 40 premiers villes francais sont presente dans le logiciel") Range("B34").Select ActiveCell = Codepostal End Sub...