Problème d'absence de sélection. [Résolu/Fermé]

Signaler
Messages postés
38
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
12 septembre 2017
-
Messages postés
15792
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 avril 2021
-
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

Messages postés
15792
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 avril 2021
685
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
38
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
12 septembre 2017

Oui, ça marche impeccable.
Merci beaucoup
Bonne soirée
Messages postés
15792
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 avril 2021
685
De rien
Messages postés
15101
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 avril 2021
828
sans doute, si tu indiques quelle erreur.
Messages postés
38
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
12 septembre 2017

Le message est :

Erreur d'exécution 381
Impossible de lire la propriété List. Index de table de propriété non valide.
Messages postés
15101
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
12 avril 2021
828
que souhaites-tu obtenir sans avoir sélectionné de ligne?
Messages postés
38
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
12 septembre 2017

EN fait, l'UserForm affiche tout simplement la deuxième ligne (la première étant pour les titres) du tableau qui se trouve sur la feuille qui s’appelle INSCRIPTIONS_17-18.
Cette ligne comprend 20 colonnes. Chaque cellule de la ligne remplie un TextBox sur l'UserForm5.
Messages postés
38
Date d'inscription
vendredi 25 août 2017
Statut
Membre
Dernière intervention
12 septembre 2017

Si c'est plus facile, je suis également preneur d'une solution qui affiche les TextBox de l'UserForm5 vides.