Microsoft 365 Rafraichissement Listbox

Calvus à dit:

Bonsoir à tous,

Je me heurte à un problème qui me rend fou, et pourtant j'ai déjà eu à résoudre ce type de cas, mais je dois être trop fatigué !

J'alimente une listbox via un tableau.
Une fois la ligne sélectionnée, les données sont écrites sur une nouvelle feuille, et j'aimerais mettre à jour ma listbox avec les nouvelles données, donc une ligne à chaque fois.
Il s'agit en fait de comparer 2 tableaux, en ayant comme critère une date, et recharger la listbox avec toutes les données sauf celle qui vient d'être copiée dans la seconde feuille.
Malgré des heures de tentative 'en passant même par un dico), soit je retrouve les mêmes données, soit 2 soit ma listbox est vide. Je devient chèvre !
Un exemple figure sur le fichier joint.
Merci.

Cliquez pour agrandir...

Calvus à dit:

Bonsoir @Gégé-45550 ,

Merci, mais je ne vois pas ce que tu as apporté...
A bientôt.

Cliquez pour agrandir...

Calvus à dit:

L'idée est de est de la recharger après avoir cliqué dessus.
En cliquant, on inscrit les données de la ligne sélectionnée sur la feuille Arrivée, et du coup on recharge avec cette ligne en moins. Et ainsi de suite.

Cliquez pour agrandir...

Calvus à dit:

Oui, cela pourrait se faire. Mais l'utilisateur doit pouvoir transférer une nouvelle ligne sans avoir à quitter l'usf

Cliquez pour agrandir...

Calvus à dit:

Oui pourquoi pas, mais comment gérer le nouveau tableau ?

Cliquez pour agrandir...

Calvus à dit:

Ca fonctionne correctement, mais j'aurais aimé une solution sans colonne supplémentaire.

Cliquez pour agrandir...

TooFatBoy à dit:

Ben tu fais la même chose mais par macro au lieu de le faire par formule.

Cliquez pour agrandir...

Calvus à dit:

C'est vrai !

Cliquez pour agrandir...

Private Sub ListBox1_Click()
Dim i%, j%, pos%, taille%
Dim DerligArrivee%
Dim Liste_Box()
Dim fDepart As Worksheet, fArrivee As Worksheet
Set fDepart = Sheets("Départ")
Set fArrivee = Sheets("Arrivée")
pos = 10000
DerligArrivee = fArrivee.Cells(Rows.Count, 1).End(xlUp).Row
DerligArrivee = DerligArrivee + 1

ReDim a(1 To 1, 1 To 6)
ReDim Liste_Box(ListBox1.ListCount - 1, 0 To 5)
For i = 0 To ListBox1.ListCount - 1
    For j = 0 To 5
        Liste_Box(i, j) = ListBox1.List(i, j)
    Next j
    If ListBox1.Selected(i) = True Then
        For j = 0 To 5
            a(1, j + 1) = ListBox1.List(i, j)
        Next j
        pos = i
    End If
Next i

If fArrivee.Range("A2") = "" Then
    fArrivee.Cells(DerligArrivee - 1, 1).Resize(1, 6) = a
Else
    fArrivee.Cells(DerligArrivee, 1).Resize(1, 6) = a
End If

If pos <> 10000 Then
    ListBox1.Clear
    taille = UBound(Liste_Box) - 1
    For i = pos To taille
        For j = 0 To 5
            Liste_Box(i, j) = Liste_Box(i + 1, j)
        Next j
    Next i
    For i = 0 To taille
        ListBox1.AddItem
        For j = 0 To 5
            ListBox1.List(i, j) = Liste_Box(i, j)
        Next j
    Next i
End If

End Sub

Calvus à dit:

Initialiser la listbox fonctionnait très bien.

Cliquez pour agrandir...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'
Dim DerLig As Long, i As Long, Monchoix As Long

    ' Transfert des données de l'item sélectionné
    With Range("Tableau3")
        DerLig = IIf(.ListObject.DataBodyRange Is Nothing, 1, .Rows.Count + 1)
        .Cells(DerLig, 1) = CDate(ListBox1.List(ListBox1.ListIndex, 0))
        .Cells(DerLig, 2) = CDate(ListBox1.List(ListBox1.ListIndex, 1))
        For i = 3 To 6
            .Cells(DerLig, i) = ListBox1.List(ListBox1.ListIndex, i - 1)
        Next i
    End With

    ' Suppression de la ligne de l'item sélectionné
    With ListBox1
        Monchoix = .ListIndex
        .ListIndex = -1
        .RemoveItem (Monchoix)
    End With

End Sub