Suppression de ligne en fonction d'une date

Question

Bonjour, 

Bonjour à tous et à toutes.

J'ai besoin de votre aide pour une macro.

Il s'agit de pouvoir supprimer des lignes d'une feuille excel mais seulement si une cellule de cette ligne contiens une date qui est antérieure à une date de référence.

Donc par exemple, supprimer toutes les lignes qui contiennent des dates antérieur au 25/12/2002

Merci beaucoup pour votre aide 

Configuration: Windows XP / Safari 535.1

Heremion · Answer

Bonjour Fortbelin,

"Si une cellule de la ligne...", tu entends par là, une cellule, n'importe laquelle, ou une cellule bien précise?

fortbelin · Answer

Bonjour, 

il s'agit plutôt d'une cellule bien précise car j'ai une colonne date dans ma feuille excel.

Donc en fait, si ma colonne date est en G par exemple et bien, la macro supprime toute les lignes qui ont dans la colonne G une date antérieur à une date de référence.

Merci beaucoup

Heremion · Answer

Dans ce cas :

Private Sub CommandButton1_Click()
Dim currentd As Date
Dim refdate As Date
Dim i, imax

    refdate = Range("A1").Value
    imax = Range("A65536").End(xlUp).Row
    
    For i = IndiceLigneDeTaPlageDeDate To imax + 1
        If (Range("A" & i).Value < refdate) And (Range("A" & i).Value <> "") Then
            Range("A" & i).EntireRow.Delete
            i = i - 1
        End If
    Next i
End Sub

où ta date de référence est en A1, et ta plage de données est en colonne A mais tu peux adapter. Si tes dates sont en ligne G, remplace Range("A65536") par Range("G65536"), et les "A" & i par "G" & i.

Voilà.

fortbelin · Answer

Merci beaucoup, je vais essayer

Est ce que vous auriez la même chose mais en fonction d'une liste de prénom.

Exemple, supprimer les lignes qui contiennent pierre ou paul ou jean ....

Merci

Christophe

fortbelin · Answer

C'est encore moi 

je suis désolé mais cela ne marche pas ou alors c c'est mois qui ne fais pas ce qu'il faut

Est ce qu'il faut mettre le code dans un module

Private Sub CommandButton1_Click()
Dim currentd As Date
Dim refdate As Date
Dim i, imax

    refdate = Range("C1").Value
    imax = Range("C65536").End(xlUp).Row
    
    For i = IndiceLigneDeTaPlageDeDate To imax + 1
        If (Range("C" & i).Value < refdate) And (Range("C" & i).Value <> "") Then
            Range("C" & i).EntireRow.Delete
            i = i - 1
        End If
    Next i
End Sub

merci

fortbelin · Answer

Merci beaucoup, 
cela fonctionne.

Désolé mais je suis pas un spécialiste

fortbelin · Answer

est ce que tu aurais une idée pour faire la même chose avec une liste de prénom

merci

fortbelin · Answer

Merci beaucoup, je vais essayer de me pencher sur le sujet mais pour le moment j'ai pas vraiment le temps.


On me demande ça à mon boulot ...

Heremion · Answer

De la même manière.
En admettant que les prénoms à supprimer soient en colonne A à partir de la ligne 2 sur ta première feuille et ta liste de prénoms générale en colonne A ligne 2 de ta deuxième feuille :

Private Sub CommandButton1_Click()
Dim i1, i2
Dim imaxOne
Dim imaxTwo

    imaxOne = Worksheets(1).Range("A65536").End(xlUp).Row
    imaxTwo = Worksheets(2).Range("A65536").End(xlUp).Row
    
    For i1 = 2 To imaxOne
        For i2 = 2 To imaxTwo
            If Worksheets(1).Range("A" & i1).Value = Worksheets(2).Range("A" & i2).Value Then
                Worksheets(2).Range("A" & i2).EntireRow.Delete
                i2 = i2 - 1
                imaxTwo = imaxTwo - 1
            End If
        Next i2
    Next i1
End Sub

fortbelin · Answer

MERCI BEAUCOUP
C'EST AU TOP

Suppression de ligne en fonction d'une date

10 réponses

Discussions similaires

Newsletters