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 Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • VBA Text Box / List Box
    par Ahah » 11 janvier 2018, 09:28 » dans Excel - VBA
    10 Réponses
    529 Vues
    Dernier message par Ahah
    16 janvier 2018, 14:17
  • Probleme Macro list box zoom doubleclick
    par remi03 » 28 juin 2016, 17:44 » dans Excel - VBA
    4 Réponses
    316 Vues
    Dernier message par remi03
    29 juin 2016, 14:49
  • Check Box
    par emilmick » 3 septembre 2016, 17:18 » dans Excel - VBA
    2 Réponses
    238 Vues
    Dernier message par emilmick
    3 septembre 2016, 18:56
  • Check box
    par jahman » 5 novembre 2018, 11:59 » dans Excel - VBA
    7 Réponses
    136 Vues
    Dernier message par jahman
    5 novembre 2018, 18:34
  • Check Box; feuille protégée
    par Goems » 7 janvier 2019, 10:35 » dans Excel - VBA
    4 Réponses
    90 Vues
    Dernier message par Ausecour
    16 janvier 2019, 08:29
  • Bouton tout sélectionner check box
    par SachaLeChat9 » 8 février 2018, 10:41 » dans Excel - VBA
    2 Réponses
    164 Vues
    Dernier message par Andre13
    8 février 2018, 21:11