Macro et couleurs de MFC

Bonjour,
Que fait-on si les 3 cellules A2 sont coloriées ?

Salut,

comme ce sont des si, si la première condition est remplie, ça désactive les suivantes.
on regarde d'abord pour la feuille, si oui alors on active, sinon on regarde la feuille 2 et ainsi de suite.

Bonjour,
Oui d'accord avec les SI , mais le [si] de MFC de la feuille 1 n'a pas d'influence sur la MFC des autres, donc les cellules A2 peuvent être toutes colorées !

Bonjour,
Je reviens encore une fois, les cellules [A2] des feuilles 1, 2 et 3 peuvent être colorées, dans ce cas qu'elle est la feuille à activer dès l'ouverture.
C'est votre problème, la procédure à mettre dans [ThisWorkbook], active la feuille dont A2= rouge.

Private Sub Workbook_Open() 
Dim sh As Worksheet 
For Each sh In Worksheets 
    If sh.Range("A2").Interior.Color = 255 Then 
        sh.Activate 
        Exit Sub 
    End If 
Next sh 
End Sub 

Salutations.
Le Pingou

Bonjour,
Ceci : comme je l'avais mis dans le message 1

et la suite :
si la cellule A2 de la feuille 1 est coloriée par une MFC alors activer la feuille 1
sinon si la cellule A2 de la feuille 2 est coloriée par une MFC alors activer la feuille 2
sinon si la cellule A2 de la feuille 3 est coloriée par une MFC alors activer la feuille 3

De ce fait, la procédure proposée se base sur la cellule A2 de chaque feuille et en plus comme vous ne mentionnez aucune couleur de fond, j'ai par défaut pris le rouge.
Ma procédure marche très bien, je l'ai testé, bien entendu avec la couleur rouge(code=255).

Salutations.
Le Pingou

Bonjour,
Au minimum il faudrait quand même contrôler qu'elle est le code de votre couleur et remplacer le mien (255) par le votre.
Au passage, pour ouvrir la feuille 1 si pas de rouge, vous ajoutez la ligne ci-après( entre [Next sh] et [End Sub] )

Sheets("Feuil1").Activate

Salutations.
Le Pingou

Bonjour,
Il y a certainement une erreur chez vous,
la procédure est-elle dans [ThisWorkbook] .... oui/non
Est-ce bien la cellule [A2] de chaque feuille qui à la couleur de fond ...oui/non

C'est aussi possible de mettre une copie du classeur sur https://www.cjoint.com/

Bonjour,
J'ai juste remplacé le code [vbred] (n'est pas valable) par 255, plus l'instruction pour ouvrir sur feuille 1 si pas de rouge.
Cela fonctionne correctement à l'ouverture : https://www.cjoint.com/?fosu6jxBYW

Bonjour,
Oui à l'ouverture sur la feuille 3.
Je suppose que vous avez activé les macros suite à l'avertissement de sécurité, sinon rien ne fonctionne ?

Re,

j'aurais besoin d'aide pour faire la macro avec les formules parce que là non plus j'y arrive pas!

voilà ce que j'ai mis :
Dim sh As Worksheet
For Each sh In Worksheets
If (D2 - Date) = 0 Then
sh.Activate
End If
Next sh
For Each sh In Worksheets
If (D2 - Date) >= 1 And (D2 - Date) < 10 Then
sh.Activate
End If
Next sh
For Each sh In Worksheets
If (D2 - Date) >= 10 And (D2 - Date) <= 15 Then
sh.Activate
End If
Next sh
Sheets("Feuil1").Activate

pour expliquer cette macro.
il faut regarder sur toutes les feuilles si D2-aujourdhui()=0 (MFC rouge)
la première qui est trouvée avec cette condition, doit être activée.
ensuite il faut regarder sur toutes les feuilles si et(D2-aujourdhui()>=1;D2-aujourdhui()<10) (MFC jaune)
la première qui est trouvée avec cette condition, doit être activée.
enfin il faut regarder sur toutes les feuilles si et(D2-aujourdhui()>=10;D2-aujourdhui()<=15) (MFC verte)
la première qui est trouvée avec cette condition, doit être activée.
sinon, activer la feuille 1.

j'espère que la macro retranscrit effectivement ce que je souhaite faire.
mais là encore problème car avec ce que j'ai, le classeur devrait s'ouvrir sur la feuille 2 puisque qu'il y a du jaune en ligne 2.

merci pour votre aide.

Pas le temps de regarder dans le détail mais déjà :
- remplace D2 par sh.[D2]
- inverse tes tests pour finir par le plus important, ou bien positionne un flag pour ne pas réaliser les suivants si la condition est réalisée.
- ajoute application.screenupdating=false au début pour éviter le clignotement des pages (remettre à true à la fin)
eric

Sans tester et en gardant la structure de ton exemple ça devrait plus s'approcher de ça :

Sub test()
    Dim sh As Worksheet, ok As Boolean
    Sheets("Feuil1").Activate
    For Each sh In Worksheets
        If (sh.[D2] - Date) = 0 Then
            sh.Activate
            ok = True
            Exit For
        End If
    Next sh
    If Not ok Then
        For Each sh In Worksheets
            If (sh.[D2] - Date) < 10 Then
                sh.Activate
                ok = True
                Exit For
            End If
        Next sh
    End If
    If Not ok Then
        For Each sh In Worksheets
            If (sh.[D2] - Date) <= 15 Then
                sh.Activate
                Exit For
            End If
        Next sh
    End If
End Sub

eric