Affecter des repas en VBA

Bonjour à tous,

J'ai besoin de vos lumières !

Dans ma pièce jointe EXCEL : 3 feuilles

• Une liste de personne avec leur Service et le Plage Horaire
• Un tableau de repas pour le Service 1
• Un tableau de repas pour le Service 2

J'ai besoin d'un p'tit code qui va alimenter la colonne "D" (HEURE DE REPAS) dans la liste des personnes en fonction des 2 tableaux.

Si je ne suis pas clair, n'hésitez pas et merci d'avance

Bonjour,

Les plages rouges sont fixes ??

Autrement dit, dans la plage A8, on ne mange jamais ?

Crdmt

bonsoir,

une proposition de solution

Sub aargh()
    Set wso = Sheets("LISTE")
    wso.Range("d2:D100").ClearContents
    For Each wsn In Array("R_SE1", "R_SE2")
        Set ws = Sheets(wsn)
        i = 5
        While ws.Cells(i, 1) <> ""
            For j = 3 To 16
                q = ws.Cells(i, j)
                If q <> "" Then
                    Z = 2
                    For x = 1 To q
                        Do Until Replace(wso.Cells(Z, 1), " ", "") = ws.Cells(1, 1) And wso.Cells(Z, 1) <> "" And wso.Cells(Z, 3) = ws.Cells(i, 1) And wso.Cells(Z, 4) = ""

                            Z = Z + 1
                        Loop
                        If wso.Cells(Z, 1) <> "" Then wso.Cells(Z, 4) = ws.Cells(3, j): Z = Z + 1
                    Next x
                End If
            Next j
            i = i + 1
        Wend
    Next
End Sub

h2so4

je ne dirais qu'un mot ! Tu es magnifique

c'est parfait MERCI Beaucoup