> 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
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

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