XL 2010 changement de la couleur d'un onglet (jaune), si une des cellules d'un tableau n'est plus vide sinon l'onglet garde sa couleur d'origine

Cousinhub

XLDnaute Barbatruc

• 24 Mai 2025

• #16

Hello,
Dire que Gérard a raison, Why not...
Ce qu'il propose, j'en ai déjà parlé (avec le code)
Mais surtout, quel intérêt de modifier la couleur de l'onglet "ACTIF"????
Vous avez fait le test?
Aucun intérêt....

 

Vote positif 0 Vote négatif

N

Nain porte quoi

XLDnaute Occasionnel

• 24 Mai 2025

• #17

Hello,

au lieu de protéger la feuille et de la déprotéger (ce qui est risqué car le mot de passe est donc en clair dans la classeur) pourquoi ne pas la protéger contre les manips manuelle mais pas contre le VBA ?
Worksheets("nom_Feuille").Protect Password:="cequevousvoulez", UserinterfaceOnly:=True et c'est à faire une seule fois. Les instructions VBA peu vent toujours changer la couleur de la feuille (si la structure du classeur n'est pas protégée bien sûr) mais pas l'utilisateur.

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 25 Mai 2025

• #18

Bonjour a tous,

Job75: post#4
Aucun interes a proteger un classeur si les feuilles ne sont pas protegees.
Les "fausses maneuvres des collegues" ne se limitent pas a l'ajout/suppression feuilles
Ce n'est qu'un simple avis, en effet le gars ne se soucis que de la protection classeur.

 

Dernière édition: 25 Mai 2025

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mai 2025

• #19

Bonjour le forum,

@Nain porte quoi il ne s'agit pas ici de protection de feuille mais de classeur

@Oneida la protection du classeur évite par exemple de modifier manuellement les couleurs des onglets...

A+

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 25 Mai 2025

• #20

Re,
Si ca lui suffit, ok

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 26 Mai 2025

• #21

Bonjour
a tous. Merci
la solution de Gerard est parfaite et me convient totalement.
en effet c'était bien le classeur qui était protégé. la feuille elle restant libre d'accès
Merci infiniment pour le temps passé
encore une fois vous êtes bien les "experts" Excel
au plaisir 🙂

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 26 Mai 2025

• #22

bonjour Gérard
puis je permettre une dernière petite question ?
le code est parfait pour le tableau (a10:f25)
je voudrais qu'il s'applique également a (a31:d43)
le code peut il etre adapté stp ?
merci infiniment 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mai 2025

• #23

Bonjour sebbbbb,

sebbbbb à dit:

le code est parfait pour le tableau (a10:f25)
je voudrais qu'il s'applique également a (a31:d43)

Cliquez pour agrandir...

VB:

Private Sub WorkSheet_Change(ByVal Target As Range)
ThisWorkbook.Unprotect "toto" 'mdp à adapter
Me.Tab.ColorIndex = IIf(Application.CountA([A10:F25,A31:D43]), 6, xlNone)
ThisWorkbook.Protect "toto"
End Sub

A+

 

Vote positif 0 Vote négatif

sebbbbb

XLDnaute Impliqué

• 26 Mai 2025

• #24

C est parfait...comme d habitude 🙂
Merci infiniment

 

Vote positif 0 Vote négatif