Alerte spécifique pour chaque feuille

Le lien a été crée : http://www.cjoint.com/c/FKhfZOLePk3

Voici le lien demander.

j ai creer l alerte pour le feuille Bl de fusion HCl.
Quand j ouvre le fichier exel la feuille active doit etre "Standard",il fait bien les alerte mais bloque quand il doit faire l alerte de la deuxieme feuille"Bl de fusion HCl".

Comment séparer les alerte ou comment indique dans le VBA pour qu il fasse toute les alertes différentes?

merci à vous.

Alex

@alex-MichBonjour,

Je recupere le fichier

A+

suite:

Vous n'avez pas modifie les formoules colonne date ouvertire (pas grave) mais votre code pour BI... en dehors du fait que vous n'activez pas la bonne feuille
'pour péremption blanc de fusion HCL

pas de couleur syntaxique volontairement
Dim Datedepéremption As Range
For Each Datedepéremption In ActiveSheet.Range("Date_de_péremption")
Valeur = Cells(Datedepéremption.Row, 13)
If (Datedexpiration <= Date) And (Datedexpiration > Date - 3) Then
MsgBox "Bl de fusion HCl " & Valeur & " doit être remplacer.", vbCritical, "Bl de fusion HCl à remplacer"
Else
End If
Next

ce qu'il faut (a defaut de mieux), mais le test est sur quelle colonne
Datedepéremption ou Datedexpiration ?????
'--------------------------------------------------
'pour péremption blanc de fusion HCL
Worksheets("Bl de fusion HCl").Activate
Dim Datedepéremption As Range
For Each Datedepéremption In ActiveSheet.Range("Date_de_péremption")
Valeur = Cells(Datedepéremption.Row, 13) ???? colonne M
If (Datedepéremption <= Date) And (Datedepéremption > Date - 3) Then
MsgBox "Bl de fusion HCl " & Valeur & " doit être remplacer.", vbCritical, "Bl de fusion HCl à remplacer"
End If
Next
End Sub

Le lien a été crée : http://www.cjoint.com/c/FKhlshXqff3

voici un nouveau lien car maintenant il bloque au niveau "If (Datedepéremption <= Date) And (Datedepéremption > Date - 3) Then ".

pourtant cela ma l air exact.

tu as bien deviner que c etait "Datedepéremption" et non "Datedexpiration".

je te remercie d avance de ta grande aide.

Alex

@alex-MichRe,

Fichier modifie : formule feuille Bl de fusion HCl colonne C =SIERREUR(A7+365;"")
et VBA

https://www.cjoint.com/c/FKhmni3gd8f

Super cela fonctionne à merveille :) :) :).

Grand merci à toi et à tes connaissance.

Alex