Listbox click pour remplir une autre listbox

Dudu2 à dit:

Bonjour,
Difficile de trouver le contexte pour tester. J'ai donc dû créer une fonction d'affichage et remplissage de la ListBox1 du UserForm UF_Verif_M1. C'est quand même bien utile de se mettre à la place des autres avant de demander de l'assistance pour un peu leur faciliter la tâche et obtenir des réponses.

VB:

Private Sub ListBox1_Click()
    Dim curVal As Variant
    Dim c As Range
    Dim Rng As Range
   
    With ActiveWorkbook.Worksheets("Verif_M1")
        curVal = Me.ListBox1.Value
        Set c = .Columns(1).Find(curVal, lookat:=xlWhole)
        If c Is Nothing Then Exit Sub
        If IsEmpty(c.Offset(0, 1)) Then Exit Sub
       
        Set Rng = c.Offset(0, 1).Resize(1, .Cells(c.Row, Columns.Count).End(xlToLeft).Column - 1)
        ListBox2.Clear
        If Rng.Cells.Count = 1 Then
            ListBox2.AddItem Rng.Value
        Else
            ListBox2.List() = Application.Transpose(Rng)
        End If
    End With
End Sub

Cliquez pour agrandir...

Dudu2 à dit:

Bonjour,
Difficile de trouver le contexte pour tester. J'ai donc dû créer une fonction d'affichage et remplissage de la ListBox1 du UserForm UF_Verif_M1. C'est quand même bien utile de se mettre à la place des autres avant de demander de l'assistance pour un peu leur faciliter la tâche et obtenir des réponses.

VB:

Private Sub ListBox1_Click()
    Dim curVal As Variant
    Dim c As Range
    Dim Rng As Range
   
    With ActiveWorkbook.Worksheets("Verif_M1")
        curVal = Me.ListBox1.Value
        Set c = .Columns(1).Find(curVal, lookat:=xlWhole)
        If c Is Nothing Then Exit Sub
        If IsEmpty(c.Offset(0, 1)) Then Exit Sub
       
        Set Rng = c.Offset(0, 1).Resize(1, .Cells(c.Row, Columns.Count).End(xlToLeft).Column - 1)
        ListBox2.Clear
        If Rng.Cells.Count = 1 Then
            ListBox2.AddItem Rng.Value
        Else
            ListBox2.List() = Application.Transpose(Rng)
        End If
    End With
End Sub

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
À mon avis le plus pratique serait un tableau de toutes les lames avec une colonne pour chacune de ses caractéristiques, et un seul UserForm pour en ajouter, modifier ou supprimer une isolée par une combinaison des caractéristiques tapés ou sélectionnées dans des ComboBox prises en charge par un objet ComboBoxLiées mis à disposition par cette ressource :

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Cliquez pour agrandir...

Dranreb à dit:

À votre disposition pour vous aider à écrire les petites procédures qui utiliseront l'objet.
Le plus gros se fait dans la Sub UserForm_Initialize.
C'est mieux si la plage de données est sous forme de tableau Excel. Ça permet entre autre de spécifier le titre de la colonnes en guise de spécification de colonne à la méthode Add des objets ComboBoxLiées et ControlsAssociés.

Cliquez pour agrandir...