Tâche mensuelle sur excel

Question

Bonjour,

Je travail actuellement sur un tableau excel. Je souhaite intégrer à une cellule une formule qui permette d'afficher automatiquement une tâche chaque premier mercredi du mois.

Exemple : pour la feuille du mercredi 4 juin (date inscrite dans une cellule), " vérification de tel matériel" s'inscrit automatiquement dans une cellule de mon choix.

Cette fonction est-elle possible?

Merci pour votre aide

chtilou · Answer

Bonjour Romain,

essaie cette formule en B1:
=SI(JOURSEM(A1;2)=3;"vérification de tel matériel";"")
étendre sur les 7 premiers jours du mois.

à ton écoute.

lermite222 · Answer

Bonjour,
Une idée comme une autre...
Private Sub Workbook_Open()
    If Day(Now) < 7 Then
        Select Case Weekday(Now)
        Case 1 'Lundi
        Case 2 'Mardi
        Case 3 'mercredi
            'afficher message dans la cellule
        End Select
    End If

End Sub
A+

Romain · Answer

Désolé lermite222 mais là c'est au dessus de mes compétences!

et j'ai besoin de quelques explications supplémentaires!

Merci

lermite222 · Answer

Bon... Allons y,
Tu tape Alt+F11
Tu entre dans l'IDE de VBA
Sur la gauche tu a l'explorateur de projet avec tes feuilles et le classeur (ThisWorkbook)
double clic sur ThisWorkbook, dans la fenêtre qui s'ouvre tu fais un Copier/coller de la macro ci-dessus
Pour controler..
Tu remplace Stop par
MsgBox "Aujourdhui vous decez faire cela",VbOKonly,now

Résultat >> 
Si la date du jour est plus petite que le 7 (de 1 à 6)
si aujourd'hui c'est mercredi
Le message s'affiche

Si tu met en dessous de 1 ce serra pour le lundi.. Etc..
Si pas asser clair revient.

jejelefou · Answer

Essai ca :

1A	B	C	D	E	F
2			1	1er mardi	faire serveur 1
3			2	2e mardi	faire serveur 2
4			3	3e mardi	faire serveur 3
5			4	4e mardi	faire serveur 4
6			5	5e mardi	faire serveur 5
7					
8					
9					
10					
11	20/05/2008			
12	faire serveur 3				

avec la formule suivante en B12 : =INDEX(D2:F6;EQUIV(SI(JOURSEM(B11)=3;SI(JOUR(B11)<8;1;SI(JOUR(B11)<15;2;SI(JOUR(B11)<22;3;SI(JOUR(B11)<29;4;5))));0);D2:D6;0);3)

michel_m · Answer

Bonjour à everybody

Juste un petit passage dans ce fil pour faire avancer le schmilblick (ce serait sympa si Romain pouvait mettre un extrait de sa feuille sur www.cjoint.com)
pour indiquer comment déterminer le Xème mercredi du mos

si le 1° du mois et de l'année est indiqué en A1 (par ex 1/5/8)

=A1-MOD(A1-5;7)+7*1-1 donne la date du 1° mercredi *
=A1-MOD(A1-5;7)+7*2-1 donne la date du 2° mercredi *

etc.
* formule d'après Monique sur Excel-downloads
ainsi, avec un tableau intermédiaire comportant ces formules dans la colonne de gauche et le boulot dans la colonne de droite

un simple recherchev avec valeur proche =0 et une gestion d'erreur (si la date ref n'est pas dans le tableau, on n'est pas mercredi)

comme Romain fait un tableau mensuel il faudrait employer en A1 une formule du style date(année,mois,1) avec l'année dans une cellule et le numéro du mois dans une autre pour travailler efficacement

Normalement, s'il s'agit que de ce problème  et sous réserve de voir le classeur, une solution par VBA est superflue;

Bonne soirée à tous
En espèrant que le demandeur réponde (ca se fait rare en ce moment)
Michel

Tâche mensuelle sur excel

6 réponses

Newsletters