Discussion :

[MartyMcFlan]

Bonjour à tous, je suis nouveau ici et nouveau également à mon boulot.

Je suis dans l'administration d'une entreprise comptant plus de 150 salariés, et je dois gérer des impératifs pour chacun d'entre eux, du coup, j'aimerai pouvoir créer une alerte via un tableau excel que je recevrais par mail (j'utilise outlook) pour pouvoir etre un peu soulagé, au lieu de verifier mon tableau chaque jour "a la main", pour voir si une échéance approche.

Concretement, j'aimerais etre prevenu à l'avance pour pouvoir prendre les dispositions nécessaires.

La difficulté supplémentaire pour moi, vu que je n'ai jamais utilisé de macro excel de ma vie, c'est que j'ai plusieurs dates différentes par personne qui correspondent à des échéances différentes, donc l'alerte ne sera pas donnée dans les memes délais suivant l'evenement que la date représente.

Quelqu'un peut il m'aider svp ?

Merci

ps : ci joint un exemple (incomplet au niveau du nombre de salarié) pour que vous puissiez voir ce que je veux dire

Merci beaucoup d'avance à ceux qui prendront le temps d'essayer de m'aider

Bonn journée

Essaie alerte.xlsx

[MarcelG]

Bonjour et bienvenu,

Certes, Excel peut gérer Outlook.

Cela risque d'être compliqué.

Pourquoi ne pas utiliser les mises en forme conditionnelles avec une condition par formule du type

=(F2-AUJOURDHUI())<200

Seule contrainte : ouvrir le classeur quotidiennement

[MartyMcFlan]

Bonjour et bienvenu,

Certes, Excel peut gérer Outlook.

Cela risque d'être compliqué.

Pourquoi ne pas utiliser les mises en forme conditionnelles avec une condition par formule du type

Seule contrainte : ouvrir le classeur quotidiennement

Oui en effet c'est une solution simple.

Merci

[BENNASR]

bonsoir
contrairement au règles du forum il faut éviter les pièces jointes dès le premier message
J'ai bricolé vite fait un petit fichier pour contrôler tes échéance : à tester et à améliorer
j’espère que ça soit un base de travail pour essayer de comprendre VBA pour ton bien pas plus
tu auras un message d’alerte 7 jours avant l’échéance pour tous les cas
tu peux le modifier

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
28
29
30
31
Sub alerte()
 
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim j As Integer
 
Set w1 = Worksheets("feuil1") 'Feuille qui contient les alertes
D = Date
' ********************************* Période d'éssai
For i = 2 To w1.Range("D" & Rows.Count).End(xlUp).Row
p = D - w1.Range("D" & i)
If p >= 0 Then MsgBox ("Période d'éssai pour Monsieur :  " & Cells(i, "A").Value & "  à déja expirée depuis le : " & Cells(i, "D").Value)
If p > -7 And p < 0 Then MsgBox ("fin de période d'éssai pour Monsieur expirera le" & Cells(i, "A").Value)
Next i
 
' ********************************* visite midicale
For i = 2 To w1.Range("E" & Rows.Count).End(xlUp).Row
p = D - w1.Range("E" & i)
If p >= 0 Then MsgBox ("Visite midicale pour Monsieur :  " & Cells(i, "A").Value & "  à déja expirée depuis le : " & Cells(i, "E").Value)
If p > -7 And p < 0 Then MsgBox ("Visite midicale pour Monsieur   " & Cells(i, "A").Value)
Next i
 
' ********************************* Entretien PRO
For i = 2 To w1.Range("F" & Rows.Count).End(xlUp).Row
p = D - w1.Range("F" & i)
If p >= 0 Then MsgBox ("Entretien PRO pour Monsieur :  " & Cells(i, "A").Value & "  à déja expirée depuis le : " & Cells(i, "F").Value)
If p > -7 And p < 0 Then MsgBox ("Entretien PRO pour Monsieur " & Cells(i, "A").Value)
Next i
 
End Sub

[MarcelG]

contrairement au règles du forum

Je dirais même "conformément".

Dans ce cas Bennasr, notre ami aurait autant de fois à cliquer sur OK à chaque message.
Tandis qu'en utilisant les MFC, la vision serait immédiatement globale

[MartyMcFlan]

bonsoir
contrairement au règles du forum il faut éviter les pièces jointes dès le premier message
J'ai bricolé vite fait un petit fichier pour contrôler tes échéance : à tester et à améliorer
j’espère que ça soit un base de travail pour essayer de comprendre VBA pour ton bien pas plus
tu auras un message d’alerte 7 jours avant l’échéance pour tous les cas
tu peux le modifier

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
28
29
30
31
Sub alerte()
 
Dim w1 As Worksheet
Dim i As Long
Dim D As Date
Dim j As Integer
 
Set w1 = Worksheets("feuil1") 'Feuille qui contient les alertes
D = Date
' ********************************* Période d'éssai
For i = 2 To w1.Range("D" & Rows.Count).End(xlUp).Row
p = D - w1.Range("D" & i)
If p >= 0 Then MsgBox ("Période d'éssai pour Monsieur :  " & Cells(i, "A").Value & "  à déja expirée depuis le : " & Cells(i, "D").Value)
If p > -7 And p < 0 Then MsgBox ("fin de période d'éssai pour Monsieur expirera le" & Cells(i, "A").Value)
Next i
 
' ********************************* visite midicale
For i = 2 To w1.Range("E" & Rows.Count).End(xlUp).Row
p = D - w1.Range("E" & i)
If p >= 0 Then MsgBox ("Visite midicale pour Monsieur :  " & Cells(i, "A").Value & "  à déja expirée depuis le : " & Cells(i, "E").Value)
If p > -7 And p < 0 Then MsgBox ("Visite midicale pour Monsieur   " & Cells(i, "A").Value)
Next i
 
' ********************************* Entretien PRO
For i = 2 To w1.Range("F" & Rows.Count).End(xlUp).Row
p = D - w1.Range("F" & i)
If p >= 0 Then MsgBox ("Entretien PRO pour Monsieur :  " & Cells(i, "A").Value & "  à déja expirée depuis le : " & Cells(i, "F").Value)
If p > -7 And p < 0 Then MsgBox ("Entretien PRO pour Monsieur " & Cells(i, "A").Value)
Next i
 
End Sub

Merci, c'est tout ce que je demandais, une base, apprendre et comprendre c'est bien sur plus interessant que de juste copier betement quelque chose de fait par quelqu'un d'autre

Donc merci

bonne journée

[BENNASR]

Bonjour
il a raison MarcelG , c'est fatiguant de cliquer chaque fois sur ok ...c'est pourquoi j'ai pensé à envoyer vers une autres feuilles les échéance à moins de 7 jours
Le principe consiste à néttoyer la feuille 2 puis envoyer les taches à écheance - de 7 jours
BONNE CONTINUATION

[MartyMcFlan]

Merci

je vais tester tout ça mais je pense avoir de bonnes pistes

[Menhir]

J'ai rejoins un forum pour l'esprit de l'entraide hein.

Tant mieux. Ca fera donc un intervenant de plus pour répondre aux demandes formulées par d'autres.

j'ai pensé à envoyer vers une autres feuilles les échéance à moins de 7 jours

Ceci pourrait être fait par un filtre avancé.
Lire : http://philippetulliez.developpez.co...dvancedfilter/

[MartyMcFlan]

Tant mieux. Ca fera donc un intervenant de plus pour répondre aux demandes formulées par d'autres.

Si j'en suis capable bien sur que oui

[Menhir]

j'aimerai pouvoir créer une alerte via un tableau excel que je recevrais par mail (j'utilise outlook) pour pouvoir etre un peu soulagé, au lieu de verifier mon tableau chaque jour "a la main", pour voir si une échéance approche.

