fonction permettant de cacher des cellules vides sous excel

En utilisant le macro recorder tu trouves une solution du style

Rows("123:456").EntireRow.Hidden = True

ou

Rows("123:456").RowHeight = 0

Oui c'est ce que j'ai obtenu aussi le seul soucis est que je ne connais pas le nombre de lignes à cacher car cela dépent du nombre de valeurs que l'utilisateur à rentré.

Option Explicit

 
Sub Tst()

Dim r As Long

    ' par exemple si les données sont saisies dans la colonne A

    r = Range("A65536").End(xlUp).Row + 1

 
    Rows(r & ":65536").EntireRow.Hidden = True

End Sub

Bonjour a tous, je rebondis sur ce vieux sujet car j'ai un problème similaire,

Sur une feuille que nous appellerons F1, j'ai fais des renvois de lignes de feuilles F2, F3 et F4.

Sur la feuille F1, j'ai fais un renvoi des lignes F2 via fonctions a hauteur de ligne numéro 1, un renvoi des lignes F3 a hauteur de ligne 2500 et un renvoie des lignes F4 a hauteur de la ligne 5000.

Ceci me permet de continuer a écrire des lignes dans la feuille F2, F3 et F4 qui sont automatiquement générée en F1.

Néanmoins j'ai des lignes vides entre les renvoies de F2, F3 et F4 sur F1. Je souhaiterais donc les cacher.

Pour cela j'ai utilise le code ci-dessus, qui au lieu de me cacher uniquement les lignes vides, me les cache toutes !

Quelqu'un pourrait il m'apporter une solution ?

Cordialement,

T3tSuO

Ce bout de code devrait faire l'affaire.
Il a l'intérêt d'être universel : Il cache toutes les lignes vides, après examen de toutes les lignes.
En revanche, Il n'est pas très rapide.

Dim sheet As Worksheet

Dim cell  As Range

Dim line  As Range

Dim i     As Long

Dim blank As Boolean

 
Set sheet = Worksheets("Feuil1")

 
For i = 1 To 65536

    Set line = sheet.Rows(i)

    blank = True

    For Each cell In line.Cells

        If cell.Formula <> "" Then

            blank = False

            Exit For

        End If

    Next

    Application.StatusBar = i \ 656 & "%"

 
    line.Hidden = blank

Next

Application.StatusBar = False

Alors il serait judicieux de sélectionner un sous-ensemble de colonnes dans lesquelles il suffirait de regarder pour savoir si la ligne est vide ou pas.

Dim sheet As Worksheet

Dim cell  As Range

Dim chk_z As Range ' zone de vérification

Dim i     As Long

Dim blank As Boolean

 
' // A adapter à la situation

Set sheet = Worksheets("Feuil1")

 
For i = 1 To 65536

                ' // A adapter à la situation -------------

    Set chk_z = Union(sheet.Cells(2, i), sheet.Cells(4, i))

    blank = True

    For Each cell In chk_z.Cells

        If cell.Formula <> "" Then

            blank = False

            Exit For

        End If

    Next

    Application.StatusBar = i \ 656 & "%"

 
    chk_z.EntireRow.Hidden = blank

Next

Application.StatusBar = False

Voici la version mono-colonne

Dim sheet As Worksheet

Dim cell  As Range

Dim i     As Long

 
Set sheet = Worksheets("Feuil1")

 
For Each cell In sheet.Range("B1:B65536")

    cell.EntireRow.Hidden = cell.Formula = ""

    Application.StatusBar = i \ 656 & "%"

Next

Application.StatusBar = False

Comment ça, c'est trop long ?
Oki, retirons donc la lise à jour automatique de l'affichage.
On perd malheureusement le compteur dans la barre d'état.
Comme sur les traitements très longs, j'aime à savoir où j'en suis, j'ajoute quand même les lignes 20 à 24.

Dim sheet As Worksheet

Dim cell  As Range

Dim line  As Range

Dim i     As Long

Dim blank As Boolean

 
Set sheet = Worksheets("Feuil1")

 
Application.ScreenUpdating = False

For i = 1 To 65536

    Set line = sheet.Rows(i)

    blank = True

    For Each cell In line.Cells

        If cell.Formula <> "" Then

            blank = False

            Exit For

        End If

    Next

    line.Hidden = blank

    If i Mod 300 = 0 Then

        Application.ScreenUpdating = True

        Application.StatusBar = i \ 656 & "% [" & i & "]"

        Application.ScreenUpdating = False

    End If

Next

Application.ScreenUpdating = True

---------------------------------------------------------------

Maintenant, voyons de plus près les soucis de T3tSuO.
Il y a trois zones dans ta feuille, de la ligne 1 à la 2499, de la 2500 à la 4999 et de la 5000 à la 65536.
On va donc se mettre sur la dernière ligne de chaque zone et remonter, avec une technique très proche de celle proposée par kiki.

Dim F1    As Worksheet

Dim cell1 As Range

Dim cell2 As Range

 
' // A adapter --------------

Set F1 = Worksheets("Feuil1")

 
Set cell2 = F1.Range("A2499")

Set cell1 = c2.End(xlUp).Offset(1)

 
F1.Range(cell1, cell2).EntireRow.Hidden = True

A refaire pour les deux autres zones.

bonjour,
j'au un fichier excel avec deux feuilles une s'appelle grand et l'autre petit
les données de grand doivent aller s'inscrire dans celle de petit automatiquement
mais quand elle
voici ce comment je me prends pour le faire
je remplis mes données de grand
ensuite je vais sur petit
et dans la cellule A1 j'utilise le signe = et retourne dans grand et fais enter
et avec celle-la dans petit je copie avec le signe +
voici le problème
les cellules vide inscrive un 0 je dois les effacer pas normal je crois
j'ai essayé avec la formule NBVAL çà ne fonctionne pas
que faire
merci à l'avance de vôtre aide
sergio

Merci de créer un nouveau sujet pour évoquer tout nouveau sujet.