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 pour supprimer des lignes suivant des critères données [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    Juillet 2012
    Messages
    9 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2012
    Messages : 9 173
    Points : 84 939
    Points
    84 939
    Billets dans le blog
    15
    Par défaut Macro pour supprimer des lignes suivant des critères données
    Bonjour,

    Je dispose d'un tableau dont la première colonne (champ1) contient des numéros de :

    • deux chiffres ;
    • trois chiffres ;
    • et six chiffres.



    Je souhaiterais, avec une macro ou un code VBA, supprimer toutes les lignes pour lesquelles le "champ1" est constitué de deux ou trois chiffres. Ci-après un aperçu du résultat attendu :

    Nom : Sans titre.png
Affichages : 293
Taille : 27,8 Ko

    Est-ce que cela est possible ?

    Merci d'avance.

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 631
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 631
    Points : 34 339
    Points
    34 339
    Par défaut
    Salut,

    une boucle décrémentée et un test sur la longueur du contenu de ta cellule feront l'affaire

    Dans l'idée :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    For i = Range("A65536").End(xlup).row to 2 Step -1
         If len(Range("A" & i).value)<=3 Then
                Range("A" & i).EntireRow.Delete
         End if
    Next i

  3. #3
    Community Manager

    Avatar de Malick
    Homme Profil pro
    Community Manager
    Inscrit en
    Juillet 2012
    Messages
    9 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Community Manager
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2012
    Messages : 9 173
    Points : 84 939
    Points
    84 939
    Billets dans le blog
    15
    Par défaut
    Salut jpcheck,

    Le code fonctionne très bien et fait exactement ce que je voulais.

    Merci beaucoup jpcheck.

    @+.

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

Discussions similaires

  1. [XL-2010] Supprimer plusieurs lignes suivant 2 critères
    Par scotop dans le forum Excel
    Réponses: 2
    Dernier message: 19/12/2013, 16h21
  2. Réponses: 1
    Dernier message: 03/09/2013, 18h30
  3. Macro pour supprimer les lignes entre les titres
    Par nouvelinscrit dans le forum VBA Word
    Réponses: 17
    Dernier message: 05/10/2011, 20h48
  4. [XL-2007] Macro, pour supprimer les lignes contenant « #REF! »
    Par LittleDaddy dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 30/01/2011, 00h05
  5. Réponses: 12
    Dernier message: 18/01/2010, 18h20

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