> Tous les forums > Forum Bureautique
 Supprimer une ligne videSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
SOUHILA80
  Posté le 24/12/2012 @ 15:33 
Aller en bas de la page 
Petite astucienne

Bonjour

voici ma question

J'ai un fichier qui contient plusieurs lignes ( un peu plus que 400 ligne) et parmis les lignes que j'ai , il y'en a quelque unes qui sont vides

je souhaite avoir une formule qui me permet de supprimer automatiquement ces lignes

est ce possible

merci d'avances

Publicité
vieuxmonsieur
 Posté le 24/12/2012 à 16:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour,

essaie :

Sub Supprime_lignes_vides()
Dim I As Long
For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete
Next I
End Sub

g
 Posté le 24/12/2012 à 16:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Depuis ta feuille Excel tu fais Alt+F11.
Dans l'Editeur VBA qui s'ouvre, dans la partie gauche, tu cliques droit sur le nom de ton classeur et tu choisis Insertion > Module.
Dans la parie droite de la nouvelle fenêtre tu colles le code suivant:

Sub SupRanVid()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Tu ferme l'Editeur VBA.

Ensuite pour supprimer les rangées vides tu vas dans Menu Outils > Macros > Macros... et tu active SupRanVid.

Cordialement.

SOUHILA80
 Posté le 25/12/2012 à 10:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Merci beaucoup à tous les deux, mon problème est réglé, meme si je suis nulle en macros

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
37,99 €Pack clavier + souris sans-fil Logitech MK470 à 37,99 €
Valable jusqu'au 02 Mars

Fnac fait une promotion sur le pack clavier + souris sans-fil Logitech MK470 à 37,99 € au lieu de 50 €. Compact et avant-gardiste, cet ensemble Logitech MK470 est parfait pour travailler efficacement. L'ensemble se distingue notamment par sa simplicité et à leur profil ultra-mince. Le clavier compact comprend notamment un pavé numérique et 12 raccourcis de fonction, vous offrant ainsi toutes les touches dont vous avez besoin. De plus, les touches à microcharnières extra-plates offrent une expérience de frappe fluide et familière. Quant à la souris, elle est dotée de trois boutons et d'une molette de défilement extrêmement silencieuse. Et avec sa forme en galet et la douceur de la souris ambidextre, elle offre un grand confort d'utilisation pour les droitiers comme les gauchers. 


> Voir l'offre
79,99 €Souris sans fil avec trackball Logitech MX Ergo à 79,99 €
Valable jusqu'au 02 Mars

Amazon fait une belle promotion sur la souris sans fil avec trackball Logitech MX Ergo qui passe à 79,99 € livrée gratuitement. On la trouve ailleurs autour de 100 €. Réduisant de 20% la contrainte musculaire par rapport à une souris standard,  le Logitech MX Ergo vous facilitera le travail en maintenant dans une position très stable votre main.


> Voir l'offre
48,99 €Kaspersky Total Security 2021 (5 postes, 2 ans) à 48,99 €
Valable jusqu'au 01 Mars

Amazon fait actuellement une promotion sur la version 2021 de la célèbre suite de sécurité Kaspersky. Le marchand propose ainsi Kaspersky Total Security 2021 à 48,99 € seulement au lieu de 89 €. Cette version peut être installée sur 5 appareils (PC, Mac ou Android) et bénéficie de 2 ans de mises à jour. Une fois votre commande passée, la clé d'activation vous est immédiatement envoyée par email, accompagnée du lien de téléchargement. Notez que si vous avez déjà un abonnement Kaspersky Total Security, vous pourrez utiliser la clé pour prolonger votre abonnement de 2 ans.


> Voir l'offre

Sujets relatifs
publipostage supprimer la ligne si champ vide
copier ligne si cellule vide
Word 2007 : Comment supprimer tous les retours à la ligne indésirables
Une feuille blanche pour une ligne vide en fin de document
imprimer si ligne non vide
Supprimer la ligne de la cellule active sauf une cellule
Open Office : ligne à supprimer
Supprimer le 0 pour rendre la cellule vide
Macro supprimer ligne avec condition
Word : supprimer ligne après tableau
Plus de sujets relatifs à Supprimer une ligne vide
 > Tous les forums > Forum Bureautique