problème sur deux macros importantes pour mon projet

[laurengv]

Salut à vous excelnaute

Je reviens vers vous pour deux problèmes au niveau de macro.
l'une est déjà créée et l'autre est à créer mais je n'arrive pas à imaginer le code.

Mon premier problème est sur la macro archivage.
Celle ci a pour but de couper des lignes lorsque le risque est traité à 100%. La macro marche très bien mais le problème arrive ensuite. En effet, je souhaiterais supprimer les lignes vides. Mais le code me supprime l'ensemble des lignes.

Ensuite, j'avais une question à poser. Est il possible de dupliquer le code pour l'appliquer à une deuxième partie à archiver qui sont les plans d'action cloturés.? Si oui, je souhaiterais savoir comment cela est possible.

Pour finir, je veux créée une macro pour insérer des images au niveau de la fiche action en automatique à partir de liens hypertextes présent dans la feuille document unique au niveau des images du risque. Après plusieurs recherches sur ce site, les solutions proposées ne fonctionnent pas dans mon cas car il ne reconnait pas les photos que je recherche.

Je vous remercie par avance des réponses que vous pouvez m'apporter

Les fichiers joints sont là pour vous montrer un doc de base

 

[Gurgeh]

Re : problème sur deux macros importantes pour mon projet

Salut laurentGV,

Pour répondre à ta première question sur la macro archivage :

For i = 1 To 2
Sheets("Document unique").Rows(n).EntireRow.Delete
Next i

Je ne comprends pas bien pourquoi tu fais une boucle pour effacer deux lignes ? Si j'ai bien compris ce que tu veux faire, une ligne devrait suffire, et cela explique sans doute pourquoi tu n'obtiens pas le résultat escompté.

Gurgeh

 

[laurengv]

Re : problème sur deux macros importantes pour mon projet

tout d'abord merci pour la rapidité de ta réponse.

Le fait qu'il peut y avoir plusieurs lignes à supprimer d'un coup m'a fait penser à cette ligne. Pourrais tu me dire à quoi tu pense pour résoudre ce problème.
Et franchement encore merci de regarder mon problème. ca fait trois semaines que je suis dessus.

 

[Gurgeh]

Re : problème sur deux macros importantes pour mon projet

Mets juste ça

Sheets("Document unique").Rows(n).EntireRow.Delete

et ça devrait mieux marcher.

Pour la suite, je regarde demain !

Gurgeh

 

[laurengv]

Re : problème sur deux macros importantes pour mon projet

Merci cela fonctionne comme je le souhaite je vais essayer de l'adapter pour faire la meme chose sur le restz des feuilles et l associer a un bouton