Microsoft 365 Rafraichissement Listbox

Calvus · 14 Janvier 2024

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.

Calvus · 16 Janvier 2024

Bonsoir,

@Gégé-45550 , @TooFatBoy ,

J'ai vu vos propositions, merci.
Pas encore eu le temps de regarder. J'essaierai ce soir, sinon à partir de jeudi soir.
Bonne soirée.

TooFatBoy · 17 Janvier 2024

Pour info : j'ai changé le fichier joint en #15 car j'avais oublié de remettre ta macro "Initialize" dans son état initial, mais la macro proposée en #15 reste la même.

Calvus · 18 Janvier 2024

Bonjour,

@Gégé-45550 , @TooFatBoy ,

Merci encore.
Vos 2 solutions fonctionnent, mais je n'étais pas totalement satisfait, dans le sens où la solution de @Gégé-45550 ne rechargeait correctement la listbox que si on ne quittait pas la procédure. Il y a certainement quelque chose à adapter cependant, mais n'ai pas encore poussé davantage.
Celle de @TooFatBoy me convient partiellement dans le sens où il faut ajouter une colonne intermédiaire.

J'ai donc revu mon code et ai compris mon erreur dans l'utilisation de mon dictionnaire.
J'ai donc corrigé et obtenu le résultat souhaité.
Je vous mets le code et le fichier ci-joint.

VB:

Option Explicit
Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
Dim i%, j%
Dim DerligArrivee%

Dim fDepart As Worksheet, fArrivee As Worksheet
Set fDepart = Sheets("Départ")
Set fArrivee = Sheets("Arrivée")

DerligArrivee = fArrivee.Cells(Rows.Count, 1).End(xlUp).Row
DerligArrivee = DerligArrivee + 1

ReDim a(1 To 1, 1 To 6)

For i = 0 To ListBox1.ListCount
    If ListBox1.Selected(i) = True Then
        For j = 0 To 5
            a(1, j + 1) = ListBox1.List(i, j)
        Next j
    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

ListBox1.Clear

Call UserForm_Initialize


End Sub

Private Sub UserForm_Initialize()

Dim i%

Dim fDepart As Worksheet, fArrivee As Worksheet
Set fDepart = Sheets("Départ")
Set fArrivee = Sheets("Arrivée")

Dim TabDep(), TabArr(), tablo

TabDep = fDepart.Range("A2:G" & fDepart.Range("A" & Rows.Count).End(xlUp).Row)
TabArr = fArrivee.Range("A2:G" & fArrivee.Range("A" & Rows.Count).End(xlUp).Row)
Set tablo = fArrivee.Range("A2:G" & fArrivee.Range("A" & Rows.Count).End(xlUp).Row)

Label1.Caption = "Rendez-vous de la journée"

Dim BD(), d

BD = tablo.Value
   Set d = CreateObject("scripting.dictionary")

    d.CompareMode = vbTextCompare
        For i = LBound(BD) To UBound(BD)
            If CDate(tablo(i, 1)) = Date Then
                If Not d.exists(BD(i, 4)) Then d(BD(i, 4) & BD(i, 2)) = ""
            End If
        Next


For i = 1 To UBound(TabDep)
    If TabDep(i, 1) = Date And Not d.exists(TabDep(i, 4) & TabDep(i, 2)) Then
        ListBox1.AddItem TabDep(i, 1)
        ListBox1.List(ListBox1.ListCount - 1, 1) = FormatDateTime(TabDep(i, 2), vbShortTime)
        ListBox1.List(ListBox1.ListCount - 1, 2) = TabDep(i, 3)
        ListBox1.List(ListBox1.ListCount - 1, 3) = TabDep(i, 4)
        ListBox1.List(ListBox1.ListCount - 1, 4) = TabDep(i, 5)
        ListBox1.List(ListBox1.ListCount - 1, 5) = TabDep(i, 6)
    End If
Next i

Set tablo = Nothing
Set d = Nothing


With ListBox1
    .Visible = True
    .Left = 6
    .Top = 24
    .Width = 348
    .ColumnCount = 6
    .ColumnWidths = "60;40;40;60;70;60"
    .BackColor = RGB(0, 167, 246)
    .Height = ListBox1.Font.Size * ListBox1.ListCount + 2 * ListBox1.ListCount + (ListBox1.Font.Size + 2) / 4
End With


End Sub

Merci et bonne journée.
A plus.

TooFatBoy · 18 Janvier 2024

Calvus à dit:
Celle de @TooFatBoy me convient partiellement dans le sens où il faut ajouter une colonne intermédiaire.

C'est une blague ???

Calvus · 18 Janvier 2024

TooFatBoy à dit:
C'est une blague ???

