Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Supprimer des lignes à chaque changement de libellé d'une même colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zakintos84
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Z

zakintos84

XLDnaute Nouveau
Bonjour à tous,

J'ai pas mal navigué sur les forums mais je n'ai (apparemment) pas trouvé la solution à mon problème.
Voilà les faits (si j'arrive à être clair) :
J'ai une extraction Excel d'environ 3500 lignes tous les mois pour laquelle je dois garder uniquement les 20 premières lignes de chaque nom(libellé) qui apparaît dans la première colonne du tableau sachant que le nombre de lignes par libellé(nom) varie d'un mois sur l'autre. Le problème est donc le suivant (sachant que je ne connais rien au macro) :
Que doit-on faire pour que la macro conserve les 20 premières lignes de chaque nom et qu'à chaque nouveau nom, la macro conserve les 20 premières lignes s'y rapportant et ainsi de suite à chaque changement de nom...???
J'espère avoir été clair...

Merci d'avance pour votre aide amis d'Excel !!!!
 
Dernière édition:
Trier par date Trier par votes
Re : Supprimer des lignes à chaque changement de libellé d'une même colonne

Bonsoir zakintos84,

Essayez cette macro :

Code: 
Sub Noms()
Dim tablo1, tablo2, i As Long, n As Long
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
  .Sort .Columns(1), Header:=xlYes 'ligne de titre
  tablo1 = .Columns(1)
  tablo2 = tablo1
  For i = 2 To UBound(tablo1)
    If tablo1(i, 1) <> tablo1(i - 1, 1) Then
      n = 1
    Else
      n = n + 1
      If n > 20 Then tablo2(i, 1) = ""
    End If
  Next
  .Columns(1) = tablo2
  .Sort .Columns(1), Header:=xlYes
  On Error Resume Next
  .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
L'exécution sera rapide car on utilise des tableaux.

Nota 1 : je fais 2 tris, au début pour classer les noms et éliminer les cellules vides, à la fin pour placer en bas du tableau les cellules effacées. Si vous ne voulez pas de tri, n'hésitez pas à le dire.

Nota 2 : pour ces tris j'ai supposé qu'il y a une 1ère ligne de titres => Header:=xlYess

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Supprimer des lignes à chaque changement de libellé d'une même colonne

Re,

J'ai édité mon post précédent car j'avais oublié 2 lignes en fin de macro :

Code: 
On Error Resume Next
.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
A+
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes à chaque changement de libellé d'une même colonne

Re,

Si l'on ne veut pas de tri... Eh bien n'en faisons pas :

Code: 
Sub Noms()
Dim tablo1, tablo2, n As Long, i As Long
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
  tablo1 = .Columns(1)
  tablo2 = tablo1
  n = 1
  For i = 2 To UBound(tablo1)
    If tablo1(i, 1) <> tablo1(i - 1, 1) Then
      n = 1
    Else
      n = n + 1
      If n > 20 Then tablo2(i, 1) = ""
    End If
  Next
  .Columns(1) = tablo2
  On Error Resume Next
  .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Bonne fin de soirée.
 
Vote positif 0 Vote négatif
Re : Supprimer des lignes à chaque changement de libellé d'une même colonne

Bonjour le fil, le forum,

La macro du post #4 nécessite que les noms identiques soient groupés.

Voici une macro qui fonctionne dans tous les cas de figure.

Le tableau est trié mais l'ordre initial est rétabli à la fin grâce à une colonne auxiliaire :

Code: 
Sub Les20Premiers()
Dim tablo1, tablo2, n As Long, i As Long
Application.ScreenUpdating = False
ActiveSheet.UsedRange.Columns(2).Insert xlToRight 'colonne auxiliaire
With ActiveSheet.UsedRange
  .Cells(1, 2) = 1
  .Columns(2).DataSeries 'série
  .Sort .Columns(1) 'tri sur les noms
  tablo1 = .Columns(1)
  tablo2 = tablo1
  n = 1
  For i = 2 To UBound(tablo1)
    If tablo1(i, 1) <> tablo1(i - 1, 1) Then
      n = 1
    Else
      n = n + 1
      If n > 20 Then tablo2(i, 1) = ""
    End If
  Next
  .Columns(1) = tablo2
  .Sort .Columns(1) 'tri sur les noms
  On Error Resume Next
  .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  .Sort .Columns(2), xlAscending, Header:=xlNo 'tri sur les nombres
  .Columns(2).Delete xlToLeft 'suppression de la colonne auxiliaire
End With
End Sub
Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
137
Cousinhub
L
  • Résolu(e)
XL 2016 macro pour parcourir les lignes d'une colonne et a chaque changement extraire les donnees specifiques des colonnes adjacentes
Réponses
6
Affichages
287
Dranreb
J
  • Question Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
471
jerome91
J
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
546
p56
J
  • Question Question
XL 2021 reporter des données entre plusieurs feuilles sans décalage de lignes dans les tableaux
Réponses
4
Affichages
769
job75
P
  • Question Question
Microsoft 365 Automatisation avec création de fichier et d'onglets en fonction des valeurs
2
Réponses
15
Affichages
1 K
pene
P
C
  • Résolu(e)
Microsoft 365 Duplication à partir d'une base de données du contenu d'un onglet dans d'autres onglets
Réponses
2
Affichages
715
Céline49
C
R
  • Question Question
Microsoft 365 Supprimer les lignes vides d'une variable tableau
Réponses
1
Affichages
699
Phil69970
N
  • Question Question
XL 2019 Figer valeurs d'une colonne à la fin du mois
Réponses
2
Affichages
731
Nikolagexcel
N
C
  • Résolu(e)
XL 2019 Macro pour créer une formule dans une colonne différente selon une donnée d'une autre colonne
Réponses
7
Affichages
775
cedric82
C
D
  • Question Question
XL 2010 Màj automatique d'une formule suite à l'insertion d'une ligne
2
Réponses
25
Affichages
2 K
vgendron
K
  • Question Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
2 K
CARTER92
C
B
  • Question Question
XL 2013 Interdire saisie de doublon et faire synthèse à chaque saisie
Réponses
5
Affichages
635
BIROULIG
B
Y
  • Question Question
XL 2019 Macro pour supprimer des lignes et modifier des valeurs selon une correspondance
Réponses
6
Affichages
690
Yoshi0302
Y
C
  • Résolu(e)
XL 2016 VBA : rechercher la même donnée dans des colonnes de feuilles différentes
Réponses
7
Affichages
1 K
Caradel
C
D
  • Résolu(e)
XL 2010 Déplacer des lignes entières sous condition d'un tableau vers différents onglets
2
Réponses
20
Affichages
2 K
Djehnsr
D
B
  • Question Question
Suppression de colonnes
Réponses
14
Affichages
1 K
job75
M
  • Question Question
XL 2019 Créer une VBA pour copier des valeurs de plusieurs lignes d'une feuille sur une même ligne d'une autre feuille
2
Réponses
19
Affichages
2 K
marco22
M
S
  • Résolu(e)
XL 2019 Transposer des lignes d'un onglet à un autre en fonction d'une case coché
Réponses
4
Affichages
994
Sod2
S
J
  • Question Question
Microsoft 365 Excel - effacer des lignes des 3 derniers jours de mois + insérer des lignes
Réponses
4
Affichages
2 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…