XL 2021 Date et heure

[Yacine]

Bonjour le Forum, je voudrais extraire dans mon tableau ci-joint toutes les noms dont la date et l'heure sont avant 01/01/2024 à 23:00

Merci par avance

 

[chris]

Bonjour

 

[JHA]

Bonjour à tous,

A essayer


JHA

 

[Yacine]

Bonjour Chris. Merci beaucoup mais je n'ai pas trop saisi la méthode.

 

[Yacine]

Bonjour à tous,

A essayer


JHA

Merci

 

[job75]

Bonjour Yacine, chris, JHA,

Mettez cette formule en C3 :

=--SUBSTITUE(B3;"h";":")<C$2

et filtrez le tableau sur la colonne C => VRAI.

A+

 

[Yacine]

Bonjour, Méthode plus et elle me va. Merci

 

[chris]

Bonjour Chris. Merci beaucoup mais je n'ai pas trop saisi la méthode.

La source est mise sous forme de tableau structuré et une unique formule extrait toutes les lignes concernées puisque tu demandais d'extraire et non de filtrer...

 

[Yacine]

La source est mise sous forme de tableau structuré et une unique formule extrait toutes les lignes concernées puisque tu demandais d'extraire et non de filtrer...

Bonjour Chris, ce que tu as envoyé c'est exactement ce je voulais, sauf que j'aimerai connaitre comment tu as fait. Merci encore

 

[job75]

Bonjour Yacine, le fil,

Un p'tit coup de VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible, tablo, resu(), i&, x As Variant, n&
cible = [C2]
If FilterMode Then ShowAllData 'si la feuille est filtrée
tablo = Range("A3:B" & Cells(Rows.Count, 1).End(xlUp).Row) 'matrice, plus rapide
ReDim resu(1 To UBound(tablo), 1 To 1)
For i = 1 To UBound(tablo)
    x = tablo(i, 2)
    x = Replace(x, "h", ":")
    If IsDate(x) Then x = CDate(x)
    If x < cible Then
        n = n + 1
        resu(n, 1) = tablo(i, 1)
    End If
Next
'---restitution---
Application.EnableEvents = False
[C3].Resize(UBound(resu)) = resu
Application.EnableEvents = True
End Sub

La macro se déclenche quand on modifie ou valide une cellule quelconque.

A+

 

[Yacine]

Bonjour Yacine, le fil,

Un p'tit coup de VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible, tablo, resu(), i&, x As Variant, n&
cible = [C2]
tablo = Range("A3:B" & Cells(Rows.Count, 1).End(xlUp).Row) 'matrice, plus rapide
ReDim resu(1 To UBound(tablo), 1 To 1)
For i = 1 To UBound(tablo)
    x = tablo(i, 2)
    x = Replace(x, "h", ":")
    If IsDate(x) Then x = CDate(x)
    If x < cible Then
        n = n + 1
        resu(n, 1) = tablo(i, 1)
    End If
Next
'---restitution---
Application.EnableEvents = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
[C3].Resize(UBound(resu)) = resu
Application.EnableEvents = True
End Sub

La macro se déclenche quand on modifie ou valide une cellule quelconque.

A+

Cooooool merci beaucoup

 

[Cousinhub]

Bonjour,
La même méthode que Chris a utilisée

 

[Yacine]

Bonjour,
La même méthode que Chris a utilisée

Toooop merci+++ c'est ce que je recharchais