Contenu récent par Seb63

Re : VBA - macro afficher/masquer feuille selon couleur de l'onglet Option Explicit Dim O As Worksheet Sub Violet_masquer() For Each O In Worksheets If O.Tab.ColorIndex = 13 Then O.Visible = xlSheetHidden Next End Sub Sub Violet_afficher() For Each O In Worksheets...

Re : VBA - macro afficher/masquer feuille selon couleur de l'onglet ça on est d'accord si la macro était sur chaque feuille, mais ce que je veux c'est une macro par couleur sur la feuille PROTECTION (via un module), qui vérifiera la couleur de chaque onglet et masquera ou affichera ceux de la...

Bonjour à tous, je cherche à créer une macro me permettant de masquer et afficher les feuilles uniquement à partir de la couleur des onglets (et surtout pas en utilisant leur nom -> trop variable) l'idée étant d'activer les macro avec l'aide de bouton déjà créé dans la feuille intitulé...

Re : Aide - VBA - cacher/afficher feuille automatiquement Merci à tous pour votre aide, normalement tout est désormais opérationnel. Ce qui donne : Page de garde Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Synthèse").Unprotect If Target.Address <> "$C$28" Then Exit...

Re : Aide - VBA - cacher/afficher feuille automatiquement merci pour la méthode mais concrétement j'écris quoi dans le code ? ^^

Re : Aide - VBA - cacher/afficher feuille automatiquement Bonjour, avez-vous une idée pour ce probléme de protection de page ?

Re : Aide - VBA - cacher/afficher feuille automatiquement Ma feuille synthèse est "protégé" au vu des formules qu'elle contient, mais quand j'active la protection, la VBA me dit : "Erreur d'exécution '1004': Impossible de définir la propriété Hidden de la classe Range :FIN/DEBOGAGE le...

Re : Aide - VBA - cacher/afficher feuille automatiquement PARFAIT !!!! la formule ne fonctionnait pas car elle faisait référence à D28 au lieu de C28 mais une fois rectifié l'exécution est optimale. Merci à tous

Re : Aide - VBA - cacher/afficher feuille automatiquement ça pose un petit problème... (en tout cas merci pour votre aide)

Re : Aide - VBA - cacher/afficher feuille automatiquement Ce qui donne : Private Sub Worksheet_Change(ByVal R As Range) Rows("6:26").Hidden = False Rows("9:26").Hidden = Sheets("Page de garde").[D28] = 1 Rows("11:26").Hidden = Sheets("Page de garde").[D28] = 2 Rows("13:26").Hidden...

Re : Aide - VBA - cacher/afficher feuille automatiquement pas de résultat non plus... :/

Re : Aide - VBA - cacher/afficher feuille automatiquement Comme cela ? : Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = 0 Rows("6:26").EntireRow.Hidden = False x = Sheets("Page de garde").Range("D28").Value Rows(7 + 2 * x & ":26").EntireRow.Hidden =...

Re : Aide - VBA - cacher/afficher feuille automatiquement est-ce que ça répond à ta question sur le module ? pas de message d'erreur, mais pas non plus d'effet sur la feuille

Re : Aide - VBA - cacher/afficher feuille automatiquement Je me trouve sur la page synthèse où je veux que s'exécute mon code, par conséquent le code devrait être le suivant d'après tes indications : Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = 0...

Re : Aide - VBA - cacher/afficher feuille automatiquement Désolé mais je ne sais pas comment intégrer cette partie de code dans le mien... je débute en VBA