Macro VBA ListBox : erreur si une seule entrée

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro VBA ListBox : erreur si une seule entrée

vylkor

Bonjour,

Je reviens vers vous pour une nouvelle question, comme dit dans le message precedent ( par ici ) je veux afficher la liste des couleurs que j'ai crée, pour ça j'utilise le bout de code suivant :

Code :

Dim nb_couleurs As Integer
Private Sub UserForm_Initialize()
Sheets("Couleurs" ).Activate
nb_couleurs = Range("A1" ).End(xlDown).Row
ListBox1.List() = Range(Cells(2, 1), Cells(nb_couleurs, 1)).Value
End Sub

Le soucis est que si je n'ai qu'une seule entrée dans mon tableau, ça plante, je pense à cause du Range d'une seule case.

Le message d'érreur :
Erreur d'exécution '381':

Impossible de definir la propiété List. Index de table de proprietés non valide.

Je sais que ça doit être un problème deja abordé, mais je n'arrive pas à trouver de réponse accéssibles à mon niveau pour pallier à ça.

Le problème n'est pas majeur, car il ne devrait "normalement" jamais y avoir qu'une seule valeur dans le tableau, mais je n'aime pas l'idée de sortir du code qui puisse planter "sur un malentendu", surtout que les utilisateurs derriers ne feront aucun éffort pour comprendre.

Encore une fois merci de votre aide,

:hello:

Publicité

Marc L

Bonjour,

comme indiqué dans l'aide VBA interne concernant List utiliser la méthode AddItem …

vylkor

Effectivement, maintenant que j'ai plus d'expérience, j'ai revu le code en utilisant cette methode et c'est passé tout seul, pour les curieux voila le code :

Code :

Private Sub UserForm_Initialize()
Sheets("Couleurs" ).Activate
color_num = Range("A1" ).End(xlDown).Row
For i = 2 To color_num
color_select_value = Cells(i, 1).Value
color_select.AddItem color_select_value
Next i
End Sub

Désolé pour le dérangement :jap:

Marc L

La ligne n°6 est inutile, ajouter directement la valeur de la cellule : color_select.AddItem Cells(i, 1).Value …

vylkor

Merci pour l'astuce, mon code est encore très brouillon, mais je l'améliore petit à petit avec tout ce que j'apprend et que vous m'apportez

Marc L

Code :

Private Sub UserForm_Initialize()
With Worksheets("Couleurs" ).Cells(1).CurrentRegion.Rows
Select Case .Count
Case 1: Exit Sub
Case 2: color_select.AddItem .[A2].Value
Case Else: color_select.List() = .[A2].Resize(.Count - 1).Value
End Select
End With
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro VBA ListBox : erreur si une seule entrée

Sujets relatifs
Macro VBA pour écrire du code Macro ImageJ	[PYTHON] VBA & Formules Excel vers site web Python
Creer un bouton macro plusieurs feuilles d'un classeur	Novice en VBA (Projet Excel)
Page personnalisée pour erreur 500	faire une somme avec nom d'onglet et ligne variable en VBA
Transcription formule excel en VBA	Afficher plusieurs lignes sur une seule
verrouiller un fichier excel avec une macro
Plus de sujets relatifs à : Macro VBA ListBox : erreur si une seule entrée

Page générée en 0.040 secondes