Remplir un planning

Bonjour,

Je bosse sur un fichier pour gérer des rdv pris pour des travaux.

Je rentre dans l'onglet "Infos locat + planification" les dates d'interventions pour les différentes entreprise (chauffage, élec...).

J'ai aussi un onglet "planning" où l'on trouve un calendrier mensuel.

Je souhaiterai faire en sorte que les dates rentrées dans l'onglet "Infos locat + planification" apparaissent dans le planning sous forme "Chauffage - 5" (5 étant le numéro du logement).

Si vous avez une idée, je suis preneuse !!

Merci,

PS. Je vous glisse le fichier

Ta structure de données est un peu "particulière" ... donc je suis passé en macro

Private Sub Worksheet_Activate()
Dim trouve As Range

For i = 4 To 168 Step 2
    If (i - 2) Mod 14 <> 0 Then
        Rows(i).ClearContents
    End If
Next

With Sheets("Infos locat + planification")
    For Each cel In .Range("M3").CurrentRegion.Offset(1, 0)
        If IsDate(cel.Value) Then
            Set trouve = Range("B3:H168").Find(What:=cel.Value, LookIn:=xlValues)
            If Not trouve Is Nothing Then
                trouve.Offset(1, 0).Value = trouve.Offset(1, 0).Value & .Cells(3, cel.Column).Value & " - " & .Cells(cel.Row, 1) & vbCrLf
            End If
        End If
    Next
End With

End Sub

Légère modif pour retrouver le format date en JJ

Merci c'est exactement ce qu'il me fallait !

Tu es un magicien !!

Bonne continuation.

Merci pour ce retour