Base de donnée sur VB ?

Résolu
Bonjour.
Je cherche a créer un petit programme tout bête en V.B.
Le principe:
Une combo-box proposant des choix.

L'utilisateur clique sur par exemple "choix azeugeugeu",puis sur button1.

Le programme lui répond alors "vous avez choisi azeugeugeu. Azeugeugeu est la langue des dromadaires du pôle nord antarctique..."

Problèmes,je ne sais pas comment créer une base de donnée dans la quelle enregistrer les réponses,et je ne sais pas non plus les faire correspondre aux questions ?

Merci d'avance a qui pourra m'aider.

Raph.
Configuration: Windows XP
Firefox 2.0.0.13

5 réponses

  1. Bonjour Ralph,

    Pour ta base de donnée, crée la sur une feuille excel où tu fais deux colonnes, la première les question "azeugeugeu" et la seconde les réponces équivalentes en face.
    Ensuite tu crée une UserForm sur cette page, tu crées un combobox et ensuite:

    Private Sub UserForm_Initialize()
    Dim i As Integer
    With ComboBox1
    .ColumnCount = 3
    .ColumnWidths = "90;0"

    Private Sub ComboBox1_Click()
    Dim i As Integer
    With ComboBox1
    For i = 1 To 2
    Controls("textbox" & i) = Cells(.List(.ListIndex, 1), i)
    Next i
    End With
    End Sub

    Ce Boutton affichera la combobox avec les questions

    Private Sub CommandButton3_Click()
    Dim i As Byte

    With ComboBox1
    .Clear
    For i = 2 To Range("a65536").End(xlUp).Row
    .AddItem Cells(i, 1)
    .List(.ListCount - 1, 1) = i
    Next i
    End With
    ComboBox1.Visible = True
    End Sub

    Tiens moi au courant car c'est très brouillon et je penses que j'ai zappé pas mal de chose.
    0
    1. Contributeur
      Bonjour,
      Peut-être un peu plus simple...
      sur la feuille Feuil1 colonne A tu met les question et colonne B les réponses
      Tu colle un bouton
      double clic sur le bouton, tu arrive dans l'IDE VBA et tu a une fenêtre avec...
      Private Sub CommandButton1_Click()
         
      End Sub

      au milieu tu ajoute
      UserForm1.Show

      pour avoir
      Private Sub CommandButton1_Click()
          UserForm1.Show
      End Sub

      enstuite tu ajoute un UserForm
      >> Insertion >> UserForm.
      tu double clic sur le UserForm, et dans la fenêtre qui s'ouvre tu colle le code...
      Private Sub ComboBox1_Click()
          'Adapter le nom de la feuille
          TextBox1 = Sheets("Feuil1").Cells(ComboBox1.ListIndex + 1, 2)
      End Sub
      
      Private Sub UserForm_Initialize()
          'Adapter le nom de la feuille et la plage
          ComboBox1.RowSource = "Feuil1!A1:A16"
          ComboBox1.ListIndex = 0
      End Sub

      Ensuite tu ajoute un ComboBox et un TextBox.
      Pas besoin de bouton.
      Chaque fois que tu change le combobox, la réponse est affichée.
      A+

      0
      1. re Raph,

        Je penses que la solution de Lermit222 est plus claire, et beaucoup + mieux lol.
        0
    2. Merci beaucoup pour la vitesse de réponse,j'essaye ça ce soir,et je vous tiens au courant.

      Raph.
      0
      1. J'utilise la version française de VB et je ne trouve pas userfrom.
        Les controles que je pourrais y ajouter seraient Controle Utilisateur , DataSet , Windows From , Formulaire parent MDI et Formulaire explorateur ?

        Le quel dois-je choisir ?

        J'ai fait un screen au cas ou je ne serais pas clair.
        >> http://www.picdo.net/Fichiers/2636b3ed03e728d87871b3e6537855/irreg-.bmp

        Merci beaucoup , encore Raph
        0
    3. Contributeur
      Tu est sur VB.Net, la prochaine fois dit-le directement ça évitera les réponse inutiles
      L'exemple donné est sur Excel, et je ne connais pas le VB.Net.
      Juste pour 2 données tu peu travailler avec un fichier à accès direct (Random)
      et une déclaration de Type.
      Et comme form une boite de dialogue conviendra.
      A+
      0
      1. D'accord,merci beaucoup,et désolé d'avoir mal précisé dans mon premier message...
        (Je débute, alors j'y connais pas grand chose )

        Bonne fin de journée/soirée aux deux personnes qui m'ont aidé.
        0