Bonjour tout le monde je suis nouveau sur le forum.
Je travail dans expérimentation agricole. Afin d’expliquer au mieux nos résultats nous établissons un calendrier d’expérimentation (calexpé) avec les données météo d’un lieu concerné. nous travaillons souvent sur des choses pluriannuel et avons donc besoin de conserver les données sur au moins de 2 ans de suite.
Mon classeur se compose :
1 onglet de Saisie
1 onglet “Francais” et 1 onglet “Anglais” : correspondant au calexpe
Dans les onglets calexpe (“Francais et Anglais”) la feuille se compose ainsi :
Zone A1 à A5 sur l’ensemble des colonnes qui est liée à la feuille saisie afin de choisir les station météo par liste déroulante ; celle-ci reste masqué
B6 à N6 : Entête du tableau : reste affiché bien sur
La première colonne de mon tableau est la Date, dont la première valeur commence en B7
La colonne J correspond à la colonne application
Dans l’onglet saisie je rentre les dates de mes interventions qui viennent automatiquement se mettre dans les colonnes choisis. : exemple :
20/01/2019 : A (A pour application A)
La valeur A apparait dans le calexpe via une simple formule recherchev en fonction de la date dans la colonne J sur la ligne correspondant à la date indique.
Lors de la présentation de notre calxpé nous devons avoir les données au moins 15 jours avant la première application
Il n’y aura qu’une fois la valeur “A” seul dans la colonne J
Je souhaiterais savoir s’il est possible via une macro, lorsque la valeur A est détectée dans la colonne J, masquer automatiquement l’ensemble des lignes situées a partir de la 15ième ligne au dessus jusqu’à la ligne 7
Pour résumer si la valeur A situé en colonne J sur la ligne du 20/01/2019, masquer les lignes à partir du 5/01/2019 inclus jusqu’à la ligne B7 incluse.
Ci joint un fichier exemple.
Merci beaucoup pour vôtre aide.
Le problème vient que tes données sont calculées par un classeur “Données Météo” et un classeur XLT Calexpe ce qui donne dans ton résultat en colonne J
Bonjour,
Merci pour ta réponse.
Oui en effet toutes les valeurs viennent de l’extérieur.
Mais j’ai trouvé sur le forum une macro qui permet de masquer toutes les lignes dont les valeurs sont supérieur à 18…
Que les données proviennent de formules ou non, la macro ne peut pas chercher la valeur A qui en est le résultat…?
Voilà j’ai retrouver la macro, ont vous êtes l’auteur.qui me semble presque proche de ce que j’aimerai.
Sub Masque()
Dim i%
If ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.Text = "MASQUER" Then 'Si le texte du bouton est MASQUER
Selection.AutoFilter
ActiveSheet.Range("$A$5:$X$1002").AutoFilter Field:=24, Criteria1:="<18", _
Operator:=xlAnd
ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.Text = "AFFICHER" 'Modifie le texte du bouton en AFFICHER
Else 'Si le texte du bouton est AFFICHER
Selection.AutoFilter
ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.Text = "MASQUER" ''Modifie le texte du bouton en MASQUER
End If
End Sub
Est ce possible de l’adapté à ma demande sur un fichier ne contenant pas de liaison…?
Le faitd’avoir des résultats type “Erreur” ne permet pas la l’execution…?
A tester,
J’ai reformulé la formule en colonne J afin d’ôter les valeur #N/A
et la macro fonctionne sur l’activation de la feuille de résultats Calexpe masquer 15lignes au dessus de A.xlsm (273,8 Ko)
Merci beaucoup pour vôtre aide.
C’est exactement ce que je cherchais.
Je vais essayer de décrypter la macro pour comprendre la construction des différents vocabulaires.
Encore merci.
Bonjour,
Meilleurs voeux pour cette nouvelle décennie.
Ton fichier marche super. Encore Merci.
Même si tu mets une date qui a été masqué auparavant, cela réinitialise tout.
J’ai également intégré la formule que tu as reformulé que ne je connaissais pas et semble plus pratique qu’une mise en forme conditionnelle.
Je reviens vers toi car j’ai un petit souci que je n’arrive pas résoudre, toujours sur le même fichier : Calexpe masquer 15lignes au dessus de A.
Je te joint cette fois ci le fichier final.
1 : Dans l’onglet saisie : je rentre mon Numéro essai :19calexpe-FR01 et jelance ma macro enregistrer qui me réccupère la valeur E1 et la valeur “_calexpe” masqué en m1 pour attribuer le nom d’enregistrement. Jusque la cela marche à peu près.
Ensuite comme dans le premier fichier envoyé en exemple j’ai un onglet “Francais” et un “Anglais”.
C’est onglet seront envoyés à différentes personnes : leurs nom seront identiques au numéro essai : 19calexpe-FR01 et il faut que toutes macros et autres formules soit inexistante pour leur envoi.
Donc :
2 : Je rentre la valeur de ma première date d’application A en E2 ; qui est répercutée en A10 (A10 = E2)
A partir de la lorsque j’active l’une des feuilles “Francais” ou “Anglais”, ta macro masque marche à merveille.
3 : Le problème se situe lorsque j’exécute ma macro crée une copie dans un nouveau classeur puis copié collage spécial valeur :
"Sub Export_Calexpe_Fr()
’
’ Macro2 Macro
’
La copie s’exécute bien, mais la macro s’arrête en cour de route, la partie collage spécial valeur ne s’exécute pas car sur la feuille copié dans le nouveau classeur exécute la macro suivante s’exécute :
"Option Explicit
Private Sub Worksheet_Activate()
Masque
End Sub
et ne trouve forcement pas de macro Masque à associer.
Est-il donc possible d’activer la macro que tu m’as construite, sur les 2 feuilles en même temps (“Francais” et “Anglais”) mais via un bouton ou autre afin que le copier collage spécial valeur s’exécute correctement…?
La dernière étape est de renommer la feuille avec le numéro de l’essai.
Ma macro copié collage spécial valeur vas directement chercher la feuille “Francais” ou “Anglais”.
Serait-ce possible lors que l’exécution de celle-ci de choisir la feuille souhaité à travers une liste de choix…? (Sachant que par conséquent “Francais” serait renomé 19calexpe-FR01 avant l’exécution de celle-ciModèle calexpe 2020.xlsm (2,9 Mo) )
