Alerte spécifique pour chaque feuille
Résolu
alex-Mich
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
alex-Mich -
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
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
-
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 ?????-
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- 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
-
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- Re,
Fichier modifie : formule feuille Bl de fusion HCl colonne C =SIERREUR(A7+365;"")
et VBA
https://www.cjoint.com/c/FKhmni3gd8f
-
-
