Tableau de relance selon la date du jour

Bonjour,

j'aimerais réaliser un tableau des clients impayés, ce tableau change quotidiennement selon la date du jour.

je souhaiterais macro extraire les clients qui à le délai (aujourd’hui) ,sachant que les délais son diffèrent .

Vous trouverez ci-joint un fichier test.

Merci d'avance.

Cordialement.

bonjour

j'ai fait Données/Filtrer

maintenant,tu cliques sur le bouton gris en E1 et tu fais un filtre avec la date que tu veux voir (le plus souvent tu taperas la date du jour).

pas de VBA, pas de formule. Rien et pourtant ça marche ! Vive Excel !

Bonjour,

Un exemple avec un filtre avancé.

Cdlt.

Option Explicit
Option Private Module

Public Sub Display_Data()
    Cells(9, 1).CurrentRegion.Offset(1).ClearContents
    [Base_de_données].AdvancedFilter _
            Action:=xlFilterCopy, _
            CriteriaRange:=[Critère], _
            CopyToRange:=Cells(9, 1).CurrentRegion, _
            Unique:=False
End Sub

Public Sub Ciear_Data()
    Cells(9, 1).CurrentRegion.Offset(1).ClearContents
End Sub

Bonjour ,

premièrement je vous remercie tous les amis de la forme.

salutation spéciale à Jmd et Jean-Eric Je vous remercie de l'attention que vous porterez à ma demande

La vérité je n'ai pas pu adapter le fichier exemple à mon application (faut de ma part), pour cela j'ai envoyé le fichier typique cette fois.

je vous remercie pour votre soutien et votre attention.

cordialement .

30prog-zine-v2.xlsm (236.15 Ko)

bonjour;

après plusieurs recherches et tentatives, j'ai trouvé le code qui permettra de copier le tableau selon la date du jour, mais malheureusement le copie il formule par la valeur.

je souhaite de mes amis du forum de m'aider de corriger ce code ou d'améliorer ou de changer..

merci de votre aide.

Mon fichier joint:

Cordialement zinelamri

Sub Display_Data()

 Dim derln As Long, ln As Long, lgn As Long, i As Long
    With Sheets("BD")

       ' Application.ScreenUpdating = False
        Range("A19:F40").Clear
        derln = .Range("F" & Rows.Count).End(xlUp).Row
        .Rows("3:" & derln).EntireRow.Hidden = False

        For ln = 6 To derln
            If .Range("I" & ln) = Range("A3") Then '.Range("G" & ln) = Range("E8")

                lgn = Range("B40").End(xlUp)(2).Row

                .Range("C" & ln & ":C" & ln).Copy Range("B" & lgn)
                .Range("H" & ln & ":H" & ln).Copy Range("C" & lgn)
                .Range("G" & ln & ":G" & ln).Copy Range("D" & lgn)
                .Range("I" & ln & ":I" & ln).Copy Range("f" & lgn)
               ' .Range("j" & ln & ":I" & ln).Copy Range("F" & lgn)
            End If
        Next ln

  End With

End Sub
20prog-zine-v2.xlsm (245.94 Ko)

Bonjour,

Une nouvelle proposition.

Cdlt.

52prog-zine-v2.xlsm (39.29 Ko)

Bonjour,

je vous prie de bien vouloir m'excuser pour cette réponse tardive

j'ai passé plusieurs heures de tenter et d'essai d'adapter le code Vba pas moyen

alors Rendu au fait accompli.

je pense le code de monsieur Jean-Eric est copyright .

problème listobjects

Dans le fichier joint apparaît le problème.

Je désirais vous remercier très sincèrement pour votre aide et votre patience.

cordialement.

listeobjects

Bonjour,

Les données doivent être mises sous forme de tableau (Ruban / Accueil / Mettre sous forme de tableau).

Si tu as plusieurs tableaux dans la feuille, il faut nommer explicitement le tableau (ne pas travailler avec son index).

Cdlt.

Rechercher des sujets similaires à "tableau relance date jour"