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

[sebbbbb]

Bonjour a tous

voilà bien longtemps que je ne suis pas venu ici 🙂

je fais appel a mes amis experts excel pour resoudre cette enigme...

Comment réaliser un changement automatique de la couleur d'un onglet ( qui devient jaune), si une des cellules d'un tableau (a10:f25) n'est plus vide svp ?

si aucune cellule d'un tableau n'est remplie, alors la couleur de l'onglet est la couleur par défaut

un grand merci par avance a vous tous

cdlt
seb

 

[Cousinhub]

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....

 

[Nain porte quoi]

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.

 

[Oneida]

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.

 

[job75]

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+

 

[Oneida]

Re,
Si ca lui suffit, ok

 

[sebbbbb]

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 🙂

 

[sebbbbb]

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 🙂

 

[job75]

Bonjour sebbbbb,

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

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+

 

[sebbbbb]

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