Si ton fichier Excel n'est pas ouvert, aucune des macros qu'il contient ne sera active et ne pourra donc t'envoyer de mail.

Le plus simple serait de mettre dans une colonne le délais restant entre la date actuelle (fonction AUJOURDHUI) et la date d'échéance.
Tu mets sur l'ensemble de ton tableau un filtre (Ruban Données > Icone Filtre) qui permettra de le trier en deux clics.
Il te sera alors facile de repérer tous les enregistrements qui sont proches de l'échéance.

Si en plus tu mets sur cette nouvelle colonne une mise en forme conditionnelle du style 3 couleurs, les éléments à traiter te sauteront aux yeux.

La difficulté supplémentaire pour moi, vu que je n'ai jamais utilisé de macro excel de ma vie

Si l'idée c'est qu'on fasse ton travail à ta place, ça sera sans moi.

ps : ci joint un exemple (incomplet au niveau du nombre de salarié) pour que vous puissiez voir ce que je veux dire

Ci-joint une règle du forum : https://www.developpez.net/forums/d8...s-discussions/

[MartyMcFlan]

Si ton fichier Excel n'est pas ouvert, aucune des macros qu'il contient ne sera active et ne pourra donc t'envoyer de mail.

Le plus simple serait de mettre dans une colonne le délais restant entre la date actuelle (fonction AUJOURDHUI) et la date d'échéance.
Tu mets sur l'ensemble de ton tableau un filtre (Ruban Données > Icone Filtre) qui permettra de le trier en deux clics.
Il te sera alors facile de repérer tous les enregistrements qui sont proches de l'échéance.

Si en plus tu mets sur cette nouvelle colonne une mise en forme conditionnelle du style 3 couleurs, les éléments à traiter te sauteront aux yeux.


Si l'idée c'est qu'on fasse ton travail à ta place, ça sera sans moi.


Ci-joint une règle du forum : https://www.developpez.net/forums/d8...s-discussions/

Très bien merci, je vais essayer ça comme ça voir ce que ça donne.

Non, l'idée n'est pas de faire mon travail à ma place, je veux bien apprendre, je disais juste ça pour que l'on soit au courant que je n'ai pas de base, donc que certaines formules ou un certain jargon logique et limpide pour vous ne pourrait peut etre pas l'être pour moi, c'est tout.
J'ai rejoins un forum pour l'esprit de l'entraide hein.


Pardon pour la pièce jointe, j'avais cru lire dans les règles que c'était mieux d'en mettre une quand je me suis inscrit