Changer la couleur d'un onglet EXCEL selon conditions Résolu/Fermé

Question

Bonjour, 

Je remplie via une formule plusieurs cellules par page. Si toutes ces cellules sont "valide" alors la couleur de l'onglet doit être verte. 
Si une seule est "non valide" alors l'onglet doit être de couleur rouge 
Si certaine ne sont pas rempli, l'onglet ne change pas de couleur. 

Je souhaite faire cela via VBA. 
M'avez vous un code simple pour cela ? Je suis un novice. 
Je vous remercie  

Configuration: iPad / Safari 6.0

Zoul67 · Answer

Bonjour,

Les "conditions" pour attribuer la couleur sont trop vagues pour qu'on te fournisse un code tout fait, mais tu peux t'inspirer d'autres sujets approchants, p. ex. : https://forums.commentcamarche.net/forum/affich-12887761-excel-couleur-onglet-en-fonction-cellule

Tom188 · Answer

Merci.

En fait, je remplis dans un fichier si l'agent en question à passé la formation.
Une fois Date, type et état rempli, une cellule se met "Valide".
Si une de ces 3 cellules n'est pas remplie, il met 'Non Valide'.
Si rien n'est rempli, il laisse vide.

C'est cette cellule qui change (il y en a donc plusieurs, une pour chaque formation), qui doit etre prise en compte.

Dans la page, une fois toutes les formations "Valide", l'onglet doit devenir vert.

Tom188 · Answer

J'ai essayé quelque chose comme :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then
    If Target.Value = VALIDE Then
        ActiveSheet.Tab.ColorIndex = 3
        Else
        ActiveSheet.Tab.ColorIndex = xlNone
    End If
End If
End Sub

Qui ne prend évidemment pas toutes les conditions mais quand je l'execute, EXCEL me demande de créer une macro et ainsi je ne peux pas la faire fonctionner. Je dois mal m'y prendre pour ouvrir ou enregistrer une macro sou worksheet_change

Tom188 · Answer

Au temps pour moi. 

Par exemple je remplis : D7(type de formation), D8(date), et D9 (valide, non valide) et ainsi B9 se remplis "Valide" (seulement si les 3 sont remplies). 
Si D7 et ou D8 ne sont pas remplies, alors B9 reste vierge. 

Si D9 est remplie "Non Valide" alors B9 est également remplie en "Non Valide". 
C'est en fonction de B9 que doit être choisie la couleur de l'onglet car il prend en compte toutes les conditions. 

Ceci est pour une formation, pareil pour D10, D11et D12 ou B12 se remplie en fonction. 

Une fois que B9 et B12 sont "Valide" l'onglet doit être vert. Si l'un des deux est vierge, l'onglet ne change pas. Si l'un des deux ou tous sont "Non Valide" l'onglet doit être rouge.

Tom188 · Answer

Je rajouterais qu'il est important de prendre B9 et B12 en référence car lorsque je rajoute une date de recyclage pour la formation en E7, E8 et E9 par exemple => B9 prend la dernière valeur, soit E9 et plus D9 pour inscrire "Valide" ou "Non Valide"

En lançant la macro, l'onglet doit soit rester au vert ou virer au rouge si l'agent n'est plus valide.

Zoul67 · Answer

Bon, t'as essayé un truc mais tu pars de loin, j'ai l'impression...
Colle ceci dans "ThisWorkbook" dans l'éditeur VBA : 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If (ActiveSheet.Cells(9, 2) = "Valide" And ActiveSheet.Cells(12, 2) = "Valide") Then
        ActiveSheet.Tab.ColorIndex = 10 'vert
    ElseIf (ActiveSheet.Cells(9, 2) = "Non Valide" Or ActiveSheet.Cells(12, 2) = "Non Valide") Then
        ActiveSheet.Tab.ColorIndex = 3 'rouge
    Else
        ActiveSheet.Tab.ColorIndex = 1 'noir
    End If
End Sub
Une macro est soit exécutée à la demande (Alt+F8 ou bouton), soit s'exécute automatiquement. Pour ce deuxième moyen, il y a des noms de procédures réservés correspondant à l'action qui la déclenche ; dans ce cas, tout changement de sélection dans une feuille.
On peut adapter le code pour que les onglets se mettent tous dans la bonne couleur lors de la sauvegarde uniquement...

PS : Salutations à pijaku

Tom188 · Answer

Ca fonctionne plutôt bien merci bcp.

