Menu

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

TitiPointCom67 38 Messages postés vendredi 25 août 2017Date d'inscription 12 septembre 2017 Dernière intervention - 11 sept. 2017 à 20:39 - Dernière réponse : Whismeril 11635 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 22 juin 2018 Dernière intervention
- 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
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
Whismeril 11635 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 22 juin 2018 Dernière intervention - 11 sept. 2017 à 22:55
1
Merci
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

Merci Whismeril 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24265 internautes ce mois-ci

TitiPointCom67 38 Messages postés vendredi 25 août 2017Date d'inscription 12 septembre 2017 Dernière intervention - 11 sept. 2017 à 22:59
Oui, ça marche impeccable.
Merci beaucoup
Bonne soirée
Whismeril 11635 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 22 juin 2018 Dernière intervention - 12 sept. 2017 à 06:54
De rien
Commenter la réponse de Whismeril
yg_be 5807 Messages postés lundi 9 juin 2008Date d'inscription 22 juin 2018 Dernière intervention - 11 sept. 2017 à 21:30
0
Merci
sans doute, si tu indiques quelle erreur.
Commenter la réponse de yg_be
TitiPointCom67 38 Messages postés vendredi 25 août 2017Date d'inscription 12 septembre 2017 Dernière intervention - 11 sept. 2017 à 22:24
0
Merci
Le message est :

Erreur d'exécution 381
Impossible de lire la propriété List. Index de table de propriété non valide.
yg_be 5807 Messages postés lundi 9 juin 2008Date d'inscription 22 juin 2018 Dernière intervention - 11 sept. 2017 à 22:33
que souhaites-tu obtenir sans avoir sélectionné de ligne?
Commenter la réponse de TitiPointCom67
TitiPointCom67 38 Messages postés vendredi 25 août 2017Date d'inscription 12 septembre 2017 Dernière intervention - 11 sept. 2017 à 22:44
0
Merci
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.
Commenter la réponse de TitiPointCom67
TitiPointCom67 38 Messages postés vendredi 25 août 2017Date d'inscription 12 septembre 2017 Dernière intervention - 11 sept. 2017 à 22:47
0
Merci
Si c'est plus facile, je suis également preneur d'une solution qui affiche les TextBox de l'UserForm5 vides.
Commenter la réponse de TitiPointCom67