Alerte spécifique pour chaque feuille [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
mercredi 2 novembre 2016
Statut
Membre
Dernière intervention
4 novembre 2016
 -
 alex-Mich -
Bonjour,

j'ai un fichier exel comprenant plusieurs feuilles.

j'aimerais créer différentes alertes VBA qui seront spécifique et qui correspondront à chaque feuille différentes de mon fichier exel.

je vous remercie d'anvance à tous de votre aide.

Alex

1 réponse

Réponse 1 / 1
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
 1 481
Re,

Ben, comme la fois precedente, mettez le fichier a dispo et un peu plus d'explication

Vous avez regarde le fichier que je vous ai mis a dispo ?????
Signaler

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
Signaler
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
 1 481 > alex-Mich
Bonjour,

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
Signaler

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
Signaler
Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
 1 481 > alex-Mich
Re,

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

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

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

Grand merci à toi et à tes connaissance.

Alex
Posez votre question