Création d'une msgbox - ALERTE DATE PROCHE

Version imprimable

21/09/2016, 10h03
cg.67

Création d'une msgbox - ALERTE DATE PROCHE

Bonjour à tous,
Je suis toute nouvelle sur ce forum et encore plus nouvelle et autodidacte pour l'utilisation d'excel. Donc autant dire que je n'y connais pas grand chose pour le moment.
J'aurais besoin de votre aide pour la création d'une fenêtre d'alerte qui s'ouvrirait à l'ouverture d'excel (j'ai entendu parler de VBA... mais je ne sais pas si c'est de ça dont il s'agit réellement et surtout je ne sais pas comment faire!). Ça a l'air super compliqué en tout cas...
Mon tableau devra comporter (entre autres) les colonnes suivantes : type de matériel (en colonne B), Péremption (en colonne G) avec une alerte pour cette colonne quand la date arrive à XX mois, puis Prochain Contrôle Technique (en colonne L) avec une alerte aussi quand la date arrive à XX mois.
Il faudrait que le message ("Type de matériel" arrive bientôt ou est à échéance) apparaisse lorsque ces dates arrivent à échéance dans mon tableau et également que les lignes qui sont concernées dans la feuille excel passent aussi en rouge.
Sera-t-il possible que l'alerte concerne plusieurs feuilles d'un même classeur sans ouvrir forcément toutes les feuilles concernées ?
Merci d'avance à celles et ceux qui pourront m'aider !
Bonne journée
21/09/2016, 10h33
halaster08

Bonjour,

Tu auras besoin d'utiliser l'evenement Workbooks_open (tuto: http://silkyroad.developpez.com/VBA/EvenementsClasseur/)
Mais si tu n'as jamais fait de vba, ça risque d'être compliqué, je te conseille avant toute chose de lire les tuto pour débutant.
21/09/2016, 10h37
Jean-Philippe André

Bonjour,

bienvenue sur DVP :salut:

Ce genre d'objectif est totalement accessible sous Excel effectivement.

La piste du VBA est la bonne.

Pour la coloration en rouge, on peut passer par ce qu'on appelle des mises en forme conditionnelles, sans VBA.

Je te laisse quelques liens pour de la lecture, et nous restons disponibles si certains points te paraissent bloquants dans ta comprehension.

http://silkyroad.developpez.com/Exce...onditionnelle/ (version 2002)
http://www.developpez.net/forums/d92...onditionnelle/ (version 2007 et suivantes)

Enfin quelques questions sur le rendu que tu souhaiterais obtenir :
- un message avec les N lignes dedans
ou bien
- N messages avec une ligne ?
21/09/2016, 10h39
kiki29

Salut, ne pas oublier ceci : La mise en forme conditionnelle dans Excel
21/09/2016, 10h45
cg.67

Merci Halaster08, là est bien mon problème, j'en suis consciente... c'est compliqué et je n'ai pas encore d'expérience ! Mais j'aurais besoin d'utiliser cette "fonction" d'excel rapidement, d'où ma demande d'aide ;)

Il me faudrait un seul message regroupant les lignes concernées...
21/09/2016, 11h18
Igloobel

Bonjour à tous,

kiki29 t'as parlé des mises en formes conditionnelles c'est pas du VBA

cela peut il suffire ?

1 pièce(s) jointe(s)

Bonjour à tous
voici un début de piste ... dans la feuille (ALERTE) et en colonne A tu saisie les dates et en B le libellés de la tache...en cliquant sur le code et si la tache planifiée arrive dans moins de 7 jours tu aura un message d'alerte ... si la date planifiée est inférieur à la date du jour un message te demande si tu veux effacer la tache ou non
.. tu peux faire les amélioration

Code:

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
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

21/09/2016, 13h28
cg.67

Merci BENNASR
Dois-je copier votre "Code" et le coller dans "développeur" ? et ensuite "Visual Basic" ? et après ?
Votre pj ne s'ouvre pas...
21/09/2016, 15h34
BENNASR

le nom de la feuille : ALERTE
en A1 : le titre de la colonne : Date d'échéance
et en B1 : le titre de la colonne : Tache à effectuer
puis tu saisis quelques exemples (en a la date de la tache et en B la désignation de la tache)

Citation:

Dois-je copier votre "Code" et le coller dans "développeur" ? et ensuite "Visual Basic" ? et après ?

insertion / module et tu copie le code la bas
retour à la feuille puis Développeur / insérer /controle de formulaire / bouton
clique droite sur le bouton nouvellement inséré et lui affecté ton code à savoir le code alerte