Textbox vers listbox

[maval]

Bonjour,

J'ai une combobox pour faire mon choix et remplir les textbox.
J'aimerai après mon choix dans la combobox avoir les deux Listbox sélectionner en fonction des textbox 12 & 13
Je vous remercie d'avance

 

[jecherche]

Bonjour,

Si j'ai bien compris la demande ...
À tester ...


Jecherche

 

[maval]

Bonjour jecherche,
Je te remercie, j'aurais aimé que sa sélectionne item de la listbox plutôt que mettre uniquement la réponse dans la listbox

Je te remercie et te souhaite une bonne journée

 

[Dranreb]

Bonjour.
À quoi bon ces ListBox plutôt que des ComboBox ? Je n'en vois pas du tout l'intérêt.
D'autant plus que ce serait complètement automatique si on les faisait gérer par un objet ComboBoxLiées.

 

[maval]

Bonjour Dranreb,

Je te remercie mais cela changerais tous mon programme et j'aimerai mieux l'évité
Merci et bonne journée

 

[Dranreb]

C'est plutôt toi qui a changé tout le programme alors qu'on était parti sur quelque chose de très prometteur au départ qui permettait des recherches dans tous les sens et auraient pu déboucher sur un système de mise à jour. Je ne comprends pas pourquoi tu est parti dans une toute autre direction beaucoup plus pauvre, compliquée et difficile à faire évoluer.

 

[thebenoit59]

Bonjour Max, Dranreb, Jecherche.

Une solution :

Private Sub ComboBox2_Change()
 TextBox1 = IIf(ComboBox2.ListIndex = -1, "", ComboBox2)
With Sheets("Données")
a = ComboBox2.ListIndex + 3
'TextBox9 = Sheets("Données").Range("E" & a)
            TextBox2 = Range("B" & a)
            TextBox3 = Range("J" & a)
            TextBox4 = Range("K" & a)
            TextBox5 = Range("L" & a)
            TextBox6 = Range("I" & a)
            TextBox7 = Range("H" & a)
            TextBox8 = Range("M" & a)
            TextBox9 = Range("E" & a)
            TextBox10 = Range("D" & a)
            TextBox12 = Range("F" & a)
            TextBox13 = Range("G" & a)
End With
    'Appel de la procédure créée.
    Selection_ListBox
End Sub

Private Sub Selection_ListBox()
Dim i%
With Me
    'ListBox Genre.
    For i = 0 To .ListBox2.ListCount - 1
        If .ListBox2.List(i) = .TextBox12.Text Then
            .ListBox2.Selected(i) = True
            Else: .ListBox2.Selected(i) = False
        End If
    Next i
    'ListBox Nationalité
    For i = 0 To .Listbox3.ListCount - 1
        If .Listbox3.List(i) = .TextBox13.Text Then
            .Listbox3.Selected(i) = True
            Else: .Listbox3.Selected(i) = False
        End If
    Next i
End With
End Sub

 

[maval]

Bonjour thebenoit59

Je te remercie beaucoup Nickel, je te souhaite une bonne journée