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
A voir également:
- Alerte spécifique pour chaque feuille
- Fausse alerte mcafee - Accueil - Piratage
- Bruler feuille de laurier - Guide
- Fausse alerte connexion facebook - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Feuille a5 - Guide
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
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
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
Fichier modifie : formule feuille Bl de fusion HCl colonne C =SIERREUR(A7+365;"")
et VBA
https://www.cjoint.com/c/FKhmni3gd8f
Grand merci à toi et à tes connaissance.
Alex