bonjour Ixelo,le Forum
Private Sub ComboBox1_Change()
Dim Cel As Range
Dim Nomfeuil As String
Dim Nomtech As String
Dim Tablo As Variant
Dim L As Integer
Nomtech = ComboBox1.Value
For Each Cel In Sheets('Menu').Range('A1:B' & Range('A65536').End(xlUp).Row)
'faute dans ligne suivante if... end if
If Cel = Nomtech Then
TextBox1.Value = Cel.Offset(0, 1).Value
Exit For
End If
Next Cel
Nomfeuil = TextBox1.Value
With Sheets(Nomfeuil)
'faute range doit avoir un. devant
Tablo = .Range(Nomtech).Offset(2, 0).CurrentRegion
End With
ListBox1.Clear
ListBox1.ColumnCount = 4 'nbre de colonnes
ListBox1.ColumnWidths = '40;40;80;40' 'largeur colonnes
For L = 1 To UBound(Tablo, 1)
With ListBox1
.AddItem Tablo(L, 1)
.List(L - 1, 1) = Tablo(L, 2)
.List(L - 1, 2) = Tablo(L, 3)
.List(L - 1, 3) = Tablo(L, 5)
End With
Next L
End Sub
à bientôt