Discussion :

[lucassms]

Bonjour,

Je solicite votre aide car je souhaite créer un message d'alerte qui s'affiche à l'ouverture de mon fichier Excel. Je souhaite anticiper le changement d'un futur composant (pièce importante d'un véhicule) 1 ans avant son changement effectif. Je voudrais que ce message explique de quelle "Part Name" (Colonne D) il s'agit.

Ce tableau sera complété par de nouvelles lignes avec d'autres composants mais je vais partir de cette base là.

Dois-je créer un VBA? Si oui, comment ?

Sachant que la dâte du changement effectif se situe dans la colonne L (date of change). Comme je me sert d'un excel anglais, les dâtes sont inversées (Mois/Jour/Année).
Vous trouverez ci joint mon fichier excel.

Merci d'avance pour votre aide
Cordialement
Lucas

[Jean-Philippe André]

Bonjour,

pour executer du code a l'ouverture, il faut le placer dans l'evenement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
 
End Sub

Sais-tu comment poursuivre ?

[lucassms]

Bonjour,
Justement je n'ai aucne idée de comment poursuivre...

[Jean-Philippe André]

Il te faut
-faire une boucle pour parcourir tes lignes (boucle For)
-a chaque ligne tester si la date est "d'ici 1 an" (et prevoir le fait d'avoir deja prevenu) (Range.Value>DateAdd("y",1,Date))
-generer le message d'alerte (MsgBox)

[lucassms]

Merci de votre aide,

Avez-vous un modele sur lequel je pourrais me baser ?

[BENNASR]

Bonjour
voila une proposition : feuille nommée ALERTE , en colonne A des date de tache
En B la désignation de tache
Pour moi je teste si la date d'échéance est inférieure à 7 jours donc j'aurais un message d'alerte et ce message continue à apparaître jusqu'à échéance. Une fois dépassée, il me demande si je veux supprimer cette tache....
Bref proposition de débutant en VBA à adapter à tes besoins en te souhaitant le bonne continuation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 sub Alerte ()
Dim w1 As Worksheet
Dim i As Long
Dim Z As Long
Dim D As Date
Set w1 = Sheets("ALERTE") 'Feuille qui contient les alertes : A adapter si nécessaire
D = Date
 
For i = 2 To w1.Range("A" & Rows.Count).End(xlUp).Row ' faire toute la colonne A
p = D - w1.Range("A" & i)
    If p > -7 And p <= 0 Then
 
    MsgBox w1.Range("A" & i) & ":" & " " & w1.Range("B" & i)
    End If
Next
 'supprimer taches expirées
Application.ScreenUpdating = False
For Z = w1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
      If IsDate(w1.Cells(Z, 1)) Then
       If CDate(w1.Cells(Z, 1)) < D Then
       If MsgBox("Etes-vous sûr de vouloir effacer la tache : " & w1.Range("A" & Z) & " : " & w1.Range("B" & Z), vbExclamation + vbYesNo) = vbYes Then
       w1.Cells(Z, 1).EntireRow.Delete
        End If
       End If
      End If
   Next Z
End sub