Merci j’ai essayé plusieurs fois et enfin cela fonctionne. Après tout le temps passé sur mon fichier je sèche pour des choses aussi simples ! Mais bon.
Maintenant comment modifier mon code vba pour qu’on puisse aussi voir les lignes coloriées dans la Listbox de mon UserForm ?
Tu as une idée ?
Voici le code:
Private Sub ListBox1_Click()
Dim ligne As Long, Nbre As Integer, i As Byte
Me.CommandButton2.Visible = True
Me.CommandButton3.Visible = True
Me.CommandButton1.Visible = False
TextBox3.Enabled = False
TextBox4.Enabled = False
Frame2.Visible = True
Set result = [Tab_1[ID]].Find(ListBox1, LookIn:=xlValues, LookAt:=xlWhole)
position = result.Row - [Tab_1].Row + 1
ComboBox1 = [Tab_1].Item(position, 2)
For i = 1 To 3
Controls(« TextBox » & i) = [Tab_1].Item(position, i + 2)
Next i
TextBox4 = [Tab_1].Item(position, 6)
TextBox5 = Format([Tab_1].Item(position, 7), « 0.00 »)
TextBox6 = [Tab_1].Item(position, 9)
End Sub