Problème list box et check box Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 946
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 19 janvier 2016, 12:06

Code à ajouter dans ta Feuil2 (Acceuil). Ca balaye toutes les feuilles dont le nom ressemble à "course " et fais tes suppressions. Tu as plus qu'à mettre un bouton lié à la macro dans ta Feuil2 (Acceuil).

Si la solution te convient, merci de noter le sujet comme résolu ;)
Sub SupprDate()
Dim madate As Long
Dim x As Integer
Dim ws As Worksheet

madate = CLng(Sheets("Accueil").Range("D3").Value)

For Each ws In ActiveWorkbook.Worksheets
    If LCase(ws.Name) Like "*course *" Then
        For x = ws.Range("A65536").End(xlUp).Row To 2 Step -1
            If CLng(ws.Range("A" & x)) < madate Then ws.Rows(x).Delete
        Next
    End If
Next ws
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
s
stepaustras
Membre fidèle
Membre fidèle
Messages : 207
Appréciations reçues : 2
Inscrit le : 12 mai 2015
Version d'Excel : 2007

Message par stepaustras » 19 janvier 2016, 12:22

OK :merci: ça fonctionne nickel, tu m'auras été d'un grand secours :slt:
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message