Discussion :

[clementmex]

Bonjour à tous,

Tout d'abord désolé pour ce titre peu évocateur, je ne sais comment formuler ma demande autrement.

Voila l'idée:

J'ai un classeur excel avec plusieur feuilles de calcul.

L'une de ces feuilles de calcule est la base de donnée. Tous les chiffres des autres feuilles proviennent de cette feuille intitulé BDD.

De ce fait, quand je change la feuille BDD, les changements se font sur toutes les autres feuilles.

Et voici mon probleme.

J'ai utiliser cette macro pour masquer les lignes vides :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub FitreVides()
Application.ScreenUpdating = False
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    Cells(2, 15) = "=sum(c9:j9)>0"
    Range("c8:j17").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("o1:o2"), Unique:=False
    Range("o2").ClearContents
End Sub

Ce que j'aimerais c'est que quand je modifie la BDD (evidement certaines lignes vides se remplissent et d'autres qui étaient "pleine" se vident) les nouvelles lignes vides se cachent sans que j'ai à intervenir....

J'espere avoir été a peu pres clair

Merci d'avance


CLément

[White Mibu]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Activate()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
    Cells.Select
    Selection.EntireRow.Hidden = False
 
    Dim cel As Range
    '("A1:A100") à adapter selon la longeur du tableau et la colonne à tester !
    For Each cel In Range("A1:A100")
    If cel = "" Then
    cel.EntireRow.Hidden = True
    End If
    Next
 
    Range("A1").Select
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

Faut que tu mette cette macro avec la feuille concernée (dossier Microsoft Excel Objets) ensuite à toi d'adapter ("A1:A100")...

Pour la petite explication dès que tu active ton onglet cette macros affiche toutes les colonnes puis masque toutes les lignes pour lesquelles, la cellule dans la première colonne est vide.

Je sais pas si ça te convient mais bon, c'est une solution !