Planning et recherche

[zhytoon]

Bonjour,

Je n'arrive pas à faire une recherche par rapport à une date précise, sur plusieurs onglets.....
Ce n'est pas faute d'avoir essayé différentes façons.
Je vous joint le fichier, cela sera plus clair !!
Quelques explications dans l'onglet Journalier.

Si vous pouviez m'aider...... je serais 🙂

Merci

 

[Dugenou]

Re : Planning et recherche

Bonjour Zhytoon,

Voici un essai avec une fonction DECALER et une fonction Equiv pour afficher les agents et postes.
Pour afficher l'horaire à partir du poste : recherchev

Dis nous si cela te convient, si oui : merci d'ajouter [résolu] dans le titre de ton post

Cordialement

 

[Hippolite]

Re : Planning et recherche

Bonjour Zhytoon,
Bonjour Dugenou,

Variante avec macro :

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Dlgn As Long, Dcol As Long, i As Long, j As Long, k As Long, d As Date, MC As String
  If Not Intersect(Target, Range("C2")) Is Nothing Then
    Dlgn = Sheets("Plann").Range("A65536").End(xlUp).Row
    Dcol = Sheets("Plann").Range("IV2").End(xlToLeft).Column
    Sheets("Journalier").Range("A8:D" & Dlgn).ClearContents
    d = Sheets("Journalier").Range("C2").Value
    For j = 3 To Dcol
        If Sheets("Plann").Cells(2, j).Value = d Then
            Set cD = Sheets("Plann").Cells(2, j)
            Exit For
        End If
    Next j
    For i = 3 To Dlgn
        MC = Sheets("Plann").Cells(i, j).Value
        If MC <> "" Then
            Sheets("Journalier").Range("A" & 8 + k).Value = Sheets("Plann").Range("A" & i).Value
            Sheets("Journalier").Range("B" & 8 + k).Value = MC
            Sheets("Journalier").Range("C" & 8 + k).Value = Sheets("CODE").Range("A:A").Find(MC).Offset(0, 4).Value
            Sheets("Journalier").Range("D" & 8 + k).Value = Sheets("CODE").Range("A:A").Find(MC).Offset(0, 5).Value
            k = k + 1
        End If
    Next i
  End If
End Sub

A+