XL pour MAC Extraction de données entre 2 dates

djidji59430 à dit:

Bonjour à tous,

Une proposition :

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

A essayer cette formule matricielle en "G9"

VB:

=SIERREUR(INDEX(B$5:B$30;PETITE.VALEUR(SI(($D$5:$D$30>=$G$6)*($D$5:$D$30<=$H$6);LIGNE($D$5:$D$30)-4);LIGNES($1:1)));"")

copier vers la droite et le bas

JHA

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour à tous

@Nono1835

Je te propose ce fichier

Merci de ton retour

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Un début de piste avec Power query

JHA

Cliquez pour agrandir...

job75 à dit:

Une solution VBA très rapide est d'utiliser un tableau VBA, la macro dans le code de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim deb, fin, tablo, ub%, dat, i&, n&, j%
deb = [G6]: fin = [H6]
tablo = [Tableau1] 'matrice, plus rapide
ub = UBound(tablo, 2)
For i = 1 To UBound(tablo)
    dat = tablo(i, 3)
    If dat >= deb And dat <= fin Then
        n = n + 1
        For j = 1 To ub
            tablo(n, j) = tablo(i, j)
        Next j
    End If
Next i
'---restitution---
Application.EnableEvents = False
With [Tableau2]
    If n Then .Resize(n) = tablo
    If n < .Rows.Count Then .Rows(n + 1).Resize(.Rows.Count - n).Delete xlUp
End With
Application.EnableEvents = True
End Sub

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

Testée avec Tableau1 recopié sur 26 000 lignes elle s'exécute chez moi en 0,09 seconde.

Notez que Tableau2 peut être dans une autre feuille, le code ne change pas.

Bonne nuit.

Cliquez pour agrandir...

Nono1835 à dit:

Bonjour à tous
je souhaite effectuer une extraction de données d'après un tableau, cette extraction je souhaite la faire avec un critère de date de début et de fin de periode.
j'ai essayé en suivant des tuto mais à chaque fois il s'agit de la fonction filtre que je n'ai pas dans ma version d'excel
merci de votre aide
cordialement

Cliquez pour agrandir...