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

suppression ligne "vide"

Créer une discussion

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
U

ufernet

XLDnaute Junior
Bonjour;

Avec un tableau obtenu par coller en valeur d'une sélection contenant des cellules obtenues par une fonction si du type : si(A2=1; A2;""); les lignes de cellules "" ne sont pas vides! Dans l'exemple joint le tableau A1:U22 a été obtenu par la formule décrite avant. Je voudrai pouvoir selectionner les lignes 12.14.16 et 19 20 21 22 puis les supprimer en integrant cela dans la macro qui a permi d'obtenir ce tableau. Ces lignes sont vides mais pas tout à fait puisque elles sont selectionnées par crtl *, participent au tri et arrivent en tête en cas de tri de AZ sur A1. Le tableau réel fait 1000 lignes environ.
Merci de m'aider car ces cellules vides pleines me perturbent...
 

Pièces jointes

Trier par date Trier par votes
Re : suppression ligne "vide"

Bonjour à tous

Un exemple avec un filtre élaboré (ici on masque seulement les vides)
Code: 
Sub Macro1()
' Macro2 Macro
' Macro enregistrée le 11/11/2012
[V2].FormulaR1C1 = "=COUNTBLANK(RC[-21]:RC[-1])<21"
Range("A1:U18").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("V1:V2"), Unique:=False
End Sub
 
Vote positif 0 Vote négatif
Re : suppression ligne "vide"

Re

Et ici, on les supprime
Code: 
Sub Macro2()
' Macro2 Macro
' Macro enregistrée le 11/11/2012
Dim pf As Range
[V2].FormulaR1C1 = "=COUNTBLANK(RC[-21]:RC[-1])=21"
Range("A1:U18").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("V1:V2"), Unique:=False
Set pf = [_FilterDataBase]
pf.Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).Delete Shift:=xlUp
[V2] = Empty
ActiveSheet.ShowAllData
End Sub

NB: Pour conserver les macros, enregistrer le classeur en *.xls ou *.xlsm
 
Vote positif 0 Vote négatif
Re : suppression ligne "vide"

Merci,
La macro fonctionne super bien. Merci

Mais j'ai un autre problème car la macro que phlaurent55 m'avait donner pour supprimer les cellules vides à l'intérieur du tableau fonctionne très très lentement (+de 15 mn pour 500 lignes 21 colonnes).

Dim cellule As Range
For i = 5 To 21
For Each cellule In Range("F2:U" & Range("A65535").End(xlUp).Row)
If cellule = "" Then
cellule = Cells(cellule.Row, cellule.Column + 1)
Cells(cellule.Row, cellule.Column + 1) = ""
End If
Next cellule
Next i
Application.ScreenUpdating = True
[A1].Select
MsgBox ("Opération terminée")
End Sub
 
Vote positif 0 Vote négatif
Re : suppression ligne "vide"

Macro 2 marche très bien et elle a supprimé toutes les lignes vides du tableau. Je pensais que de supprimer les lignes vides permettrait d'accélerer la suppression des cellules vides à l'interieur du tableau. Mais cela n'a pas accélerer la macro dont j'ai mis le code dans le message précédent. Je mets le fichier en pièce jointe. Il y a trois macro: CopierTableau qui copie les données dans la feuille Tableau Aprés. La macro Supprimer Ligne que tu as faite et la macro ElimineCelluleVide qui marche male ou pas du tout. Le résultat souhaité étant un tableau ou les données sont sur 11 colonnes donc sans "trou" car cela va servir à un publipostage.

Je suis un peu perdu car je ne comprends pas pourquoi c'est si long car en pas à pas cela semble fonctionner.

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : suppression ligne "vide"

Re


Si j'ai bien compris
Code: 
Sub ElimineCelluleVideBIS()
Dim i&
Application.ScreenUpdating = False
For i = 2 To Range("A65535").End(xlUp).Row
Cells(i, "F").Resize(, 16).Sort Key1:=Cells(i, "F"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next i
End Sub

PS: Code testé avec un PC sous XL2003, si version supérieure adapter le code avec l'enregistreur de macros
(en faisant un tri par ligne : Option de tri: De gauche vers la droite)

EDITION: Salut leti 😉
 
Dernière édition:
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

J
  • Résolu(e)
Microsoft 365 Anomalie tri colonnes d’un tableau
Réponses
14
Affichages
695
JPC33
J
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
659
chris63
C
A
  • Question Question
XL 2021 Cellule VIDE dans un tableur a remplacer par
Réponses
3
Affichages
600
azertyh
A
F
  • Résolu(e)
XL 2019 Enlever ligne vide dans e-mail automatique
Réponses
9
Affichages
562
Fabrice16ct
F
C
  • Résolu(e)
XL 2021 Tri Excel vs Macro
Réponses
9
Affichages
683
claudio54
C
T
  • Question Question
XL 2016 Comment supprimer les résultats vides des formules
Réponses
3
Affichages
408
Tableau123
T
A
  • Question Question
XL 2013 concaténer, aller à la ligne, ignorer cellule vide
Réponses
2
Affichages
929
Asch
A
N
  • Question Question
XL 2019 Excel : mise en forme conditionnelle case sensitive
Réponses
8
Affichages
1 K
nikoje
N
  • Résolu(e)
XL 2010 Déplacer liste tri validation de données
Réponses
10
Affichages
838
Orson83
1
  • Résolu(e)
Microsoft 365 effacement conditionnel d'une plage de cellules
Réponses
5
Affichages
571
1636alain
1
A
  • Question Question
Microsoft 365 Répartition de montants dans le temps
Réponses
4
Affichages
616
alphabeta
A
A
  • Question Question
Microsoft 365 Macro VBA avec déplacement de ligne et suppression
Réponses
11
Affichages
1 K
Robert
B
  • Question Question
Microsoft 365 cumul des nombres pour chaque colonnes (facile) ... mais en éliminant l'impact des lignes à vide.
Réponses
12
Affichages
1 K
bauerjackob
B
D
  • Question Question
XL 2019 |RESOLU]Date enregistrement pour chaque ligne ?
Réponses
6
Affichages
2 K
Phil69970
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
O
  • Résolu(e)
XL 2019 Moyenne de valeurs par date à partir d'un tableau
Réponses
4
Affichages
1 K
Olocsob
O
O
  • Question Question
XL 2016 Macro - Sauter une étape si cellule vide
Réponses
8
Affichages
3 K
sylvanu
S
  • Question Question
XL 2016 Les boucles
Réponses
14
Affichages
2 K
soan
S
E
  • Question Question
XL 2010 Trier vers un onglet défini
Réponses
6
Affichages
1 K
elmilo13
E
M
  • Question Question
Microsoft 365 faire une synthèse dans un classeur à partir d'un nombre aléatoire d'onglets
Réponses
5
Affichages
1 K
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…