Ligne clicable listbox

damdamdeo44 Messages postés 6 Statut Membre -  
Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

j'ai une listbox dans laquelle en fonction de divers choix sur combobox et texbox elle afcihe les lignes correspondantes. je veux lorsqu eje clique sur un ligen avoir les cmpléments d'info sur des textbox différentes.

cela fonctionne sauf que je ne peux jamais obtenir l'info sur le clic de al deuxième ligne. j'ai bien la 1er
et la 3eme et meme un 4 mais rien sur la 2 elle reprends toujorus les infos de L-1 (ligne du dessus)


merci à tous

voici le code

Private Sub ListBox5_Click()
Dim cptr As Byte, Article As String, Lig As Byte, n As Integer

For cptr = 0 To ListBox5.ListCount - 1
        If ListBox5.Selected(cptr) = True Then
          Article = ListBox5.List(ListBox5.ListIndex, 0)
          With Sheets("Suivi NC")
               Lig = .Columns("a").Find(Article, .range("a8"), xlValues, xlWhole).Row
                                      
                      Tcomment.Value = Cells(Lig, "Q")
                        Tavleader.Value = Cells(Lig, "X")
                            Tdateleader.Value = Cells(Lig, "W")
                                Tdatecrea.Value = Cells(Lig, "U")
                                    Tredact.Value = Cells(Lig, "V")
                                        Tstatuts.Value = Cells(Lig, "H")
                                            Tformatete.Value = Cells(Lig, "F")
                                        TNCtete.Value = Cells(Lig, "G")
                                    Tzonetete.Value = Cells(Lig, "N")
                                Tatatete.Value = Cells(Lig, "L")
                            TDQn.Value = Cells(Lig, "R")
                        TNdqN.Value = Cells(Lig, "T")
                    Tdero.Value = Cells(Lig, "S")
                TamAero.Value = Cells(Lig, "J")
            TDeroAmaero.Value = Cells(Lig, "K")
                    
        End With
          
    
        End If
Next
End Sub


A voir également:

1 réponse

Le Pingou Messages postés 12656 Date d'inscription   Statut Contributeur Dernière intervention   1 466
 
Bonjour,
Avec le fichier ce serait possible de vous aider... !
Pour voir ce qui se passe, mettre le fichier sur https://www.cjoint.com/ et poster le lien !

0