Fenetre personalisable en VBS

quent -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

je viens de découvrir le vbs mais je connais plutot bien le vba sur excel et c'est quasiment pareille. Ce que je voudrais c'est faire une fenetre personalisable comme les userform sur excel mais je ne sais pas si c'est possible.

merci d'avance

4 réponses

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Je te propose une série de choix (quiz) pour comprendre le fonctionnement de vbs:

    Ouvrir un éditeur de texte et mettre ce code:

    Dim Titre, Choix, vbCrlf, Tache, ChoixMsg 
    Titre = "Essai"
    vbCrlf = Chr(13)
    Tache = Split("test1,test2,Quitter,",",")
    Do
          Choix = Inputbox("Entrez le numéro de la tâche que vous désirez effectuer :" & vbCrlf & vbCrlf & "1) test1" & vbCrlf & "2) test2" & vbCrlf & "0) Quitter", Titre, "0")
    If Choix <> 0 Then
           On Error Resume Next
            Select Case Choix
                    Case 1: MsgBox "Ceci est le test1"
                    Case 2 : MsgBox "Ceci est le test2"
              End Select
           
    On Error Goto 0
    End If
    If Choix = 0 Then
    	ChoixMsg = MsgBox("Souhaitez-vous quittez l'application ?", vbYesNoCancel, Titre)
    		If ChoixMsg = vbYes Then WScript.quit
    	End If
    Loop
    


    Tu l'enregistres. Ensuite tu affiches les extensions de fichier. Tu changes txt en vbs.

    Faire un UserForm comme en vba n'est possible que par code. Avec cet exemple tu comprendras mieux!

    Voilà

    0