Discussion :

[samchich]

Bonsoir
cette macro ne fonctionne pas totalement elle ne supprime pas les les lignes dont la date est périmé
merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_Open()
    Dim xl As Excel.Application
    Dim ligne As Range, lignes_à_supprimer As Range
    Dim date_i As Date
 
    Set xl = Application
    With Sheets("MATRICE")
        .Unprotect
        For Each ligne In .UsedRange.Rows
            If Join(xl.Transpose(xl.Transpose(ligne.Value)), "") = Empty _
            Or (IsDate(ligne.Columns("E")) And ligne.Columns("E") < Date) Then
                If lignes_à_supprimer Is Nothing Then Set lignes_à_supprimer = ligne.EntireRow _
                Else Set lignes_à_supprimer = Union(lignes_à_supprimer, ligne.EntireRow)
            End If
        Next ligne
        If Not lignes_à_supprimer Is Nothing Then lignes_à_supprimer.Delete
        .Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
    End With
End Sub

[unparia]

Bonjour
Il n'y a aucune raison dans ton code pour qu'il ne fonctionne pas.
La raison est donc probablement dans tes données et non dans ton code.

Je suis par ailleurs assez surpris de ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 If Join(xl.Transpose(xl.Transpose(ligne.Value)), "") = Empty _
            Or (IsDate(ligne.Columns("E")) And ligne.Columns("E") < Date) Then

qui recense toutes les lignes entièrement vides ou dont ce qui s'y trouve en colonne E est une date valide et que cette date est < que celle d'aujourd'hui
Ne te parait-il pas qu'il suffit dans ce cas du seul parcours de la colonne E pour y recenser les valeurs "" ou etc ... ?
Rassure-moi : tu n'as pas utilisé ta colonne E pour y mettre également d'autres données que des dates ?

[samchich]

Bonjour merci pour ton interet
je te joint mon fichier dans le quel j'utilise uniquement un userform pour alimente ma feuil
il y a que des dates dans la colonne datePURGE .xlsm

[unparia]

Tu me vois désolé, mais je n'ouvre jamais un classeur tiers.
Je pars par ailleurs du principe selon lequel chacun est capable d'exposer clairement et techniquement ce qu'il a conçu (le contexte) et la difficulté rencontrée.
S'il n'est pas en mesure de le faire, cela veut alors dire pour moi que ce qu'il conçoit est aussi infirme que ce qu'il expose.

[samchich]

un bon dessin vaux mieux qu' un long discours
mon niveau ne me permet pas de me dépatouiller par moi même et par voie de conséquence je sollicite l' entraide ici
cordialement

[unparia]

un bon dessin vaux mieux qu' un long discours
mon niveau ne me permet pas de me dépatouiller par moi même et par voie de conséquence je sollicite l' entraide ici

Et où est le "dessin" (avec quelles explications) ????
Désolé (vraiment désolé), mais si par "dessin" tu entends "classeur", --->> pas question pour moi de te suivre !
D'autres, peut-être ?
Adieu.

[Marc-L]

Bonjour,

comme indiqué dans le tutoriel sur l'environnement du VBA, une fois les lignes à supprimer repérées,
suivre la progression du code en mode pas à pas via la touche F8
tout en contrôlant le contenu de la fenêtre des Variables locales, cela doit aider à trouver la bourde …

Evidemment au préalable les dates auront été vérifiées comme telles, c'est à dire en nombre et pas en texte.
Et c'est simple à vérifier en basculant l'affichage en mode formules, les vraies dates passent en nombre,
et ce que l'on croit être des dates mais qui n'en sont pas restent affichées en - fausses - dates …

(classeur avec du code : non merci !)

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …