IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Macro suppression ligne contenant des dates [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2016
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Bâtiment

    Informations forums :
    Inscription : Mars 2016
    Messages : 3
    Par défaut Macro suppression ligne contenant des dates
    Bonjour,

    J'ai développé une macro pour pouvoir supprimer des lignes afin d'aléger mon fichier.

    L'un de mes soucis, c'est que j'ai une condition (colonne 37) avec lequel j'ai des dates présentes dont je souhaiterai enlever:

    les années 2010, 2013 et 2014.

    Macro suppression.txt

    Malheureusement dans mon code les années 2010, 2013 et 2014 sont toujours là.

    Merci d'avance de votre aide et conseil

  2. #2
    Membre Expert
    Inscrit en
    Octobre 2010
    Messages
    1 401
    Détails du profil
    Informations forums :
    Inscription : Octobre 2010
    Messages : 1 401
    Par défaut
    Bonjour.

    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    Sub SuprLigne()
    '
    ' SuprLigne Macro
    '
     
    Dim i As Integer
    Dim DerLigne As Integer
     
    DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
     
     
    ThisWorkbook.Worksheets("Feuil1").Activate
     
    For i = DerLigne To 1 Step -1
    AnneeAsupprimer = False
     
    Set c = Cells(i, 37)
     
    If IsDate(c.Value) Then
    annee = Year(c.Value)
    If annee = 2010 Or annee = 2013 Or annee = 2014 Then
     AnneeAsupprimer = True
    End If
    End If
     
     
    If Cells(i, 6).Value = "01. NEGO" Or Cells(i, 6).Text = "07. NEW" Or Cells(i, 6).Text = "13. LEAN" Then
    Range("A" & i & ":AX" & i).Delete Shift:=xlUp
     
     
    ElseIf Cells(i, 11).Value = "NPP" Or Cells(i, 11).Value = "Invest" Then
    Range("A" & i & ":AX" & i).Delete Shift:=xlUp
     
    ElseIf Cells(i, 19).Value = "EMEA LOGISTICS" Or Cells(i, 19).Value = "Closed Site" Then
    Range("A" & i & ":AX" & i).Delete Shift:=xlUp
     
    ElseIf AnneeAsupprimer = True Then
    Range("A" & i & ":AX" & i).Delete Shift:=xlUp
     
    End If
     
    Next i
     
     
    'Affiche Message macro terminé
     
    MsgBox "Macro terminée"
    Application.Goto Reference:="SuprLigne"
     
     
     
    End Sub

  3. #3
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Mars 2016
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Bâtiment

    Informations forums :
    Inscription : Mars 2016
    Messages : 3
    Par défaut
    Merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Macro : suppression ligne sur base de la date
    Par DrDim dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 09/08/2014, 14h20
  2. Graphique avec plage de données contenant des dates / heures
    Par ArthurO0O dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/08/2007, 21h13
  3. [access/vb.net] Suppression ligne par rapport date
    Par t1marlartiste dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 13/07/2007, 20h01
  4. [VBA-E] Comptage de cellules contenant des dates
    Par nono le golfeur dans le forum Macros et VBA Excel
    Réponses: 31
    Dernier message: 23/04/2007, 17h47
  5. Réponses: 3
    Dernier message: 18/09/2006, 20h55

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo