Intégrer des feuilles excel à des cellules dynamique Résolu

Question

Bonjour, 
Je ne sais pas si mon titre est très explicite,
Voilà, je travail depuis plusieurs semaines sur un tableau excel qui permettra de gérer la maintenance préventive d'une entreprise.
Grâce à votre aide j'ai réussie à élaborer un tableau fonctionnel qui permet de mettre différentes périodicités selon le préventif voulu ( voir document ci joint ).
Maintenant que le tableau est fonctionnel, j'aimerai savoir si il était possible, par un macro ou autre, d'intégrer à chaque case rouge (voir tableau), une feuille excel que j'ai réalisée au préalable.
Par exemple, dans l'entreprise, ils aimeraient pouvoir imprimer l'ensemble des préventifs pour le mois de mai, donc ils regardent dans le tableau et lors ce qu'ils cliqueront ( ou autres ) sur la case rouge, ça leurs renverrai la feuille à imprimer.

Je pense que c'est faisable, je vous laisse les document ci joint. https://www.cjoint.com/c/FEdmQbCFZZH   <--- Tableau réalisé 
https://www.cjoint.com/c/FEdmQ6c5TYH    <--- Exemple de préventifs réalisés (ils n'y sont pas tous)
Configuration: Windows / Chrome 50.0.2661.94

via55 · Answer

Bonjour Morgan.Be

1) Verrouiller toutes les cellules des colonnes G et suivantes de Projet 1
2) Protéger la feuille Projet 1 en cochant Autoriser : Selectionner les cellules verrouillées et Selectionner les cellules déverouillées (pour éviter d'effacer les formules lorsqu'on double cliquera sur un M
3) Mettre toutes les feuilles de maintenance après la feuille Projet, toutes bien nommées comme tu as déjà fait : Fréquence + espace + nom de la machine, sauf pour les 2 robots dont la fiche s'intitule "Préventif ... (j'ai tenu compte de ces 2 exceptions dans la macro)
4) ALT +F11 pour ouvrir l'éditeur VBA puis Double clic sur la feuille Projet 1 dans l'arborescence à gauche - Copier et coller la macro suivante dans la page

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 7 Then Exit Sub
If Target.Value = "M" Then
nomf = Range("D" & Target.Row) & " " & Range("B" & Target.Row)
If Target.Row = 34 Then nomf = "Préventif Trimestriel 1200T_1"
If Target.Row = 35 Then nomf = "Préventif Semestriel 1200T_2"
For n = 1 To Sheets.Count
If Sheets(n).Name = nomf Then existe = 1
Next
If existe = 0 Then MsgBox ("La fiche de maintenance correspondnate n'existe pas"): Exit Sub
Sheets(nomf).Visible = True
Sheets(nomf).Select
End If
End Sub

5) Copier ensuite la macro suivante et la coller en dessous de l'autre et fermer l'éditeur VBA
 Private Sub Worksheet_Activate()
For n = 1 To Sheets.Count
If Sheets(n).Name = "Projet 1" Then Sheets(n).Visible = True Else Sheets(n).Visible = False
Next
End Sub

La 1ere macro au double-clic sur un M selectionne et affiche la fiche maintenance correspondante

La 2eme macro quand on sélectionne la feuille Projet 1 masque toutes les autres feuilles (pour éviter d'avoir une longue série d'onglets en bas)

En fonctionnement normal on a donc toujours la feuille projet ouverte, lorsqu'on double-clic sur un M la feuille de maintenance est ouverte et on peut la consulter et l'imprimer, lorsqu'on revient sur la feuille Projet la fiche de maintenance est remasquée

Cdlmnt
Via

Raymond PENTIER · Answer

Salut, Morgan.

Je voulais te rappeller l'existence des liens hypertextes, qui te permettent d'aller vers un fichier précis.
Donc il faudrait que chaque préventif fasse l'objet d'un fichier Excel séparé.
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
Raymond (INSA, AFPA, CF/R)

Intégrer des feuilles excel à des cellules dynamique

2 réponses

Discussions similaires

Newsletters