Discussion :

[Niagala]

Bonjour

Jai un bouton de commande qui affiche un tableau de 100 liges. Les lignes se remplissent automatiquement par saisie dans une autre feuille.
Souvent il arrive que le tableau ne contient que 20 lignes, alors je voudrai que les lines vides soient masquées dès que je clique sur le bouton de commande "afficher" pour afficher mon tableau (Le nombre de lignes vides est variable)

Y a t-il une possibilité ?

Merci d'avance.

[Pierre Fauconnier]

Bonsoir

Je propose la macro paramétrée suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub MasquerLignesVidesEnA(NomFeuille As String)
    Dim Cellule As Range
    Dim Feuille As Worksheet
 
    Set Feuille = Worksheets(NomFeuille)
 
    For Each Cellule In Feuille.Range(Feuille.Range("a2"), Feuille.Range("a" & Rows.Count).End(xlUp))
        If Cellule = "" Then Cellule.EntireRow.Hidden = True
    Next Cellule
End Sub

C'est un exemple de ce qui peut se faire. Il faut passer le nom de l'onglet en paramètre, et les lignes pour lesquelles la cellule en A est vide sont masquées.

Cela t'aide-t'il?

[Abed_H]

Bonsoir
ici le teste commence apartir de la ligne 4 s'il n'ya pas de valeurs dans les cellules de la ligne entière ce dernier sera masqué.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub MasqEmptyRows()
Dim R As Integer
    Application.ScreenUpdating = False
      For R = 4 To 100 ' à adapter
        If WorksheetFunction.CountA(Rows(R)) = 0 Then
           Rows(R).Hidden = True
           End If
      Next
End Sub

Bonne chance

Abed_H

[Niagala]

Bonsoir
J'ai encore beaucoup de lacunes avec vos codes. Demain je vous tiendrai au courant de la suite. Celui d'ABed_H masque les lignes remplies.
Fichier joint

Bonne soirée

[Pierre Fauconnier]

Avec le fichier que tu as placé, tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
    Dim Cellule As Range
 
    For Each Cellule In ActiveSheet.Range("a5:a26")
        If Cellule = "" Then Cellule.EntireRow.Hidden = True
    Next Cellule
End Sub

[Niagala]

Salut
Ton second code fonctionne bien.
Je n'ai pas su manipuler le premier mais je voudrai y arriver.
Merci pour ta patience.