Problème d'absence de sélection.

Résolu/Fermé
TitiPointCom67 Messages postés 38 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 12 septembre 2017 - 11 sept. 2017 à 20:39
Whismeril Messages postés 19026 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 20 avril 2024 - 12 sept. 2017 à 06:54
Bonjour,

Lorsque je sélectionne une ligne dans une ListBox et que je clique sur un bouton, le contenu de la ligne sélectionné s'affiche dan une UserForm. Mon problème vient du fait que si je clique sur le bouton sans avoir sélectionné de ligne, cela provoque une erreur

Private Sub CommandButton1_Click()
Erase TInfos
    For i = 0 To 20                                                 
        TInfos(i) = ListBox1.List(Me.ListBox1.ListIndex, i)     
    Next i
    Flg_TI = True
UserForm6.Hide
UserForm5.Show 1
End Sub


Quelqu'un peut-il me trouver une solution ?
Merci

5 réponses

Whismeril Messages postés 19026 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 20 avril 2024 931
11 sept. 2017 à 22:55
Bonsoir

Peut être en testant en début de sub, si la sélection est valide

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then
    Exit sub
End if

Erase TInfos
    For i = 0 To 20                                                 
        TInfos(i) = ListBox1.List(Me.ListBox1.ListIndex, i)     
    Next i
    Flg_TI = True
UserForm6.Hide
UserForm5.Show 1
End Sub

1
TitiPointCom67 Messages postés 38 Date d'inscription vendredi 25 août 2017 Statut Membre Dernière intervention 12 septembre 2017
11 sept. 2017 à 22:59
Oui, ça marche impeccable.
Merci beaucoup
Bonne soirée
0
Whismeril Messages postés 19026 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 20 avril 2024 931
12 sept. 2017 à 06:54
De rien
0