Variables tablo

Bonjour Forum

Je sollicite votre aide pour résoudre mon problème

A partir d'un tableau variable, je souhaiterais remplir un autre tableau variable suivant critères

    Dim Base As Variant, TabloDates As Variant , i
    Base = Sheets("Archives").Range("A2:U" & Sheets("Archives").Range("A" & Rows.Count).End(xlUp).Row)

    For i = 1 To UBound(Base)
       If CDate(base(i, 1)) = Date Then
'incrémenter le tableau tabloDates par les données du tableau base
       TabloDates = Base     ' et la , je n'arrive pas à incrémenter le tableau TabloDates
       End If
    Next i

Merci de votre aide et de partager votre savoir

Bonjour

Idée pensée à haute "voix"

Tu veux copier toutes les colonnes ou 1 seule dans le tableau TabloDates

1 seule : 1 simple Redim Preserve avant de copier

Toutes (ou plusieurs)

Avec Application.countIf(zone base,Date) je trouverai la dimension du tableau et ensuite c'est un jeu d'enfant avec 2 index (1 qui parcourt Base, et l'autre qui donne la position dans TabloDates)

Bonjour Banzai64

Merci de t'intéresser à mon sujet

Je voudrais refaire un tablo avec toutes les colonnes du premier tablo et seulement avec les lignes qui ont le critère

merci de ton aide

Bonjour

Toi un ancien : Sans fichier

A tester

Bonsoir Banzai64

Je n'ai pas mis de fichier car je pensais qu'il existait une ligne de code simple pour faire cela

en réalité la macro est plus compliquée mais il faut bien commencer par le début

merci beaucoup Banzai64

c'est parfait comme d'habitude

Bonsoir

Peut-être existe t'il une autre méthode pour le faire que je ne connais pas

Si une réponse autre arrive cela serait enrichissant