XL 2019 Aide formule alerte

[Fidmo]

Bonsoir à Tous. J'espère que vous allez bien,
J'ai besoin d'aide.
Merci de me trouver une fonction d'alerte rouge dans la colonne (D4) lorsque:
La date de fin colonne (D) dépasse de 10 jours la date de début colonne (C).
J'espère avoir été claire. Et Mille mercis par avance.
Fidwa.

 

[Fidmo]

Bonsoir Vgendron,
Un grand merci pour votre réponse, néanmoins je suis employée commerçante ne connaissant rien en Excel. Ce qui m'oblige à quémander les connaissances des experts comme vous. Pourriez-vous m'aider encore une fois avec mon fichier résoulu ?
Merci toujours. Fidwa

 

[vgendron]

Quand on débute, oui, normal de demander de l'aide.. mais la. ca fait au moins 9 ans (ton inscription en 2016) que tu utilises excel.. j'ose espérer que tu as quand meme appris la base du logiciel..
c'est un peu comme si tu me disais que tu as passé le permis de conduire il y a 30 ans, mais tu ne sais toujours pas comment faire pour passer les vitesses...

 

[Fidmo]

Re
Oh ! Vous savez j'ai plus de 70 ans et originaire d'un pays pas comme le votre ! ...

 

[vgendron]

Re
Oh ! Vous savez j'ai plus de 70 ans et originaire d'un pays pas comme le votre ! ...

ah oui la. effectivement;. vous avez l'excuse imparable pour etre fainéant et attendre du tout cuit !

 

[Fidmo]

Re
Là terminé. Je n'ai plus besoin de votre non-aide !
Pas de remerciement. Je signe et ferme la discussion.
Fidwa

 

[vgendron]

Re
Là terminé. Je n'ai plus besoin de votre non-aide !
Pas de remerciement. Je signe et ferme la discussion.
Fidwa

Dans ce cas, je supprime mon post de non aide puisque ca ne sert à rien

 

[Fidmo]

Comme cela vous laisserez intervenir les âmes charitables ...

 

[Nicolas JACQUIN]

Bonjour à tous, pas trop compris votre conversation, mais voici une réponse

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim ligne As Long
    Dim dateDebut As Variant, dateFin As Variant

    ' Vérifie si le changement est dans la colonne C ou D (date début ou date fin)
    If Intersect(Target, Me.Columns("C:D")) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    For Each cell In Intersect(Target, Me.Columns("D"))
        ligne = cell.Row
        dateDebut = Me.Cells(ligne, "C").Value
        dateFin = Me.Cells(ligne, "D").Value

        If IsDate(dateDebut) And IsDate(dateFin) Then
            If dateFin - dateDebut > 10 Then
                cell.Interior.Color = RGB(255, 0, 0) ' Rouge
            Else
                cell.Interior.ColorIndex = xlNone ' Supprime la couleur si condition non remplie
            End If
        End If
    Next cell

    Application.EnableEvents = True
End Sub

et le fichier

Nicolas

 

[Fidmo]

Bonsoir Nicola JACQUIN.
Je vous remercie pour votre super boulot, cela me convient parfaitement vous êtes génial, mille mercis à ces superes âmes charitables et coeurs qui existent dans ce génial site, pour réaliser le bonheur des gens comme moi.
Trés bonnne journée/soirée à tous. Et encore merci Nicola JACQUIN, amicalement.

 

[Nicolas JACQUIN]

Marqué résolu pour clôturer 😉

 

[job75]

Bonjour à tous,

Puisqu'il s'agit seulement de colorer les Application.EnableEvents sont inutiles.

Et en fait le VBA est aussi inutile puisque la couleur peut être appliquée par MFC.

A+

 

[Fidmo]

Bonsoir Cher Job75
Très heureuse de votre aide comme toujours !!!
Pourriez-vous élaborer mon fichier sans VBA ?
Vous élaborerez encore fois une âme heureuse.
Dans l'attente de votre aide comme toujours !!!
Fidwa

 

[job75]

Formule de la MFC sur la colonne D =D1>=C1+10

Je pense que c'est la solution qu'avait fournie vgendron.

 

[Fidmo]

Bonsoir Job75.
Un grand merci pour avoir eu le temps de me répondre, grand homme de valeur de ce beau Forum.
Trés bonnne journée. Amicalement.
Fidwa.