re tonio
nos messages se sont croisés.
on travaille sur le meme fichier tonio.
moi pour l'init de la listbox, j'ai ca :
Dim x As Integer
Me.ListBox1.Clear
Me.TextBox2 = ''
Me.TextBox3 = ''
Me.TextBox4 = ''
Me.TextBox5 = ''
If ComboBox1.Value = 'Code T' Then
For x = 2 To Sheets('Fichier').Range('A65536').End(xlUp).Row
If Sheets('Fichier').Range('A' & x) <> '' Then Me.ListBox1.AddItem Sheets('Fichier').Range('A' & x)
Next
ElseIf ComboBox1.Value = 'Code M' Then
For x = 2 To Sheets('Fichier').Range('B65536').End(xlUp).Row
If Sheets('Fichier').Range('B' & x) <> '' Then Me.ListBox1.AddItem Sheets('Fichier').Range('B' & x)
Next
ElseIf ComboBox1.Value = 'Designation T' Then
For x = 2 To Sheets('Fichier').Range('C65536').End(xlUp).Row
If Sheets('Fichier').Range('C' & x) <> '' Then Me.ListBox1.AddItem Sheets('Fichier').Range('C' & x)
Next
ElseIf ComboBox1.Value = 'Designation M' Then
For x = 2 To Sheets('Fichier').Range('D65536').End(xlUp).Row
If Sheets('Fichier').Range('D' & x) <> '' Then Me.ListBox1.AddItem Sheets('Fichier').Range('D' & x)
Next
End If
je comprend plus rien
salut