Repérer les réunions de plus d'un an

Bonjour à tous

j'ai placé un fichier joint pour mieux comprendre.

Dans une feuille excel, j'ai plusieurs projets (A, B, C et D) avec le type de réunion, la date de réunion, le lieu et le nombre de participants.

J'aimerais avoir une technique pour que excel place (éventuellement dans une autre feuille excel) les projets qui n'ont pas été vu depuis plus d'un an.

Pourriez-vous m'aider s'il vous plaît ?

Merci d'avance !!!

Yo.

Bonjour,

Plusieurs façons.

Le Plus simple (à mon avis)

Un colonne supplémentaire

Un filtre sur cette colonne

Un copier/coller du résultat.

@+

bonjour

un essai sans vba avec 2 propositions ; sinon une MFC peut faire l'affaire

cordialement

Bonsoir,

je suis de passage. Je vous remercie pour vos réponses. Je regarde tout ça en détail demain.

Petite précision : sur mon modèle, le projet A a été vu lors de plusieurs années. S'il a été vu en 2013 et en 2015, ce qui m'intéresse est la date la plus récente. Est-ce qu'il n'y aurait pas un moyen de prendre en compte uniquement les dates les plus récentes pour chaque projet ? Pour toutes les lignes qui portent le même nom de projet (A, B, C....), on ne garde que la date la plus récente.

Bonsoir,

Un peu de VBA alors ?

Sub ExtracProjetsARevoir()
    Dim d As Object, Ext(), k, dd&, n%, i%
    Set d = CreateObject("Scripting.Dictionary")
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            k = .Cells(i, 1): dd = IIf(.Cells(i, 5) > 0, .Cells(i, 3).Value2, 0)
            If d.exists(k) Then
                If dd > CLng(d(k)) Then d(k) = dd
            Else
                d(k) = dd
            End If
        Next i
    End With
    dd = CLng(DateAdd("yyyy", -1, Date))
    For Each k In d.keys
        If CLng(d(k)) > dd Then d.Remove (k)
    Next k
    If d.Count > 0 Then
        ReDim Ext(d.Count, 1): n = 0
    Else
        MsgBox "Pas de projets non vus depuis un an ou plus à ce jour.", vbInformation, _
         "Examen Projets"
        Exit Sub
    End If
    For Each k In d.keys
        n = n + 1: Ext(n, 0) = k: Ext(n, 1) = CLng(d(k))
    Next k
    Ext(0, 0) = "Projets à revoir": Ext(0, 1) = "Dernière date d'examen"
    Application.ScreenUpdating = False
    With Worksheets.Add(after:=ActiveSheet)
        With .Range("A1").Resize(UBound(Ext, 1) + 1, 2)
            .Value = Ext
            .Columns.ColumnWidth = 15
            .WrapText = True
            .HorizontalAlignment = xlCenter
            .Rows(1).Font.Bold = True
            .Columns(2).NumberFormat = "dd/mm/yyyy"
            With .Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        End With
        .Activate
    End With
End Sub

Cordialement.

Merci à tous pour vos réponses.

La réponse de MFerrand correspond exactement à ce que je recherchais. Merci beaucoup !

Rebonjour,

dans la continuité de ce que j'avais formulé dans mon premier message, j'ai une demande plus précise. Avec la méthode de MFerrand, ce serait parfait

A partir du fichier test en fichier joint, j'aimerais obtenir un tableau avec les colonnes suivantes :

• nom des projets à revoir (acronyme)
• la date de réunion la plus récente pour le projet
• la dernière réunion à laquelle il y avait au moins 1 participant
• sigle EOTP du projet
• THÉMATIQUE du projet
• libellé TERRITOIRE
• État du projet

Bien entendu, dans la continuité de mon premier message, l'idée est d'obtenir un projet sur une ligne, pour avoir une vision synthétique.

Merci beaucoup !