Discussion :

[IronHeavy]

Bonjour à tous, confinés ou télétravailleurs!

Je dispose d'un inventaire de produits chimiques, dont la dangerosité est caractérisée par des mentions de dangers (H200 à H420). Dans l'inventaire de mon entreprise, chaque ligne décrivant les produits chimiques comporte 10 colonnes réservées à ces mentions (un produit pouvant avoir jusqu'à 10 mentions de danger différentes, qui s'incrémentent de droite à gauche, une cellule par mention de danger).

Je souhaiterai exporter mon inventaire pour le rendre compatible avec un logiciel de calcul SEVESO. Or ce logiciel n'accepte les phrase de dangers que regroupées par type de danger et concaténées. Ci dessous 2 visuels des 2 inventaires:
celui d'origine:


celui de destination:


La logique de regroupement de s mentions de danger du second tableau s'inspire de ce formulaire:


afin d'exporter mon inventaire de manière lisible pour le logiciel SEVESO, pourriez vous m'aiguiller sur la méthode à suivre?

j'imagine une logique du genre : "SI je trouve une ou plusieurs mentions de danger "explosible" dans les cellules comprises entre les colonnes K et T...
(H200 Unst. Expl. / H201 Expl. 1.1/ H202 Expl. 1.2 / H203 Expl. 1.3 / H204 Expl. 1.4 / H205 Expl. 1.5 / Expl. 1.6)
... je les regroupe en G en les séparant d'une virgule"

Auriez vous des suggestions?

Merci d'avance!!

[marot_r]

Bonjour.

Je te reviens avec un maquette.

A+

[marot_r]

Bonjour.

Volià la maquette.

Danger.zip

Le code dans Module1 est assez simple et on peut sans doute faire mieux, notamment pour le parcourt de la feuille référence, mais il fonctionne.

A+

[IronHeavy]

Je te remercie marot-r !

Une bonne approche qui m'éclaire sur de nouvelles techniques!

Je pense pouvoir adapter ta solution à mon fichier, elle est suffisamment souple pour cela et je t'en remercie!

Une question subsidiaire cependant, dans certains cas, il n'existe pas de correspondance entre les 2 référentiels... Si un produit se retrouvait sans mention de danger, il faudrait qu'il ne figure pas dans l'inventaire SEVESO...

De même, si aucune quantité n'est renseignée (autre colonne ne figurant pas sur mes visuels), les produits concernés ne doivent pas y figurer non plus!

Comment puis-je y remédier?

Merci beaucoup!

[marot_r]

Bonjour.

Je pense que le plus simple est de tester avant l'export dans la feuille de saisie.
Tu mets une colonne de service avec une formule où tu vas compter les dangers indiqués pour le produit et vérifier la quantité.
Un truc du genre colonne N : =ET(NB.SI(B2:L2;"")<>0; M2<>0) qui va te donner VRAI ou FAUX. Où B:L sont les colonnes de danger et M la colonne des quantités.
Dans le code tu ajoutes juste un test sur cette nouvelle colonne dans le genre.

Code :

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

1
2
3
4
if CelluleProduit.Offset(0, 12)=False then
    'Ajouter le produit à l'export
    ' Ici le code d'ajout du produit.
end if

L'avantage de cette technique c'est que tu peux facilement valider quelle ligne est exportée ou pas, et changer les critères sans changer le code.

Sinon tu peux faire la même chose dans le code avec WorksheetFunction.CountIf() pour l'équivalent du NB.SI().

Attention il va falloir un compteur pour les lignes d'export, là je récupérai toujours celui de la ligne du produit.

A+

[IronHeavy]

Rebonjour marot_r,


Ouille, l'adaptation ne se fait pas sans douleur finalement!

L'inventaire de destination doit respecter un format imposé, avec des colonnes supplémentaires qui viennent s'intercaler entre le nom et les dangers... et démarrant à la ligne 11...

Je suis parvenu à amener les noms de produits à l'endroit souhaité, mais n'arrive à rien pour ce qui est des mentions de danger !



Je constate également une "erreur" :

Et en remplaçant l'onglet inventaire par mon fichier d'origine, je constate que l'ensemble des mentions de danger se décalent dans l'onglet d'export... reprenant l'adresse des cellules de l'inventaire source sans considérer les entêtes de destination!