Bonjour j’ai le tableau suivant:
Les éléments de la liste de gauche sont stockes dans la feuille suivante:
En cliquant sur la lame dans la liste de gauche je veux faire apparaitre la longueur, type, tension et Nombre, cette opération se fait pour 4 modèles de lames M1 M2 M3 M4, pour ne pas définir a chaque fois les feuilles ou les lames sont stockes j’ai rédigé ce code:
Private Sub ListBox1_Click()
Nom_Lame = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Cycle = Me.TextBox1.Value ’ pour specifier le nom de la feuille
Me.ListBox2.Clear
Me.ListBox2.ColumnCount = 4
Me.ListBox2.ColumnWidths = « 100;100;100;100 »
Set ws_Cycle_M1 = ActiveWorkbook.Worksheets(Cycle)
ws_Cycle_M1.Activate
dc = ws_Cycle_M1.Cells(2, 256).End(xlToLeft).Column
Dim Plage As Range, Trouve As Range
Set Plage = ws_Cycle_M1.Range(Cells(2, 1), Cells(2, dc))
Set Trouve = Plage.Cells.Find(what:=Nom_Lame)
For i = 2 To dc
If Trouve Is Nothing Then
Else
If ws_Cycle_M1.Cells(2, i) = Trouve Then
Me.ListBox2.AddItem ws_Cycle_M1.Cells(3, i)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 1) = ws_Cycle_M1.Cells(5, i)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 2) = ws_Cycle_M1.Cells(4, i)
Me.ListBox2.List(Me.ListBox2.ListCount - 1, 3) = ws_Cycle_M1.Cells(6, i)
’ Me.ListBox2.List(Me.ListBox2.ListCount - 1, 4) = ws_Cycle_M1.Cells(6, i)
End If
End If
Next i
End Sub
J’ai une erreur au niveau de
Cycle = Me.TextBox1.Value
Il me dit incompatibilité de Type. je le défini dans un module en tant que string est ce que c’est faux ?
MERCI
Gestion_Lames (2)4.xlsm (168,5 Ko)