Alerte spécifique pour chaque feuille
Résolu/Fermé
alex-Mich
Messages postés
5
Date d'inscription
mercredi 2 novembre 2016
Statut
Membre
Dernière intervention
4 novembre 2016
-
4 nov. 2016 à 16:31
alex-Mich - 8 nov. 2016 à 06:47
alex-Mich - 8 nov. 2016 à 06:47
A voir également:
- Alerte spécifique pour chaque feuille
- Feuille de pointage excel - Télécharger - Tableur
- Fausse alerte connexion facebook - Guide
- Feuille a5 - Guide
- Supprimer une feuille word - Guide
- Feuille de style word - Guide
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
4 nov. 2016 à 16:55
4 nov. 2016 à 16:55
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 ?????
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 ?????
7 nov. 2016 à 06:56
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
Modifié par f894009 le 7/11/2016 à 08:45
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
7 nov. 2016 à 12:22
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
7 nov. 2016 à 13:13
Fichier modifie : formule feuille Bl de fusion HCl colonne C =SIERREUR(A7+365;"")
et VBA
https://www.cjoint.com/c/FKhmni3gd8f
8 nov. 2016 à 06:47
Grand merci à toi et à tes connaissance.
Alex