Cherche trou

Salut!!

Je dispose d'une Liste de DATE dans la colonne A.qui et en relation avec une Liste de NOMS dans la colonne B.

voila ce que j aimerais avoir (et donc les colonnes E et G sont remplies de formules AVEC NOM PAS avec les dates)

Option Explicit

Dim c, lgn

Sub LISTER()

    Range("A1").CurrentRegion.Offset(0, 1).ClearContents
    Range("E1") = "Value1"
    Range("G1") = " Value2 "
    Range("I1") = "Value3 "

    For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If c.Value <= Date Then
            lgn = Range("E" & Rows.Count).End(xlUp)(2).Row
            Range("E" & lgn) = c
        ElseIf c.Value >= Date And c.Value <= Date + 15 Then
            lgn = Range("G" & Rows.Count).End(xlUp)(2).Row
            Range("G" & lgn) = c
           ElseIf c.Value >= Date + 15 Then
          lgn = Range("I" & Rows.Count).End(xlUp)(2).Row
            Range("I" & lgn) = c
        End If
   Next c
End Sub

merci bien de votre aide

bonjour

mauvaise explication je le sais!!!!

dans la colonne A (range(A)) j’ai les Dates et dans la collone B les NOMS

en affiche dans la collone E les NOMS qui en relation avec les DATES<=aujourdhui() :c à d au lieu d'afficher les date afficher les NOMs

mm chose pour la collone G et la collone I.

merci de votre aide

Bonjour,

Sub LISTER()
Dim C
    Range(Range("E1"), Range("E1").End(xlDown)).ClearContents
    Range(Range("G1"), Range("G1").End(xlDown)).ClearContents
    Range(Range("I1"), Range("I1").End(xlDown)).ClearContents
    Range("E1") = "Value1"
    Range("G1") = " Value2 "
    Range("I1") = "Value3 "
    For Each C In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If C.Value <= Date Then
            Range("E" & Rows.Count).End(xlUp).Offset(1) = C.Offset(0, 1)
        ElseIf C.Value >= Date And C.Value <= Date + 15 Then
            Range("G" & Rows.Count).End(xlUp).Offset(1) = C.Offset(0, 1)
           ElseIf C.Value >= Date + 15 Then
            Range("I" & Rows.Count).End(xlUp).Offset(1) = C.Offset(0, 1)
        End If
   Next C
End Sub

A+

bonjour

c'est parfait

merci de votre aide