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

96,99 €

SSD WD Blue SN550 1 To (NMVe M.2, 2400 Mo/s) à 96,99 €
Valable jusqu'au 03 Mars

Amazon fait une promotion sur le SSD WD Blue SN550 1 To (NMVe M.2) qui passe à 96,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 129 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 2 400 Mo/s en lecture séquentielle et jusqu’à 1 950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans.

> Voir l'offre

22,18 €

Clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C à 22,18 €
Valable jusqu'au 03 Mars

Amazon fait une promotion sur la clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C qui passe à 22,18 €. Cette clé USB dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 40 €.

> Voir l'offre

203,01 €

Disque dur externe Western Digital My Book 12 To USB 3.0 à 203,01 € livré
Valable jusqu'au 03 Mars

Amazon Allemagne propose actuellement le disque dur externe Western Digital My Book 12 To USB 3.0 à 196,54 € (avec la TVA ajustée). Comptez 6,47 € pour la livraison en France soit un total de 203,01 € livré alors qu'on le trouve ailleurs à partir de 230 €. Avec ses 12 To et sa connectique USB 3.0 compatible USB 2.0, vous aurez de quoi stocker vos backup, vos films et vos photos, etc. A l'intérieur, vous trouverez un disque à hélium UltraStar DC HC 520 White (12 To, 5400 tr/min, 256 Mo cache, CMR -> source satdream.tech). Le disque peut être démonté et réutilisé dans un ordinateur, un NAS, etc. Une très bonne affaire.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.

> Voir l'offre