Msgbox imprimable

Bonjour à tous,

J ai une msgbox qui remonte des informations de dates inférieures à la date du jour

J ai volontairement créé une longue liste pour cet exemple

La msgbox étant limité en taille, je souhaiterais plutôt la remplacer

soit par userform dynamique ou

soit, copier les éléments directement dans une feuille de calcul du classeur

En pj le fichier test

merci d'avance pour votre aide

Bien cordialement

bonjour,

une proposition, l'onglet "feuil2" qui recevra les résultat doit exister

Sub Test()
    Set wsd = Sheets("feuil2")
    wsd.Cells.ClearContents
    With Feuil7.Cells(1).CurrentRegion
        k = 1
        For R& = 1 To .Rows.Count

            If .Cells(R, 1).Value < Date Then
                wsd.Cells(k, 1) = .Cells(R, 1).Text & vbTab & vbTab & .Cells(R, 2).Text
                k = k + 1
            End If
        Next
    End With

    If k > 1 Then
        wsd.Select
        MsgBox "Date dépassée !", vbExclamation, "EN DATE DEPASSEE " & AG
    Else
        MsgBox " Pas de date dépassée ", vbInformation

    End If

End Sub

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Merci pour vos propositions et je les ai testé :

gmb, j ai repris le fichier que tu as modifié mais rien ne s'affiche dans la feuil2 ...Pas de résultats

H2so4 , le code fonctionne très bien

Par contre le résultat s'affiche dans la colonne 1 avec les 2 infos attachées ...

Il y a t il la possibilité de reporter ces infos sur 2 colonnes distinctes ?

en tous cas merci encore pour votre aide

cordialement

H2SO4

C'est bon, j ai trouvé comment récupérer les résultats sur 2 colonnes ...

Merci beaucoup

Pour Gmb j ai re testé mais cela ne fonctionne pas

Bonjour à tous

Nouvelle version

Bye !

Merci Gmb pour la correction et le code fonctionne parfaitement

Merci encore pour votre aide et votre patience