Macro pour masquer les lignes non remplies sur une autre page

Fermé

AudricG Messages postés 4 Date d'inscription dimanche 10 septembre 2017 Statut Membre Dernière intervention 13 septembre 2017 - Modifié le 10 sept. 2017 à 17:29
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 28 sept. 2017 à 19:02

Bonjour,

malgré mes longues recherches, je ne parviens pas à régler mon problème.

Afin de créer les services de travail de chaque journée suivante pour mes collègues, j'utilise un tableau comprenant une base de donné synthétisant toutes les informations en première page (Nom, nombre de présent, date du lendemain, pourcentages de présents...). Et un certains nombre d'autre page sous forme de tableau, reprenant automatiquement les données de la première page (service général, composition chaque équipe...).

Je me heurte à un problème que je n'arrive pas a résoudre:

Je souhaiterai que les lignes du récapitulatif général situé en page 2 n'apparaissent que lorsqu'elle sont "remplies" par les formules. C'est à dire que si rien n’apparaît dans la case de l'équipe, toute la ligne soit masquée automatiquement.

J'ai tenté de créer une macro automatisée pour cela, mais je n'y parviens pas.

Sachant que les données de la page deux (formules), sont remplies grâce à la saisie sur menu déroulant en page 1 (base de donnée).

Concrètement le but est de masquer les lignes entières de 4 à 48sur le tableau deux, si la cellule D de chaque ligne n'est pas remplie par les données du tableau 1.

En désespoir de cause je me tourne vers vous.
J'espère avoir été clair, même si j'en doute.

Je vous joint une copie de la macro. Cela sera surement plus facile a comprendre.

http://www.cjoint.com/c/GIkpBdZ0Ida

A voir également:

Macro pour masquer les lignes non remplies sur une autre page
Supprimer une page word - Guide
Masquer conversation whatsapp - Guide
Traduire une page web - Guide
Créer une page facebook - Guide
Page d'accueil iphone - Guide

4 réponses

Réponse 1 / 4

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
10 sept. 2017 à 17:42

j'imagine que tu utilises Excel. c'est bien cela?
si oui, je suggère ceci:

Option Explicit

Sub audricg()
Dim sh As Worksheet
Dim ln As Long
Set sh = Sheets("deux")
For ln = 48 To 4 Step -1
    If sh.Cells(ln, 4).Value = "" Then
        sh.Rows(ln).Hidden = True
    Else
        sh.Rows(ln).Hidden = False
    End If
Next ln
End Sub

Réponse 2 / 4

AudricG Messages postés 4 Date d'inscription dimanche 10 septembre 2017 Statut Membre Dernière intervention 13 septembre 2017
Modifié le 10 sept. 2017 à 18:04

Pardon, je n'ai pas précisé mais j'utilise une LibreOffice.

Je m'excuse encore car mes connaissances en basic remontent au collège et je bloque sur une partie de ta macro:

Sub Miseenpage()
Dim sh As Worksheet
Dim ln As Long
Set sh = Sheets("Service affiche")
For ln = 48 To 4 Step -1
    If sh.Cells(ln, 4).Value = "" Then
        sh.Rows(ln).Hidden = True
    Else
        sh.Rows(ln).Hidden = False
    End If
Next ln
End Sub

Libreoffice m'indique que "worksheet" n'est pas une syntaxe valide. Je suppose qu'il s'agit de la page ou se trouve mes données? Malheureusement, celle ci nommée "Données" contient un "é" dont la macro ne veut pas entendre parler.

Ou je me m'égare complètement?

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
10 sept. 2017 à 18:05

j'ai proposé un code pour Excel, je ne peux pas t'aider en LibreOffice.
(c'est moi qui m'égarais)

AudricG Messages postés 4 Date d'inscription dimanche 10 septembre 2017 Statut Membre Dernière intervention 13 septembre 2017 > yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024
10 sept. 2017 à 18:06

Autant pour moi!
Merci quand même

Réponse 3 / 4

AudricG Messages postés 4 Date d'inscription dimanche 10 septembre 2017 Statut Membre Dernière intervention 13 septembre 2017
13 sept. 2017 à 13:02

Désolé d'insister, mais personne n'a une idée?

Réponse 4 / 4

OOoForum Messages postés 3865 Date d'inscription jeudi 20 mars 2008 Statut Membre Dernière intervention 3 novembre 2023 960
28 sept. 2017 à 18:46

Au lieu d'insister, commencez par donner suite aux propositions qui vous sont faites : https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=55614

.

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
28 sept. 2017 à 19:02

ces propositions ont étés faites après le post #6, non?

Discussions similaires

[PIX] Commencer chaque poème sur une nouvelle page

Statut « en ligne » alors que non

On me voit connecté sur facebook alors que je n'y suis pas

Discussions similaires

Newsletters