Effacer les données d'une seule page d'un multipage
Bonjour,
Je souhaite pouvoir effacer les données figurant sur la page active d'un multipage.
Sur cette page active se trouve un ComboBox qui récupère les données d'une colonne A, une TextBox neutre à remplir manuellement, et un Label qui récupère les données d'une colonne B, en fonction de l'affichage du ComboBox.
Lors de l'activation de la fonction "Effacer", le ComboBox et la TextBox sont réinitialisés correctement, mais j'ai visiblement un plantage avec le reset du Label, que je n'arrive pas à résoudre.
Merci pour votre aide.
Bonjour,
J'ai le message suivant quand j'appuie sur le bouton "Effacer" :
"Erreur d'exécution '381':
Impossible de lire la propriété List. Index de table de propriétés non valide.
Voici la ligne qui pose problème :
Me.Label3.Caption = ComboBox1.List(ComboBox1.ListIndex, 1)
Après vérif, il n'y a effectivement pas de plantage tant que le ComboBox est vide, mais une fois qu'on a sélectionné quelque chose, ça plante...
Re,
Effectivement et c'est logique
On efface la Combobox, donc il y a un "Change" et on veut remplir le label avec ce que contient la combo
mais "ListIndex" à ce moment là, vaut -1 donc plus de sélection
Il faut mettre
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex >= 0 Then Me.Label3.Caption = ComboBox1.List(ComboBox1.ListIndex, 1)
If ComboBox1.ListIndex = -1 Then Me.Label3.Caption = ""
End Sub@+
En effet, c'est logique.
Merci Bruno pour ton aide et tes explications.