Discussion :

[toushusss]

Bonjour à toutes et tous,
J'ai essayé de saisir une macro qui me permettrai de changer la couleur de l'onglet Feuil en fonction d'une valeur dans un tableau.
Si une valeur dans la colonne B est > 4 l'onglet passe en rouge.
Si les valeurs dans la colonne B sont <4 l'onglet passe au vert.
Le problème est que rien ne se passe quand je rentre des valeurs dans ma colonne.
Pourriez-vous m'aider s'il vous plait.

Ci joint mon fichier test.

Cordialement

[Philippe Tulliez]

Bonjour,
Je n'ouvre jamais les classeurs joints.
Cependant vos explications me semble suffisantes pour vous apporter une réponse

Exemple d'une procédure événementielle qui modifie la couleur de l'onglet où se trouve le code à condition que la valeur modifiée se trouve dans la colonne nommée Qté de la table structurée nommée t_commande
La couleur de l'onglet sera rouge si la quantité entrée est supérieure à 100 et passera au vert dans le cas contraire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Application.Intersect(Me.ListObjects("t_commande").ListColumns("Qté").DataBodyRange, Target) Is Nothing Then
      With Me.Tab
       If Target.Value > 100 Then .Color = vbRed Else .Color = vbGreen
      End With
   End If
End Sub

[toushusss]

Merci M. Tulliez,
Désolé mais mon niveau en VBA ne me permet pas de comprendre entièrement votre code. En particulier sur la table structurée. Je vois le principe mais je n'arrive pas à l'appliquer à mon cas.
Voici mon code que je souhaite faire tourner simplement sur une colonne B de B3 à B7.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ThisWorkbook()
Dim i As Integar
For i = 3 To 7
 
 If Cells(i, 3) > 4 Then 'Si la valeur est sup à 4 ...
        With ActiveWorkbook.Sheets("Feuil").Tab
        .Color = 255 'Onglet feuil1 en rouge
        .TintAndShade = 0
    End With
    Else 'Si la valeur est inférieur à 4 ...
        With ActiveWorkbook.Sheets("Feuil1").Tab
        .Color = 5287936 'onglet feuil1 en vert
        .TintAndShade = 0
    End With
    End If
End Sub

Mais encore merci pour votre réponse.

[Philippe Tulliez]

Bonjour,
Pour comprendre les tableaux structurés, voir ci-dessous le lien 1, pour comprendre ce qu'est une procédure événementielle voir les liens 2 et éventuellement le 3

1. Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
2. Les évènements dans la feuille de calcul Excel
3. Les évènements du module objet ThisWorkbook, dans Excel

[BENNASR]

avec un code
peut être ça t'aide à avancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim cel As Range
X = 0
For Each cel In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
If cel.Value > 4 Then X = X + 1
Next cel
If X = 0 Then
     ActiveWorkbook.Sheets("Feuil1").Tab.Color = vbGreen
Else
    ActiveWorkbook.Sheets("Feuil1").Tab.Color = vbRed
End If
End Sub