Faire correspondre une listbox dans une autre

Bonjour,

Je développe une application pour un suivi de budget.

J'ai un USF qui gère les saisies et un autre pour la consultation et modification.

Dans mon USF de modification j'ai besoin de faire correspondre deux listbox.

Au double click je dois voir apparitre l'info de la bonne colonne de la listbox 1 dans la listbox2 en surbrillance parmis les autres choix de la listbox

Voici une partie de mon code

J'ai besoin de comprendre comment je peux faire, cela fonctionne très bien pour les combobox et texbox mais pas pour la listbox.

Merci à tous

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ligne As Integer

On Error Resume Next

ligne = Me.ListBox1.ListIndex

Me.Rowid = ListBox1.Column(0, ligne)
Me.TextBox10 = Me.ListBox1.Column(1, ligne)
Me.ComboBox1 = Me.ListBox1.Column(2, ligne)
Me.ComboBox2 = Me.ListBox1.Column(3, ligne)
Me.TextBox3 = Me.ListBox1.Column(4, ligne)
Me.ComboBox3 = Me.ListBox1.Column(5, ligne)
Me.TextBox5 = Me.ListBox1.Column(6, ligne)
Me.TextBox6 = Me.ListBox1.Column(7, ligne)
Me.ComboBox_devise = Me.ListBox1.Column(8, ligne)
Me.ComboBox_Facture = Me.ListBox1.Column(9, ligne)
If ComboBox_Facture = "Engagé" Then ComboBox_Facture.ForeColor = vbRed
If ComboBox_Facture = "Prévision" Then ComboBox_Facture.ForeColor = vbRed
Me.ListBox2 = Me.ListBox1.Column(10, ligne)
If ListBox2 = "Encours" Then ListBox2.ForeColor = vbRed
Me.TextBox7 = Me.ListBox1.Column(11, ligne)
Me.TextBox8 = Me.ListBox1.Column(12, ligne)
Me.TextBox9 = Me.ListBox1.Column(13, ligne)

End Sub

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier...

Bye !

Bonjour,

Merci!

Voici mon document

Bonne journée

Bonjour le forum,

Quelqu'un peut m'aidier ?

Merci