Besoin d'aide (formule ou macro)

[chasseur44]

Bonjour à tous
Formule ou macro ?

Voila le fichier qui est assez clair (j'espère)😕
Merci de votre aide

 

[Guest]

Re : Besoin d'aide (formule ou macro)

Bonjour Chasseur,

Voici une macro qui fonctionne. J' ai modifié un peu les données (Agent 8)car l'agent 36 n'apparait qu'une fois pour les conditions données dans le tableau. (Dates comprises entre 16/07 et 26/07).

Sub RechercheAgent()
    Dim dateRef As Date
    Dim c As Range, cDest As Range, cellDate As Range
    Dim adr1 As String
    
    With Sheets("Feuil2")
        dateRef = .Range("D2")
        Set cDest = .Range("D4")
        'Nettoyage de la colonne resultat à partir de la cellule D4
        .Range(cDest, cDest.End(xlDown)).ClearContents
    End With
    
    With Sheets("Feuil1").Range("C:C")
        Set c = .Find(what:=Sheets("Feuil2").Range("C4"), LookIn:=xlValues)
        If Not c Is Nothing Then
            adr1 = c.Address
            Do
                Set cellDate = c.Offset(, -2)
                If cellDate >= dateRef And cellDate <= dateRef + 10 Then
                    cDest = cellDate
                    Set cDest = cDest.Offset(1)
                End If
                                
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> adr1
        End If
    End With
End Sub

A bientôt

 

[SergiO]

Re : Besoin d'aide (formule ou macro)

Bonjour chasseur44,

Ci-joint une solution par macro.

@+

 

[pierrejean]

Re : Besoin d'aide (formule ou macro)

bonjour a tous

Ma version

Mais je n'ai pas compris comme hasco au sujet des + 10 jours
dans tous les cas il y a ambiguité sur ce point !