Colorer Onglet si cellule non vide

[hypo78]

Bonjour,

je souhaiterai colorer les onglets de mon classeur dont la cellule AF2 contient une valeur.

je pensais à un code du genre :

Sub colorer_onglet()
Dim Ws As Worksheet
For Each Ws In Workbooks
If Range("AF2") <> "" Then Ws.Tab
        .Color = 255
        .TintAndShade = 0
    End With
Next
End Sub

mais il me colore que l'onglet "1", un problème de boucle?

merci d'avance

 

[Papou-net]

Re : Colorer Onglet si cellule non vide

Bonjour hypo78,

Peut-être comme ceci :

Sub colorer_onglet()
Dim Ws As Worksheet
For Each Ws In Workbooks
    If Ws.Range("AF2") <> "" Then
        With Ws.Tab
            .Color = 255
            .TintAndShade = 0
       End With
    End If
Next
End Sub

Cordialement.

 

[Guest]

Re : Colorer Onglet si cellule non vide

Bonjour,

Il est temps d'apprendre les bases de la programation des objets excel.
Une propriété est attachée à un objet
Quand on veut modifier une propriété il faut indiquer à quel objet elle se ratache.
Objet.Propriété= Valeur
Pour faire référence à un objet et modifier plus de ses propriétés ou les propriété de ses sous-objet il y a With...End With

Sub colorer_onglet()
    Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        With Ws 'Objet Feuille
            If .Range("AF2") <> "" Then
                With .Tab 'Objet Tab fils de l'objet feuille
                    .Color = 255
                    .TintAndShade = 0
                End With
            End If
        End With
    Next
End Sub

A+

 

[hypo78]

Re : Colorer Onglet si cellule non vide

Bonjour à tous les 3,

vos 3 codes fonctionnent. merci hasco pour les conseils, mais je suis encore dans ma phase découverte de la,programmation.

Cordialement.

Encore merci