Dates et mise en forme conditionnelles

Bonsoir à tous...

Nouveau challenge non résolu.... Je me permets de solliciter votre aide.

Voila j'ai un tableau avec une base forfait qui peut être augmenté. Logiquement j'ai la réponse sous 21 jours pour cette augmentation. Je voudrais pouvoir visualiser d'une couleur les demandes qui ont dépassées 21 jours. J'ai donc en colonne "C" des dates. J'aimerais donc que quand cette date soit dépassée de 21 jours ces 5 colonnes se colorent... Je n'ai pas réussi à colorer les 5 colonnes en même temps .

Un petit fichier pour vous montrer...

Merci de votre aide les VBAistes

Bonne soirée

Bonsoir,

=ET($C2<>"";$C2<AUJOURDHUI()+21)

Cordialement.

Super Merci !

j'avais oublié les non vides et les parenthèses de aujourd'hui ...

Si jamais je veux que la sélection "oui" dans la colonne "validation de la commande" annule la couleur bleue et face en colonne 1 la somme de la colonne 1 et 2, il faut obligatoirement du code vba?

Pour la couleur, une condition de plus dans la formule :

=ET($C2<>"";$C2<AUJOURDHUI()+21;$E2<>"oui")

Pour le total, si le forfait est fixe, on peut mettre une formule en A, sinon il faudrait une colonne supplémentaire, ou passer par VBA.

Merci !

Le forfait n'est pas fixe, donc ca va être en code ...

Si je veux qu'en choisissant "oui" la colonne forfait additionne le forfait actuel et la nouvelle demande ( "augmentation demandée") tout en vidant toutes les autres colonnes, qu'est ce que cela donnerai en code? Est ce que je peux reussir à essayer de créer un formule simple pour juste l'addition dans ce cas?

Merci pour ton aide tu me permets d'avoir des outils plus fonctionnel

Bonjour,

C'était avant que je m'absente momentanément du Forum, et pour une raison quelconque j'ai loupé la réponse. Désolé...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim n%
    If Target.Count > 1 Or Target.Row = 1 Then Exit Sub
    If Target.Column = 5 And Target = "oui" Then
        n = Target.Row
        With Me.Cells(n, 1)
            If .Value <> "" Then
                .Value = .Value + .Offset(, 1)
                .Offset(, 1).Resize(, 3).ClearContents
            Else
                Target.ClearContents
            End If
        End With
    End If
End Sub

Macro évènementielle qui se place dans le module de la feuille.

Cordialement.