création d'une alerte automatique dans Excel Résolu/Fermé

Question

Bonjour,
j'ai besoin d'aide pour faire une alerte automatique dans Excel (alertes pour affûtage outil, changement outil et nettoyage de la pince de la machine) 
par exemple l'alerte m'avertirai par un petit message : "le 10/12/2015 l'opérateur doit affûter l'outil n°1 et nettoyer la pince de la machine 2"
veuillez trouver sur le lien suivant le fichier model
https://www.cjoint.com/c/EJjppD7MqLT
le colonne I donne la durée qu'on doit ajouter à la date de fin (colonne F) pour trouver la date du message (date du prochain affûtage/nettoyage de la pince)
sachant que le nettoyage c'est pour les pinces
l'affûtage et le changement sont pour les outil
si quelqu'un peut m'aider j'en serai très reconnaissante
bien cordialement

hcp7kuz · Answer

Salut,
Je ne pense pas que ce tu veuille faire est possible. Il te faudrait plutôt créer un logiciels étant tout le temps allumer en arrière plan et qui afficherai les alertes ... Avec excel, c'est surement impossible.

hcp7kuz

jc80 · Answer

Bonjour

C'est surement possible de faire quelque chose.
Il faudrait  déjà savoir :au bout de combien de temps d'utilisation >>
  l'outil doit être affuté
  le nettoyage doit être fait
Crdlt

Gyrus · Answer

Bonjour,

Une solution simple consiste à utiliser des mises en forme conditionnelles pour mettre en évidence les opérations qui arrivent à échéance.
Par exemple :
- couleur de remplissage orange si l'échéance est dans 1 jour.
- couleur de remplissage rouge si l'échéance est dépassée.
Il faut pour cela définir les délais accordés pour chaque opération.

A+

Gyrus · Answer

Salut à tous,

Ce serait bien sympa que safach prenne la peine d'indiquer qu'elle a obtenu une réponse satisfaisante sur un autre forum.

A+

cs_Le Pivert · Answer

Bonjour,

Voici un code a mettre dans ThisWorkbook:


 Option Explicit
Dim madate As Date
Private Sub Workbook_Open()
Sheets("suivi").Select
madate = Format(Date, "d/mm/yyyy")
For_X_to_Next_Colonne
End Sub
Sub For_X_to_Next_Colonne()
Dim FL1 As Worksheet, Cell As Range, NoCol As Integer
Dim NoLig As Long, DerLig As Long, Var As Variant
Dim LaDate As Date
 LaDate = CDate(madate)
    'Instance de la feuille qui permet d'utiliser FL1 partout dans
    'le code à la place du nom de la feuille
    Set FL1 = Worksheets("suivi")
 
    'Détermine la dernière ligne renseignée de la feuille de calculs
    '(Voir explication sur l'utilisation de Split en bas de cette discussion)
    DerLig = Split(FL1.UsedRange.Address, "$")(4)
 
    'Fixe le N° de la colonne à lire
    NoCol = 6
 
    'Utilisation du N° de ligne dans une boucle For ... Next
    For NoLig = 3 To DerLig
        Var = FL1.Cells(NoLig, NoCol)
        If Var = CLng(LaDate) Then
FL1.Cells(NoLig, NoCol).Font.ColorIndex = 3
Else
FL1.Cells(NoLig, NoCol).Font.ColorIndex = 1
End If

'Pour tester : Affiche les variables dans la fenêtre Exécution de VBA
        'Debug.Print Var
    Next
    Set FL1 = Nothing
End Sub

A adapter

cs_Le Pivert · Answer

Pour le nouveau classeur, c'est une plage de cellule

Voici le code a mettre dans ThisWorkbook:

Option Explicit
Dim madate As Date
Private Sub Workbook_Open()
Sheets("suivi").Select
madate = Format(Date, "d/mm/yyyy")
For_Each_Next_Plage
End Sub
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Dim LaDate As Date
 LaDate = CDate(madate)
    Set FL1 = Worksheets("suivi")
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("J3:L110") ' a adapter
        For Each Cell In Plage
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
            If Var1 = CLng(LaDate) Then
Cell.Font.ColorIndex = 3 'rouge
Else
Cell.Font.ColorIndex = 1 'noir
End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

Les dates du jour se mettent en rouge, quand elles sont dépassées, elles se remettent en noir

cs_Le Pivert · Answer

Pour mettre ce code dans d'autres feuilles , sélectionner la feuille dans l'éditeur en haut à gauche:

Option Explicit
Dim madate As Date
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Feuil1").Select 'a adapter au nom de la feuille
madate = Format(Date, "d/mm/yyyy")
For_Each_Next_Plage
End Sub
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
 Dim LaDate As Date
 LaDate = CDate(madate)
    Set FL1 = Worksheets("Feuil1") 'a adapter au nom de la feuille
    With FL1
        'Détermination de la plage de cellules à lire
        'Peut s'écrire en utilisant l'objet range de la plage
        'For Each Cell In .Range("B3:E15")
 
        'ou en utilisant l'objet Plage (range) de la plage
        Set Plage = .Range("J3:L110") ' a adapter
        For Each Cell In Plage
 
            'Valeur de la cellule lue
            Var1 = Cell.Value
            If Var1 = CLng(LaDate) Then
Cell.Interior.ColorIndex = 3  'rouge
Else
Cell.Interior.ColorIndex = xlColorIndexAutomatic 'blanc
End If
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub

J'ai corrigé la couleur des cellules

Mike-31 · Answer

Bonjour,

Pour afficher un message le jour d'une intervention, il faut passer par du VBA si tu as quelques notions, si non on peut faire simple et utiliser la mise en forme conditionnelle qui colorisera la cellule le jour de l'intervention programmée

Création d'une alerte automatique dans Excel

8 réponses