Discussion :

[Kevine2246]

Bonjour,

je suis encore débutant sur VBA et j'aimerais solliciter votre aide pour automatiser un travail que je dois réaliser. Voici mon problème: mon classeur contient trois onglets: un onglet "safety features_components" qui contient des components (colonne A) associés aux safety features (colonne B). Le 2e onglet "safety features_requirement" contient les requirement avec les safety features associés. On peut avoir plusieurs safety features pour un même requirement; pareil un component peut appartenir à plusieurs safety feature. Et le 3e onglet "maintenance_requirement" contient les requirement avec tous les créneaux de maintenance.

Dans un premier temps, j'aimerais identifier la liste des components qui appartiennent à plusieurs safety features (mettre un code couleur par exemple ou les afficher sur un autre onglet dédié). Pour les components appartenants à un seul safety feature, j'aimerais qu'on m'affiche à côté tous ces safety features ainsi que les requirements et les maintenance associés.

En gros, parcourir la liste des components. Si components appartient à plusieurs safety features, then afficher le résultat sous forme de tableau avec tous les safety features, requirement et maintenance.

J'ai bidouillé un petit code qui me permet de chosir un composant et pour ce composant choisi, il m'affiche les safety features, requirements et les créneaux de maintenance associés. Il y a un problème d'effacement sur les créneaux...

Vous trouverez ci-joint le classeur. Je vous remercie d'avance !

Kev,

[ARTURO83]

Bonjour,

La récupération par formules ne vous conviendrez-t-il pas?
Pièce jointe 577284

formule en C2

Code formule :

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

=SIERREUR(INDEX('safety features_requirement'!$A$1:$B$10;EQUIV($B2;'safety features_requirement'!$B$1:$B$10;0);1);"")

Formule en D2 à tirer sur la droite et vers le bas

Code formule :

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

=SIERREUR(INDEX(maintenance_requirement!$A$1:$G$10;EQUIV($C2;'safety features_requirement'!$A$1:$A$10;0);COLONNE()-2);"")

le fichier
Pièce jointe 577285

Pour les couleurs, vous pouvez utiliser les MFC

Pour la ligne d'effacement:

Code :

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

Range("E2", Cells(Rows.Count, 5).End(xlUp)).Offset(1).ClearContents

Cdlt