Étape 4: Le Code
Cliquez sur Démarrer = > programmes = > accessoires = > cliquez sur bloc-notes
Or
Cliquez sur Démarrer = > cliquez exécuter = > tapez Notepad dans la zone de saisie exécuter puis cliquez sur OK.
2) de copier le code sous le seuil de l’Apostrophe et des astérisques puis collez-le dans le bloc-notes.
' *********************************************
Dim avis
Dim Message
Dim Message1
Dim Message2
Dim Message3
' Gestion des erreurs
On Error Resume Next
Avis = « Boughton systématique Buzz Phrase »
Message = « Choisir un nombre à 3 chiffres de 000 à 999? »
Question = InputBox(message,Notice)
« Recherchez Null ou vide inputbox puis annule
IF IsEmpty(Question) puis
WScript.quit()
Else If Len(Question) = 0 THEN
WScript.quit()
Fin si
Message1 = Left(Question,1) ' 1er numéro
message2 = Mid(Question,2,1) ' 2ème numéro
message4 = Right(Question,1) ' 3e numéro
"Colonne 1
Si Message1 = 0 then Message = « Intégré »
Si Message1 = 1 then Message = « Total »
Si Message1 = 2 then Message = « Systématisée »
Si Message1 = 3 then Message = « Parallèle »
Si Message1 = 4 alors Message = « Fonctionnelle »
Si Message1 = 5 then Message = « Sensible »
Si Message1 = 6 then Message = « Optimale »
Si Message1 = 7 then Message = « Synchronisé »
Si Message1 = 8 puis Message = « Compatible »
Si Message1 = 9 alors le Message = « Équilibré »
« Colonne 2
Si message reçu2 = 0 then Message3 = « Gestion »
Si message reçu2 = 1 then Message3 = « Organisationnelles »
Si message reçu2 = 2 then Message3 = « Contrôlé »
Si message reçu2 = 3 then Message3 = « Réciproque »
Si message reçu2 = 4 alors Message3 = « Numérique »
Si message reçu2 = 5 alors Message3 = « Logistique »
Si message reçu2 = 6 then Message3 = « Transitoire »
Si message reçu2 = 7 puis Message3 = « Supplémentaire »
Si message reçu2 = 8 puis Message3 = « Troisième génération »
Si message reçu2 = 9 alors Message3 = « Politique »
' Colonne 3
Si Message4 = 0 then Message5 = « Options »
Si Message4 = 1 then Message5 = « Flexibilité »
Si Message4 = 2 then Message5 = « Capacité »
Si Message4 = 3 then Message5 = « Mobilité »
Si Message4 = 4 then Message5 = « Programmation »
Si Message4 = 5 then Message5 = « Concept »
Si Message4 = 6 then Message5 = « Temps-phase »
Si Message4 = 7 then Message5 = « Projection »
Si Message4 = 8 puis Message5 = « Matériel »
Si Message4 = 9 then Message5 = « Contingence »
' Gestion de message d’erreur
IF Err.Number <> 0 puis
MsgBox "vous avez entre quelque chose de mal. Réessayez. ", vbOKOnly + 16," Ooopps... "
WScript.quit()
END IF
« Résultats définitifs
MsgBox Message & "" & Message3 & "" & Message5, vbInformation, avis