j'ai cré un action sur une liste box qd je clic desus mais il ne se passe rien
 
voila mon code :  
 
Private Sub ListBoxResp_Click()
Dim Trouve As Byte
Dim cptList As Integer
Dim cpt As Integer
Dim cptResp As Integer
 
MsgBox "prout"
 
For cpt = 0 To ListBoxResp.ListCount - 1
    If ListBoxResp.Selected(cpt) Then
        cptResp = cptResp + 1
    End If
Next cpt
 
Trouve = 0
 
For cptList = 0 To ListCli.ListCount - 1
            If ListBoxResp.Selected(cptList) Then
                Cli = ListBoxResp.Column(0, cptList)
                If Cli = "ILN Fab" Then
                    Trouve = 1
                End If
            End If
Next cptList
Dim Cell As Range, Valeur As Range
Dim Unique As New Collection
Dim j As Byte
On Error Resume Next
 
If (Trouve = 1) And (cptReso = 1) Then
    ListBoxCost.Locked = False
    For Each Cell In Range("enr_incidents!Cost" )
        Unique.Add Cell, CStr(Cell)
    Next Cell
    On Error GoTo 0
    For Each Valeur In Unique
        ListBoxCost.AddItem Valeur
    Next Valeur
End If
                 
End Sub
 
 
il ne m'affiche meme pas mon prout qd je clic sur la listbox.
 
Sachant que cette listebox est une multiselected, ca pose pb ?  
 
Moi je voudrais juste que qd je clic sur "ILN Fab" de ma listebox, l'autre s'active avec une plage de données dedans
 
merci à tous !

Tu as des valeurs dans ta listbox ?
Ton cptResp n'est pas initialisé !

j'ai initialisé mon cptResp et oui j'ai des valeurs dans ma listebox dont un "ILN fab"

Avec une listbox en mutliselected l'evenement clic n'est pa pris en compte.
Tu peux utiliser le mouseup en multiselect
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox "ok2-" & ListBox1.ListIndex
End Sub

Mouseup correspond à quelle action ?
 
Il faut que ma 2eme listbox ne s'active que si lutilisateur choisi la valeur "ILN Fab" et pas une autre.

Cet événement se produit lorsque l'utilisateur relâche un bouton de la souris alors que le pointeur se trouve sur un graphique.
 
Private Sub object_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
object      Objet de type Chart déclaré avec des événements dans un module de classe. Pour plus d'informations, consultez Utilisation d'événements avec des graphiques incorporés.
 
Button      Bouton de la souris relâché. Il peut s'agir de l'une des constantes XlMouseButton suivantes : xlNoButton, xlPrimaryButton, xlSecondaryButton ou xlMiddleButton.
 
Shift      État des touches MAJ, CTRL et ALT lorsque l'événement s'est produit. Il peut s'agir de l'une ou d'une somme des valeurs suivantes.
 

Mouseup fonctionne aussi sur une listbox apres il te reste à tester si listbox.listindex correspond à ton "ILN Fab"

ba pour le moment je vais utiliser un boutton ki verifieras, sinon jvais pas etre en temps sur mon planning
 
mais merci a vous je reparlerais sur ce post si j'ai le tps de coder cette fonction spéciale

Pour tester si la ligne sélectionnée a la valeure "ILN Fab"
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If ListBox1.List(ListBox1.ListIndex) = "ILN Fab" Then MsgBox "J'ai trouve"
End Sub

merci bcp paul hood je vais tester ca

sublime ca marche merci beaucoup a vous 2