Macro vba

Et pour les pourcentages

Option Explicit
'--------------------------
Sub valeur_pourcent()
Dim T_correct, Pcent As Byte, Test, xxx As Single
    T_correct = Array(0, 2, 7)
    On Error GoTo erreur1
    Pcent = InputBox(prompt:="Indiquez la valeur du pourcentage sans le caractère % (par ex: 2 pour 2%)")
    Test = Filter(T_correct, Pcent)
    If IsEmpty(Test(0)) Then GoTo erreur1
    xxx = Test(0) / 100
'--- suite du code....

Exit Sub
'gestionnaire erreurs
erreur1:
    MsgBox "saisie erronée"
End Sub

Merci pour le "tout simplement" très sympa de ta part...

au passage, règle d'or et de base de l'algorithmique:
toute sortie d'une procédure doit se situer à la fin du code(méthode Merise)

Désolé Michel je ne voulais pas t'offenser c'était une simple tournure de style pour introduire ce que j'aurais fait de plus court mais je fais peut être mal, je suis autodidacte et ne demande qu'à apprendre, et que tu m'expliques ce qu'est la méthode Merise

Re,
moi aussi, je suis autodidacte, à part 2 ou 3 ans à user mes pantalons au cours du soir du CNAM informatique où, d’ailleurs ,j'ai appris cette règle en TP issue des modèles de traitements de Merise. ces tp étaient dirigés par un informaticien responsable d'une fac à Montpellier pour qui il ne fallait surtout pas déroger à cette règle sous peine de "poésie hard"...
Tu as des topos sur Merise dans la partie encyclopédie du forum CCM mais maintenant, elle est remplacée par ULM (je ne connais pas) et c'était ardu à potasser.

concernant le code, pour 3 conditions, on peut utiliser une cascade de "SI" mais si tu as une liste assez longue, le filter d'un array est préférable , surcharge moins le code et est + facile à modifier (suppression, ajout) que d'aller bricoler dans le code et ce quelque soit la longueur de la liste.


dis toi bien aussi que je regarde souvent tes astuces sur les formules et j'en engrange pas mal dans mon grenier comme la validation de données sur 3 niveaux par exemple

Bonne soirée