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 ne garder que les lignes avec le plus grand nombre de caractères


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Femme Profil pro
    Inscrit en
    Avril 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations forums :
    Inscription : Avril 2013
    Messages : 2
    Points : 2
    Points
    2
    Par défaut Macro pour ne garder que les lignes avec le plus grand nombre de caractères
    Bonjour,

    J’ai le tableau suivant :

    Colonne A Colonne B
    Valeur 1 X
    Valeur 1 X ; Y
    Valeur 1 X ; Y ; Z
    Valeur 2 R
    Valeur 2 R ; S
    Valeur 2 R ; S ; T

    Je souhaiterais faire une macro permettant de ne garder que la ligne dont la cellule en colonne B contient le plus de caractères (et donc supprimer les autres lignes). Et ce pour la valeur 1 et pour la valeur 2.

    Comment puis-je faire ?

    Merci d'avance pour votre aide,

    Alice

  2. #2
    Membre éprouvé
    Homme Profil pro
    Assistant aux utilisateurs
    Inscrit en
    Septembre 2007
    Messages
    1 896
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France

    Informations professionnelles :
    Activité : Assistant aux utilisateurs
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 896
    Points : 984
    Points
    984
    Par défaut
    Bonjour,

    Voici un début de réponse. Dans ce code, la ligne est supprimée si elle a plus de 24 caractères. A vous de l'adapter.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub SupprimeLignes()
    Dim J As Long
     
      For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Len(Range("A" & J)) > 24 Then Rows(J).Delete
      Next J
    End Sub
    Cordialement
    J’entends et j’oublie,
    Je vois et je me souviens,
    Je fais et je comprends.
    Confucius

Discussions similaires

  1. [AC-2010] Imprimer que les lignes avec le bouton coché selectionné.
    Par tontonrikou dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 06/04/2015, 08h24
  2. regex pour ne garder que les chiffres et les ;
    Par webol dans le forum Langage
    Réponses: 5
    Dernier message: 12/02/2015, 15h48
  3. [JCL] Ne garder que les lignes du début et de fin d'un fichier
    Par ALaurent22 dans le forum JCL - SORT
    Réponses: 6
    Dernier message: 05/04/2012, 18h08
  4. [AC-2003] Ne garder que les doublons, avec critère sur 2 champs.
    Par Faenors dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 22/07/2009, 09h30
  5. Réponses: 2
    Dernier message: 16/04/2007, 11h53

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