J'ai raté quelque chose ? Attends, je vérifie.

TooFatBoy · 18 Janvier 2024

Calvus à dit:
J'ai raté quelque chose ?

En #10 j'ai fait la proposition qui me semblait la plus logique et aussi la plus simple.

En #11 tu as dit que tu ne voulais pas de colonnes supplémentaires, donc en #15 j'ai fait une proposition, qui me paraît moins bien, mais sans colonne supplémentaire.

Calvus · 18 Janvier 2024

TooFatBoy à dit:
C'est une blague ???

Ah j'ai compris, il y a eu une erreur à l'enregistrement du fichier ! (ne pouvant ouvrir 2 fichiers ayant le même nom..) Pour ça que j'avais l'ancien !
Non, ça fonctionne nickel, merci ! Désolé pour l'erreur.
Eventuellement, comme pour Gégé, si on quitte la procédure, ça recharge tout au lieu des données manquantes seulement.
Mais merci, c'est nickel !

PS: et j'aurai appris une nouvelle façon de faire !

TooFatBoy · 18 Janvier 2024

Calvus à dit:
si on quitte la procédure, ça recharge tout au lieu des données manquantes seulement.

Je ne comprends pas ce que tu veux dire, mais contrairement à la proposition de #10, dans la proposition de #15 je n'ai pas modifié la structure et la logique de ton code (c'est pourquoi cette proposition me paraît moins bien) ni ta macro de remplissage. Donc si le remplissage n'est pas bon...

Calvus · 18 Janvier 2024

TooFatBoy à dit:
Je ne comprends pas ce que tu veux dire, mais contrairement à la proposition de #10, dans la proposition de #15 je n'ai pas modifié la structure et la logique de ton code (c'est pourquoi cette proposition me paraît moins bien) ni ta macro de remplissage. Donc si le remplissage n'est pas bon...

Dans ton dernier fichier, si je n'ai pas fait d'erreur cette fois-ci, le code fonctionne parfaitement si l'usf est ouvert. Cela correspond donc en effet à ma demande. Or si on le ferme et revient, il recharge toutes les données de la date du jour, sans prendre en compte les celles qui ont été inscrites en feuille "Arrivée" (et donc ne pas les charger à nouveau). C'est le seul petit point, mais facilement modifiable je pense. Je regarderai à nouveau.
Qu'en est-il de la logique de mon code d'après toi ? Qu'est ce qui cloche ?

TooFatBoy · 18 Janvier 2024

Calvus à dit:
Or si on le ferme et revient, il recharge toutes les données de la date du jour, sans prendre en compte les celles qui ont été inscrites en feuille "Arrivée" (et donc ne pas les charger à nouveau).

Sauf erreur de ma part, cela veut dire que ta macro de remplissage de la ListBox n'est pas bonne.

Calvus à dit:
Qu'en est-il de la logique de mon code d'après toi ? Qu'est ce qui cloche ?

On a chacun sa propre logique.
Perso, plutôt que de mettre le code de remplissage de la ListBox directement dans la macro d'initialisation du UserForm, je préfère mettre ledit code dans une macro spécifique de remplissage de la ListBox.
Ainsi la macro de remplissage de la ListBox peut être appelée depuis la macro d'initialisation du UserForm, ou depuis la macro de sélection (ou de double-clic) d'un item de la ListBox, ou depuis n'importe quelle autre macro.

Calvus · 18 Janvier 2024

TooFatBoy à dit:
Sauf erreur de ma part, cela veut dire que ta macro de remplissage de la ListBox n'est pas bonne.

On a chacun sa propre logique.
Perso, plutôt que de mettre le code de remplissage de la ListBox directement dans la macro d'initialisation du UserForm, je préfère mettre ledit code dans une macro spécifique de remplissage de la ListBox.
Ainsi la macro de remplissage de la ListBox peut être appelée depuis la macro d'initialisation du UserForm, ou depuis la macro de sélection (ou de double-clic) d'un item de la ListBox, ou depuis n'importe quelle autre macro.

Oui, tu as raison, et c'est ce que je fais habituellement. Là, en l'occurrence, il s'agit d'une partie de code d'un projet beaucoup plus important, et j'étais en train de tâtonner, ce qui fait que j'écris les choses par étapes des fois, avant de mettre de l'ordre. J'ai copié une partie du code dans l'exemple sans me soucier de l'ordre des exécutions. Mais je devrais tenter de suivre ton conseil et essayer de structurer les choses davantage dès le départ.

Microsoft 365 Rafraichissement Listbox

Calvus

XLDnaute Barbatruc

Pièces jointes

Calvus

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Calvus

XLDnaute Barbatruc

Discussions similaires