Supprimer une ligne vide

Supprimer une ligne vide Sujet résolu

Ajouter un message à la discussion

SOUHILA80

Posté le 24/12/2012 @ 15:33

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

vieuxmonsieur

Posté le 24/12/2012 à 16:02

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

Posté le 24/12/2012 à 16:04

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

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

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

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

79,99 €

Assistant vocal Amazon Echo Show 8 avec Alexa à 79,99 €
Valable jusqu'au 24 Janvier

Amazon fait une promotion sur l'assistant vocal Amazon Echo Show 8 qui passe à 79,99 € (au lieu de 129,99 €). L'appareil piloté par la voix et vos doigts fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourez avec elle écouter de la musique, interagir avec vos appareils domotiques, écouter les infos, des livres audio la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Grâce à son écran HD de 8 pouces, vous pourrez également regarder des séries, des films, des photos, afficher des recettes de cuisine, appeler vos amis en visio, contrôler vos caméras de sécurité, etc...

> Voir l'offre

149 €

Vélo d'appartement pliable CARE FITNESS SV-316 à 149 €
Valable jusqu'au 26 Janvier

Les différents confinements ont été fatals sur votre poids ? Amazon fait une promotion sur le vélo d'appartement pliable CARE FITNESS SV-316 qui passe à 149 € livré gratuitement alors qu'on le trouve habituellement autour de 200 €. Pliable, vous pourrez facilement le ranger une fois votre séance sportive terminée. Avec sa masse d’inertie de 4 kg, le SV-316 vous assurera un pédalage toujours fluide, silencieux et sécurisant. Avec ses 8 réglages manuels de la résistance, augmentez la résistance en un tour de main pour alterner sprint, endurance et récupération.

Le SV-316 comprend un écran LCD qui intègre 7 fonctions ciblées pour le suivi de votre activité. Vous pourrez ainsi connaître la durée de votre séance, en minutes et en secondes, la distance parcourue durant la séance et au total, la vitesse en km/h, l’estimation des calories brûlées, ou encore l’affichage successif des indicateurs. 100 kg max. Garanti 5 ans sur le châssis et 2 ans sur les pièces d'usure.

> Voir l'offre

59 €

Disque dur Seagate BarraCuda 2 To à 59 €
Valable jusqu'au 25 Janvier

Amazon propose actuellement le disque dur Seagate BarraCuda - 2 To (ST2000DM008) à 59 € livré gratuitement. On le trouve ailleurs autour de 69 €. Ce disque dur 3.5 pouces SATA III tourne à 7200tr/min et possède 64Mo de cache.

> Voir l'offre