Macro excel
Bikepro
-
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
gbinforme Messages postés 14930 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je souhaite utiliser une macro et non un TCD pour faire le travail suivant : je dois faire un statut de projet dont le recap est dans l’onglet 1 et qui va chercher des données des autres onglets selon le sujet traité. Pour la partie livrable, je souhaite faire une macro qui va chercher dans l’onglet Deliverables tous les livrables qui ont Y d’indiqué dans la colonne Critical Path (5ème colonne de l’onglet), qui va afficher le nom du livrable dans mon onglet 1 au niveau de la partie Deliverables qui commence à la ligne 35 de l’onglet 1. La macro doit donc passer au travers du tableau qui est dans l’onglet Deliverables pour que tous les livrables qui ont Y pour Critical Path s’affiche les uns à la suite des autres dans l’onglet 1
je souhaite utiliser une macro et non un TCD pour faire le travail suivant : je dois faire un statut de projet dont le recap est dans l’onglet 1 et qui va chercher des données des autres onglets selon le sujet traité. Pour la partie livrable, je souhaite faire une macro qui va chercher dans l’onglet Deliverables tous les livrables qui ont Y d’indiqué dans la colonne Critical Path (5ème colonne de l’onglet), qui va afficher le nom du livrable dans mon onglet 1 au niveau de la partie Deliverables qui commence à la ligne 35 de l’onglet 1. La macro doit donc passer au travers du tableau qui est dans l’onglet Deliverables pour que tous les livrables qui ont Y pour Critical Path s’affiche les uns à la suite des autres dans l’onglet 1
2 réponses
-
Bonjour,
Comme l'on ne connait pas du tout la structure de ton classeur, l'on ne peut pas te proposer de code.
Par contre, si tu suis ton raisonnement sur ton classeur, après avoir lancé l'enregistreur de macro, cela va te fournir un canevas que tu n'auras plus qu'à modifier en rajoutant les boucles. -
Sub Macro3()
'
' Macro3 Macro
'
'
ActiveCell.FormulaR1C1 = _
"=IF('04-Deliverables'!R[-27]C[4]=""Y"",'04-Deliverables'!R[-27]C[1],FALSE)"
End Sub
