Maj multi par listbox muli

Bonsoir à tous

J’ai besoin de votre aide pour une mise à jour d’un tableau à travers une listbox multi

J'espère avoir été bien claire dans mon explication sur le fichier modèle ci-attaché

D'avance je vous remercie pour vos aides.

Bonsoir,

Private Sub Validation_Click()
    Dim i%, sui$, S As Worksheet
    If ComboBox1.ListIndex > -1 Then
        sui = ComboBox1.Value
        Set S = Worksheets("RECLAM")
        With ListBox1
            For i = 0 To .ListCount - 1
                If .Selected(i) Then
                    S.Cells(i + 4, 5) = sui
                    S.Cells(i + 4, 6) = Date
                End If
            Next i
        End With
    End If
End Sub

Cordialement.

Bonjour MFerrand, Le Forum

c'est nickel ! ça fonctionne comme je voulais

Un grand merci MFerrand pour ton aide

Cordialement