Lien entre deux feuilles selon conditions

Question

Je ne suis pas assez doué en excel pour répondre a mon besoin je fais appel au spécialiste. je vous joins mon fichier Je souhaiterais faire un lien entre deux feuilles. La première feuille s’appelle (semaine 15) et la seconde (permanence) Je cherche à ce que, QUAND dans ma feuille (semaine 15), j’ai une personne exemple Bernard à 7h30 cellule B26 ou cellule B28 PERMANENCE que son prénom s’affiche sur la feuille (permanence) en cellule B5 et D5 Et idem pour que quand dans ma feuille (semaine 15) florent est de permanence a 20h cellule B37 OU CELLULE B38 PERMANENCE que son prénom s’affiche sur la feuille (permanence) en cellule C5 et E5. Et cela pour tous les jours de la semaine et des semaines de l’année En résumé dans la feuille permanence je dois retrouver les prénoms des personnes de permanence de la feuille semaine. Cela est -il possible...

Stephdu13 · Answer

Au vue de la structure de tes tableaux il te faut passer par du VBA.

Exemple :

Sub Permanence()
    Dim NomMatin As String, NomAP As String

    For i = 28 To 56 Step 7
        If Sheets("Semaine 15").Range("B" & i) = "PERMANENCE" Then NomMatin = Sheets("Semaine 15").Range("A" & i)
        If Sheets("Semaine 15").Range("B" & i + 3) = "PERMANENCE" Then NomAP = Sheets("Semaine 15").Range("A" & i)
    Next i

    Valeur_Cherchee = Sheets("Semaine 15").Range("C7")

    Set PlageDeRecherche = Sheets("Permanence").Columns(1)

    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

    If Trouve Is Nothing Then
    Else
        Sheets("Permanence").Range(Trouve.Address).Offset(0, 2) = NomMatin
        Sheets("Permanence").Range(Trouve.Address).Offset(0, 3) = NomAP

    End If

    'vidage des variables
    Set PlageDeRecherche = Nothing
    Set Trouve = Nothing

End Sub

J'ai fait simple pour te mettre sur la voix, il te faudra aller plus loin en fonction de tes Feuilles

Stephdu13 · Answer

Je t'ai mis le fichier. Il faut cliquer sur le Bouton TEST...