Macro pour supprimer lignes si

Bonjour

Dans mon fichier PJ je veux 1 macro qui permet de supprimer les lignes de la feuille "titulaire" quand la date de fin et date de recrutement est inférieur à une année (360 jours) (colonne M - Colonne L)

Merci

4titulaire.xlsx (10.28 Ko)

Bonsoir,

à mettre dans un nouveau module vba.

Sub suppression()
    Dim drligne As Single, i As Single
    Dim tps As Single

    drligne = Range("L" & Rows.Count).End(xlUp).Row

    For i = drligne To 2 Step -1
        tps = Range("M" & i).Value2 - Range("L" & i).Value2
        If tps >= 360 Then
            Rows(i).Delete
        End If
    Next i
End Sub

Cordialement.

Merci beaucoup....ça marche très bien

juste une chose que j'ai oublié de préciser je veux mettre le bouton de la macro dans une autre feuille (feuille Module). (voir PJ)

2titulaire2.xlsm (16.23 Ko)

Salut tout le monde,

voici une autre macro

Sub SupprimLignes()
Dim DerLign As Long
Dim i As Integer
With Sheets("Titulaire")
DerLign = [M65536].End(xlUp).Row

For i = DerLign To 2 Step -1
    If DateDiff("d", .Cells(i, 12), .Cells(i, 13)) < 360 Then .Rows(i & ":" & i).EntireRow.Delete
Next i
End With
End Sub

m3ellem1 ça marche très bien...mais je veux mettre le bouton de la macro dans une autre feuille et non dans la même feuille du tableau.

si vous pouvez ajouter un msbox indiquant nbr de lignes supprimées....Merci d'avance

Re,

essaie comme ca, le boutton tu peux le mettre où tu veux ca n'a aucune importance!

Sub SupprimLignes()
Dim DerLign As Long
Dim i As Integer, a As Integer
With Sheets("Titulaire")
DerLign = .[M65536].End(xlUp).Row

For i = DerLign To 2 Step -1
    If DateDiff("d", .Cells(i, 12), .Cells(i, 13)) < 360 Then
    .Rows(i & ":" & i).EntireRow.Delete
    a = a + 1
    End If
Next i
End With
MsgBox "Le nombre de lignes supprimées est : " & a, vbInformation, "nombre de lignes supprimées"
End Sub

le bouton ne marche pas dans d'autres feuilles

à tester

4titulaire2-1.xlsm (17.80 Ko)

Sinon mets le fichier avec le boutton qui fonctionne pas et puis on verra ...

Bonjour

Bizarre ton fichier fonctionne parfaitement bien ...alors que le mien avec le même code ne fonctionne pas.

je te le met en PJ pour voir ce qui ne marche pas....Merci

4titulaire2.xlsm (17.77 Ko)

Re,

oui il y a un point (pour référence qui manque)

je viens de le corriger dans le code en haut

DerLign = .[M65536].End(xlUp).Row

cette fois ci ça marche

merci infiniment

excellent!

Rechercher des sujets similaires à "macro supprimer lignes"