Problème d'absence de sélection.

Résolu
TitiPointCom67 Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
 Utilisateur anonyme -
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

Utilisateur anonyme
 
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   Statut Membre Dernière intervention  
 
Oui, ça marche impeccable.
Merci beaucoup
Bonne soirée
0
Utilisateur anonyme
 
De rien
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
sans doute, si tu indiques quelle erreur.
0
TitiPointCom67 Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
Le message est :

Erreur d'exécution 381
Impossible de lire la propriété List. Index de table de propriété non valide.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
que souhaites-tu obtenir sans avoir sélectionné de ligne?
0
TitiPointCom67 Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
TitiPointCom67 Messages postés 38 Date d'inscription   Statut Membre Dernière intervention  
 
Si c'est plus facile, je suis également preneur d'une solution qui affiche les TextBox de l'UserForm5 vides.
0