Base de donnée sur VB ?

Résolu
Raph -  
 Raph -
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. Luc21
     
    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
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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. Luc21
       
      re Raph,

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

    Raph.
    0
    1. Raph
       
      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
  4. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Raph
     
    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