Base de donnée sur VB ?
Résolu/Fermé
A voir également:
- Base de donnée sur VB ?
- Formules excel de base - Guide
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Supprimer une base de données phpmyadmin ✓ - Forum Logiciels
- Échec inscription base gigaset ✓ - Forum telephonie fixe
5 réponses
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.
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.
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
13 nov. 2008 à 10:52
13 nov. 2008 à 10:52
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...
au milieu tu ajoute
UserForm1.Show
pour avoir
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...
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+
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+
Merci beaucoup pour la vitesse de réponse,j'essaye ça ce soir,et je vous tiens au courant.
Raph.
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
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
14 nov. 2008 à 03:45
14 nov. 2008 à 03:45
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+
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+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question