Créer une alerte

Bonjour à tous, je souhaite créer une alerte suite à une date limite dépassé. j'ai écris le code suivant :

Private Sub CommandButton5_Click()

Feuil8.Activate

If Range("D2").Value < Range("k2") Then

Range("F5").Value = "Alerte"

End If

End Sub

le code marche mais seulement pour les cellules que j'ai désigné dans le code. Je voudrais généralisé ce code pour que ça me créer

une alerte à chaque fois que la date d'une cellule de la colonne D est inférieur à la date du jours dans la colonne K. Je vous rermercie par avance pour votre aide.

Bonjour

Essaie ça :

Sub ess()
    Dim cell As Range
    Feuil1.Activate
    For Each cell In Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
        If cell <> "" And cell < Range("k2") Then
            Range("F5").Value = "Alerte"
        End If
    Next cell
End Sub

Bye !

je te remercie gmb,

j'ai légèrement modifier ton code pour qu'il correspondent à ce que je veux mais il y a toujours un petit soucis. le code (avec modification) :

Dim cell As Range

Feuil8.Activate

For Each cell In Range("D2,D500" & Range("D" & Rows.Count).End(xlUp).Row)

If cell <> "" And cell < Range("K3") Then

Range("F2", "F500").Value = "Alerte"

End If

Next cell

End Sub

avec ce code les alertes sont mis sauf qu'il en met dans toutes les cellules de la colonne F. comment je pourrai modifier ce code pour avoir des alertes uniquement quand cell en D est < à K3

Bonjour,

Sub zero()
    Dim cell As Range
    With Feuil8
        For Each cell In .Range("D2:D" & .Range("D" & .Rows.Count).End(xlUp).Row)
            If cell <> "" And cell < .Range("K3") Then
                .Range("F" & cell.Row).Value = "Alerte"
            End If
        Next cell
    End With
End Sub

Bonjour Mferrand,

Je te remercie énormément. tu viens de me retiré une grosse épine du pied.

Je souhaite rajouter une petite condition dans ce code qui lorsque dans la colonne E, il y a le mot "Fait" qui apparait, ne pas mettre Alerte en F.

Bonjour,

    '...
            If cell <> "" And cell < .Range("K3") Then
                If Not .Range("E" & cell.Row) Like "*Fait*" Then _
                 .Range("F" & cell.Row).Value = "Alerte"
            End If
    '...

Bonjour Mferrand,

J'ai entré le code comme suit :

Private Sub CommandButton5_Click()

Dim cell As Range
With Feuil8
        For Each cell In Range("D2:D" & Range("D" & .Rows.Count).End(xlUp).Row)
            If cell <> "" And cell < Range("K3") Then
                If Not .Range("E" & cell.Row) Like "*Fait*" Then _
                    .Range("F" & cell.Row).Value = "Alerte"
                End If
        Next cell
    End With

End Sub

mais cela ne marche pas. est ce que j'ai mal modifié le code ? si oui, comment je dois le modifier pour ça marche ?

Bonjour,

Une erreur ? ou rien ne se passe ?

Dans ce dernier cas : bien le mot Fait en E (pas fait) ?

tontonzero a écrit :

Bonjour à tous, je souhaite créer une alerte suite à une date limite dépassé. j'ai écris le code suivant :

Private Sub CommandButton5_Click()

Feuil8.Activate

If Range("D2").Value < Range("k2") Then

Range("F5").Value = "Alerte"

End If

End Sub

le code marche mais seulement pour les cellules que j'ai désigné dans le code. Je voudrais généralisé ce code pour que ça me créer

une alerte à chaque fois que la date d'une cellule de la colonne D est inférieur à la date du jours dans la colonne K. Je vous rermercie par avance pour votre aide.

lorsque dans la colonne E, il y a le mot "Fait" qui apparait, ne pas mettre Alerte en F.

bonjour à tous

sans VBA (clin d'oeil à MFerrand qui en est un super spécialiste )

en F5

= SI( ET (D2=K2;E2<>"Fait"); "ALERTE" ;"")

la formule reste stable si on la recopie vers le bas, et si on insère des lignes ou des colonnes (évolution du fichier)

Bonne semaine à tous

amitiés excelliennes.

Bonjour jmd,

ça ne marche pas non plus. le mot "Fait" je ne le rentre pas namuellement mais grace à une validation des donné. Donc ya une liste déroulante dans la cellule et j'ai plus cas cliquer sur "fait" pour que cela s'affiche dans la cellule. Est ce que ça ne serait pas ça qui pose problème ?

Il est où ton bouton ?

mon bouton se trouve sur userform

Qualifie les objets pour vérifier (les points devant Range) :

Private Sub CommandButton5_Click()
Dim cell As Range
    With Feuil8
        For Each cell In .Range("D2:D" & .Range("D" & .Rows.Count).End(xlUp).Row)
            If cell <> "" And cell < .Range("K3") Then
                If Not .Range("E" & cell.Row) Like "*Fait*" Then _
                    .Range("F" & cell.Row).Value = "Alerte"
                End If
        Next cell
    End With
End Sub

Les adresses sont bonnes sinon ? (D2:D..., K3, E... et F...)

Bonjour Mferrand,

je rencontre toujours le même problème. Serait il possible que je puisse t'envoyer personnellement le fichier pour que tu puisse voir à quoi il ressemble et eventuellement voir quel est le problème? Par contre je ne peux pas le diffuser sur le forum car c'est un fichier professionelle.

Bonjour,

Code rectifié après révision diverses :

Private Sub CommandButton5_Click()
    Dim cell As Range
    With Feuil8
        .Unprotect "motdepasse" 'à indiquer
        For Each cell In .Range("D2:D" & .Range("D" & .Rows.Count).End(xlUp).Row)
            If cell <> "" And cell < .Range("J3") Then
                If .Range("E" & cell.Row) Like "Fait" Then
                    .Range("F" & cell.Row).ClearContents
                Else
                    .Range("F" & cell.Row).Value = "Alerte"
                End If
            End If
        Next cell
        .Protect "motdepasse" 'à indiquer
        .Activate
    End With
End Sub

Bonne journée.