faire d'une base de données plein de petite av des bouton ou choix de critère manuel

Re : faire d'une base de données plein de petite av des bouton ou choix de critère m

mon but est de faire des choix mais que les trois premières colonnes n'apparraissent pas dans le résultat final!!!

Re : faire d'une base de données plein de petite av des bouton ou choix de critère m

Bonsoir,
La base du forum est une mine d'or
Fais une recherche avec le mot clé "Cascade", c'est un bon moyen de commencer...
Reviens ensuite avec ce que tu auras fait, si ça coince
A+
kjin

Re : faire d'une base de données plein de petite av des bouton ou choix de critère m

déja pour commencer est-ce qu'une écriture VBA peut etre retranscrite sur un autre dossier??
et sinon que veut dire :
- UserForm_Initialize()
- ListBox1_Change()
j'ai essayé de crée des liste de ce nom, ou de crée un bouton mais je n'arrive pas a retrouver l'écriture dés que je sors du mode création


Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("BD")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
mondico(c.Value) = c.Value
Next c
Me.ListBox1.List = mondico.items
Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub ListBox1_Change()
Me.ListBox3.Clear
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
For k = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(k) = True Then
If c = Me.ListBox1.List(k, 0) Then
temp = c.Offset(, 1)
mondico(temp) = temp
End If
End If
Next k
Next c
Me.ListBox2.List = mondico.items
End Sub

Private Sub ListBox2_Change()
Me.ListBox3.Clear
For Each c In Range(f.[B2], f.[B65000].End(xlUp))
For k = 0 To Me.ListBox2.ListCount - 1
If Me.ListBox2.Selected(k) = True Then
If c = Me.ListBox2.List(k, 0) Then Me.ListBox3.AddItem c.Offset(, 1)
End If
Next k
Next c
End Sub

Private Sub b_ok_Click()
temp = ""
For k = 0 To Me.ListBox3.ListCount - 1
If Me.ListBox3.Selected(k) = True Then temp = temp & Me.ListBox3.List(k, 0) & " "
Next k
ActiveCell = temp
Unload Me
End Sub

Re : faire d'une base de données plein de petite av des bouton ou choix de critère m

bonjour,
j'ai réussi a faire ça mais ce n'est pas encore le résultat attendu.
est-ce que je peut avoir juste l'intitulé de mes colonnes de choix visible.
ou alors est-il possible de crée un tableau sur deux feuille???
grace a ça, je pourrais avoir sur la première feuille les colonnes de choix puis un bouton pour arriver sur la deuxieme feuille ou il n'y aurais que les résultat???
j'ai abandonné les liste en cascade car je n'y arrive pas. j'ai essayé ensuite de crée un moteur de recherchesur ma base de données mais la encore je ne comprend pas le language vba. j'ai beau changé mes noms de colonne, rien y fait.
en tout cas merci de votre aide. j'ai réussi a crée une cascade avec un choix 🙂