Renseigner une listbox selon la date du jour

Bonjour,

J'ai mis en place un suivi de gestion du linge dans une blanchisserie.

Un de mes collègues me renvoie qu'il passe de l'userform à l'onglet pour visualiser la progression dans sa journée.

J'ai pensé ajouter une listbox afin d'incrémenter au fur et à mesure de la journée la liste des machines qu'il a géré.

J'ai une BDD dans laquelle il y a la date du jour qui se renseigne via l'userform. J'ai mis en place une formule pour sommer le poids par jour avec la fonction décaler. Bref, je sais faire à peut prêt

Je ne sais pas faire, encore, avec une listbox multi colonnes est ce que quelqu'un pourrait m'y aider ?

Merci d'avance

Leakim

Bonsoir,

ci-jointe proposition

Salut thev,

Merci de ta proposition qui fonctionne super bien.

J'ai ajouter un compteur des colonne 6 et 7 pour avoir la somme.

Je me disais est ce qu'il serait possible d'ajouter une fonction supprimer?

Si je clique sur la listbox et que je choisi une ligne à supprimer celle-ci serait supprimer de la BDD après une msgbox de validation.

Est ce que c'est dans tes cordes? ou quelqu'un d'autre pour le soutien

Merci à nouveau à Thev

Merci d'avance pour la suite et fin.

Leakim

Bonsoir,

ci-jointe proposition

Salut Thev

Merci pour ta proposition c'est super.

Dans ton code je ne parviens pas à comprendre comment tu arrives à effacer sur la feuille. Car je ne vois où tu y fais référence?

Private Sub Cmbsupprimer_Click()
    Dim i As Integer

    With Me.ListBox1
        For i = 0 To .ListCount
            If .Selected(i) Then
                réponse = MsgBox("confimez-vous la suppression de la ligne sélectionnée " & i + 1, vbYesNo)
                If vbYes Then lignes_listbox.Rows(i + 1).Delete Shift:=xlUp
            End If
        Next i
    End With

    'affichage listbox
    Call afficher_listbox

End Sub

Ci-dessus je comprends que tu géres le contenu de listbox mais la feuille PoidsLavageJOUR?

Pour autant les infos sont bien effacées

Elles sont effacées sauf la colonne A d'ailleurs?

Voilà encore beaucoup de

Merci de ton soutien

Leakim

Bonjour,

Les lignes affichées dans la ListBox, issues de la feuille PoidsLavageJour sont référencées dans une variable objet "lignes_listbox" définie au niveau du module, à partir de la procédure afficher_listbox. Cette variable objet n'est qu'un lien.

Private Sub afficher_listbox()
    Dim i1 As Integer, i2 As Integer

    With Sheets("PoidsLavageJOUR")
    '     liste progression journée
        On Error Resume Next
        i1 = Application.Match(CStr(Date), .UsedRange.Columns("A").Value, 0)
        If i1 > 0 Then
            i2 = .Cells(.Rows.Count, "D").End(xlUp).Row
            Set lignes_listbox = Range(.Cells(i1, "B"), .Cells(i2, "H"))
            ListBox1.List = lignes_listbox.Value
        End If
    End With

Leur suppression est donc effectuée à partir de cette variable objet, l'indice de leur ligne étant donc le même que celui de la ListBox à 1 près car dans une ListBox, la première ligne est la ligne 0.

NB : D'ailleurs, je m'aperçois d'un oubli dans la définition de cette variable. Il y manque les points pour se rattacher à la feuille.

ci-jointe correction

Salut c'est parfait !

Merci pour ton accompagnement.

Bonne suite,

Leakim