Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 20/07/2011, 18h37   #1
Invité de passage
 
Homme clém
Étudiant
Inscription : juillet 2011
Messages : 1
Détails du profil
Informations personnelles :
Nom : Homme clém
Localisation : France, Aube (Champagne Ardenne)

Informations professionnelles :
Activité : Étudiant

Informations forums :
Inscription : juillet 2011
Messages : 1
Points : 0
Points : 0
Par défaut MAJ tableau avec macro

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 :
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
clementmex est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 22/07/2011, 10h18   #2
Membre confirmé
 
Homme Denis Morena
Technicien qualité et métrologie industrielle
Inscription : avril 2011
Messages : 115
Détails du profil
Informations personnelles :
Nom : Homme Denis Morena
Localisation : France, Gironde (Aquitaine)

Informations professionnelles :
Activité : Technicien qualité et métrologie industrielle
Secteur : Industrie

Informations forums :
Inscription : avril 2011
Messages : 115
Points : 221
Points : 221
Bonjour,



Code :
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 !
White Mibu est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 00h26.


 
 
 
 
Partenaires

Hébergement Web