ListBox selection pour remplir une 2eme liste

[Salsabil_Zaghdoudi]

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)

[FFO]

Bonjour

Il faut déclarer ta variable « Cycle »
En rajoutant cette ligne de code en début de procédure :

Dim Cycle As String

Ci-joint ton fichier corrigé

Testes et dis moi

Gestion_Lames (2)4.xlsm (127,9 Ko)

[Salsabil_Zaghdoudi]

Ah super merci bcp, j’ai cru qu’il fallait la définir dans un module et ca suffit