Imaginons qu'au lieu d'avoir juste B9 et B12 j'ai également B15, B18 ... B48

Je ne peux pas tout copier dans une seule ligne, ça bloque à un moment.
Sinon ça fonctionne.
J'avais un peu minimiser le pbm pour que ce soit plus simple à expliquer pour moi ... ;)

Tom188 · Answer

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 If (ActiveSheet.Cells(9, 2) = "VALIDE" And ActiveSheet.Cells(12, 2) = "VALIDE" And ActiveSheet.Cells(15, 2) = "VALIDE" And ActiveSheet.Cells(18, 2) = "VALIDE" And ActiveSheet.Cells(21, 2) = "VALIDE" And ActiveSheet.Cells(24, 2) = "VALIDE" And ActiveSheet.Cells(27, 2) = "VALIDE" And ActiveSheet.Cells(30, 2) = "VALIDE" And ActiveSheet.Cells(33, 2) = "VALIDE" And ActiveSheet.Cells(36, 2) = "VALIDE" And ActiveSheet.Cells(39, 2) = "VALIDE" And ActiveSheet.Cells(42, 2) = "VALIDE" And ActiveSheet.Cells(45, 2) = "VALIDE" And ActiveSheet.Cells(48, 2) = "VALIDE") Then
        ActiveSheet.Tab.ColorIndex = 10 'vert
    ElseIf (ActiveSheet.Cells(9, 2) = "NON VALIDE" Or ActiveSheet.Cells(12, 2) = "NON VALIDE" Or ActiveSheet.Cells(15, 2) = "NON VALIDE" Or ActiveSheet.Cells(18, 2) = "NON VALIDE" Or ActiveSheet.Cells(21, 2) = "NON VALIDE" Or ActiveSheet.Cells(24, 2) = "NON VALIDE" Or ActiveSheet.Cells(27, 2) = "NON VALIDE" Or ActiveSheet.Cells(30, 2) = "NON VALIDE" Or ActiveSheet.Cells(33, 2) = "NON VALIDE" Or ActiveSheet.Cells(36, 2) = "NON VALIDE" Or ActiveSheet.Cells(39, 2) = "NON VALIDE" Or ActiveSheet.Cells(42, 2) = "NON VALIDE" Or ActiveSheet.Cells(45, 2) = "NON VALIDE" Or ActiveSheet.Cells(48, 2) = "NON VALIDE") Then
        ActiveSheet.Tab.ColorIndex = 3 'rouge
    Else
        ActiveSheet.Tab.ColorIndex = 1 'noir
    End If
End Sub

Mon résultat pour le moment.

pijaku · Answer

Bonjour,

Une syntaxe, peut être plus facile à adapter :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim RngPlageVal As Range, RngCel As Range
Dim Valid As Integer, NonValid As Integer

'Ce Range peut être facilement adapté :
Set RngPlageVal = Range("B9,B12,B15,B18, B21,B24,B27,B30,B33,B36,B39,B42,B45,B48")

'On va boucler sur toutes les cellules du Range et compter
'les "valide" et "non valide". 
For Each RngCel In RngPlageVal
    If RngCel.Value = "VALIDE" Then Valid = Valid + 1
    If RngCel.Value = "NON VALIDE" Then NonValid = NonValid + 1
Next
'si le nombre de cellules valides = Nombre de cellule de notre plage
'Autrement dit : Si toutes les cellules de notre plage sont "valides"
 If Valid = RngPlageVal.Cells.Count Then  
    'alors vert
    ActiveSheet.Tab.ColorIndex = 10 'vert
'Si Une et Une seule cellule est Non Valide Alors
ElseIf NonValid = 1 Then
    ActiveSheet.Tab.ColorIndex = 3 'rouge
'Dans tous les autres cas : 
Else
    ActiveSheet.Tab.ColorIndex = 1 'noir
End If
End Sub 
 
Cordialement,
Franck

Tom188 · Answer

Cela fonctionne également.

Je n'arrive cependant pas à la faire fonctionner pour les onglets n'ayant par exemple que B9,B12,B15,B18, B21,B24,B27,B30,B33,B36

Car les B39,B42,B45,B48 n'étant pas remplis, l'onglet reste au noir.

Dois je copier la formule dans les code de chaque page et l'adapter ?
Je vous remercie.

J'ai déjà énormément avancé.

Changer la couleur d'un onglet EXCEL selon conditions

10 réponses

Discussions similaires