Re : Obtenir une liste à partir de plusieurs onglets (feuilles)
Bonjour DoubleZero, Staple1600, mapomme, le forum;
Malgré votre précieuse aide et orientations, mon problème n'est toujours pas réglé. Il faut dire que j'ai omis de signaler, dès le début, que je n'ai aucune base dans la programmation en VBA...
J'ai effectué des recherches sur UserInterfaceOnly qui permet de faire rouler des macros sur des feuilles protégées. J'ai rajouté donc cet argument dans la protection de mes feuilles, qui permet également d'afficher et de masquer des lignes groupées. Dans ThisWorkbook, cela donne:
Private Sub Workbook_Open()
With Worksheets("F1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="MCDS", UserInterfaceOnly:=True
.
.
. (voir macro complète en PJ).
Malheureusement, cela n'a pas donné de résultat et le message d'erreur 1004 apparait à l'exécution de la macro (Module 1).
J'ai ajouté cet argument dans la macro se trouvant dans chaque feuille, et qui permet d'insérer des commentaires dans les cellules déverrouillées d'une feuille protégée, mais en vain:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Locked Then
ActiveSheet.Unprotect Password:="MCDS", UserInterfaceOnly:=True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect Password:="MCDS", UserInterfaceOnly:=True
End Sub
J'ai également rajouté la dé-protection au sein du code vba (ActiveSheet.Unprotect ("password")) en vain (voir le code complet dans le module 1 de la PJ).
Enfin, je voulais savoir s'il y a moyen qu'il n'y ait aucune mise en forme des résultats de la macro, dans le sens ou, par exemple, si j'ai un remplissage jaune dans les feuilles d'origine, dans la feuille synthèse je n'aurais aucune couleur?.
Je me demandais, en définitive, s'il y avait un autre moyen qu'une macro pour obtenir les mêmes résultats? Avec des fonctions matricielles par exemple... J'avoue que je reste fasciné par l'efficacité des macros offertes ci-dessus.
Merci de votre précieuse aide.
H.