XL 2019 Trouver date et heure plus petites et plus grandes dans Excel

treneuroni

XLDnaute Nouveau
Bonsoir et merci de votre aide :)

Dans un fichier, j'ai deux colonnes. Dans la première la date d'envoi d'un mail; dans la deuxième l'heure d'envoi d'un mail.

Je voudrais récupérer pour chaque date l'heure du premier et dernier envoi mais je ne sais pas du tout comment m'y prendre (n'y si j'ai été assez clair, d'ailleurs).

Je joins le fichier avec les informations en espérant que ça aide à rendre ma demande plus compréhensible.

Merci de votre attention et de votre accueil :)
 

Pièces jointes

  • ExcelDownloads.xlsx
    30.4 KB · Affichages: 5

job75

XLDnaute Barbatruc
Bonjour treneuroni, chris, le forum,

Il suffit de filtrer le tableau avec le filtre avancé, voyez le fichier joint et les macros des 2 boutons :
VB:
Sub Filtrer_1er_dernier()
With [A1].CurrentRegion
    .Sort .Columns(2), xlAscending, Header:=True 'tri si nécessaire
    [F2] = "=OR(ROW(C2)=MATCH(C2,C:C,0),ROW(C2)=MATCH(C2+0.999999,C:C))" 'critère
    .AdvancedFilter xlFilterInPlace, [F1:F2] 'filtre avancé
    [F2] = ""
End With
End Sub

Sub Afficher_tout()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub
A+
 

Pièces jointes

  • Filtrer 1er et dernier(1).xlsm
    39 KB · Affichages: 5

treneuroni

XLDnaute Nouveau
Bonjour treneuroni, chris, le forum,

Il suffit de filtrer le tableau avec le filtre avancé, voyez le fichier joint et les macros des 2 boutons :
VB:
Sub Filtrer_1er_dernier()
With [A1].CurrentRegion
    .Sort .Columns(2), xlAscending, Header:=True 'tri si nécessaire
    [F2] = "=OR(ROW(C2)=MATCH(C2,C:C,0),ROW(C2)=MATCH(C2+0.999999,C:C))" 'critère
    .AdvancedFilter xlFilterInPlace, [F1:F2] 'filtre avancé
    [F2] = ""
End With
End Sub

Sub Afficher_tout()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub
A+
Merci beaucoup ! Je vais essayer cet après-midi ! :)
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 730
Membres
110 553
dernier inscrit
loic55