annee 2017

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Cel / Col / Lig > Supprimer lignes vides

Supprimer lignes vides

Publié par veriland le 09-Aug-2013 22:40 (2471 lectures)

Deux exemples pour supprimer ou masquer en bloc des lignes vides d'une feuille ...

 

1° exemple SUPPRIMER :

Partie à placer dans un module ...

module



'*****************************************************************************
'supprimer des lignes vides
'*****************************************************************************

Option Explicit
'VériTi
'http://www.excel.veriti.net
Sub SupprLigneVides()
      Dim Ligne As Variant
      Dim Num As Variant
      'geler l'écran
      Application.ScreenUpdating = False
      'UsedRange représente la plage utilisée dans la feuille de calcul
      With ActiveSheet.UsedRange
            'on part de la dernière ligne de la plage qui contient une valeur
            Ligne = .Row + .Rows.Count - 1
      End With
      'on commence la boucle par le bas
      For Num = Ligne To 1 Step -1
            'si ligne vide on supprime
            If Application.CountA(Rows(Num)) = 0 Then Rows(Num).Delete
            'continuer la boucle
      Next Num
      'rétablir écran
      Application.ScreenUpdating = True
End Sub
 

2° exemple MASQUER :

Partie à placer dans un module ...

module




'*****************************************************************************
'masquer des lignes vides
'*****************************************************************************

Option Explicit
'VériTi
'http://www.excel.veriti.net
Sub CacherLigne()
      Dim Cellule As Range
      Dim Zone As Variant
    'geler l'écran
      Application.ScreenUpdating = False
      'Définir zone (ici colonne A jusqu'à 1000)
      Set Zone = Range("A1", Range("A1000").End(xlUp))
      'on commence la boucle sur les Cellules de Zone
      For Each Cellule In Zone
            'si cellule différente de 0 malgré formule alors masquer
            If Cellule.Value = Formula Then Cellule.EntireRow.Hidden = True
            'on continue la boucle
      Next Cellule
      'rétablir écran
      Application.ScreenUpdating = True
End Sub


Naviguer à travers les articles
Article précédent Lettre colonne
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013