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 :

Supprimer des colonnes avec des données dont le nombre de lignes varient


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2019
    Messages
    38
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2019
    Messages : 38
    Points : 31
    Points
    31
    Par défaut Supprimer des colonnes avec des données dont le nombre de lignes varient
    Bonjour,

    J'ai un tableau dont les données varient chaque semaine (ex : semaine 1 => données vont jusqu'à la ligne 30 , semaine 2 => données vont jusqu'à la ligne 10, semaine 3 => données vont jusqu'à la ligne 50 etc... )

    je souhaiterai un programme qui puisse supprimer ces données chaque semaine en tenant compte du fait que la dernière ligne associées à ces données varient chaque semaine.

    Merci beaucoup de votre aide.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 954
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 954
    Points : 5 183
    Points
    5 183
    Par défaut
    BONJOUR
    il suffit de chercher la dernière ligne non vide et de supprimer les lignes de la dernière au première ligne
    à tester sur une copie de ton travail : attention ça efface toutes les lignes
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
    Application.ScreenUpdating = False
    Dligne = Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Row
    For I = Dligne To 5 Step -1
    Rows(I).Delete
    Next I
    Application.ScreenUpdating = True
    End Sub
    ou bien sans boucle
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
    Application.ScreenUpdating = False
    Dligne = Sheets("Feuil1").Range("E" & Rows.Count).End(xlUp).Row
    If Dligne > 4 Then
    Range("A5:A" & Dligne).EntireRow.Delete
    End If
    Application.ScreenUpdating = True
    End Sub

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2019
    Messages
    38
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2019
    Messages : 38
    Points : 31
    Points
    31
    Par défaut
    bonjour,

    je te remercie je regarde

Discussions similaires

  1. Supprimer des données dans une colonne d'un tableau
    Par hehee dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/06/2013, 22h01
  2. ajouter et supprimer des données dans un tcd avec vba
    Par pscoool dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 09/12/2009, 19h14
  3. Réponses: 2
    Dernier message: 25/08/2008, 11h41
  4. Supprimer des données avec un trigger
    Par engi dans le forum SQL
    Réponses: 3
    Dernier message: 09/04/2008, 16h25

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