XL 2010 Macro pour une éxécution automatique

thunder23

XLDnaute Occasionnel
Bonjour le forum,

Je souhaiterais faire par macro dans mon fichier excel un remplissage automatique pour l'année de mon planning de travail en fonction du jour travaillé au 1er Janvier et mettra automatiquement dans la cellule le poste à effectuer. J'ai mis en pièce-jointe un fichier exemple.

Merci d'avance ;)
 

Pièces jointes

  • test planning.xlsm
    15 KB · Affichages: 21

Jacky67

XLDnaute Barbatruc
Bonjour le forum,

Je souhaiterais faire par macro dans mon fichier excel un remplissage automatique pour l'année de mon planning de travail en fonction du jour travaillé au 1er Janvier et mettra automatiquement dans la cellule le poste à effectuer. J'ai mis en pièce-jointe un fichier exemple.

Merci d'avance ;)
Bonjour,
Pas certain d'avoir compris ce que tu cherches à faire
Un exemple simple sans macro avec une liste de validation
 

Pièces jointes

  • test planning.xlsm
    15.7 KB · Affichages: 12

job75

XLDnaute Barbatruc
Bonsoir thunder23, Jacky67,

Pas besoin de VBA, voyez le fichier joint et les 2 tableaux A6:M37 et O6:AA37 remplis par formules.

Le 1er tableau (avec les nombres) doit être masqué.

Le 29 février est renseigné en fonction de l'année en cours.

A+
 

Pièces jointes

  • test planning(1).xlsx
    18.9 KB · Affichages: 11

job75

XLDnaute Barbatruc
Bonjour thunder23, le forum,

Fichier (2) avec une solution nettement meilleure puisque seul le tableau de nombres est utilisé.

Plage B7:M37 au format personnalisé "Repos".

MFC sur cette même plage avec format personnalisé [<3]"M";[<5]"S";"N"

Bonne journée.
 

Pièces jointes

  • test planning(2).xlsx
    15.6 KB · Affichages: 11

thunder23

XLDnaute Occasionnel
Bonjour thunder23, le forum,

Fichier (2) avec une solution nettement meilleure puisque seul le tableau de nombres est utilisé.

Plage B7:M37 au format personnalisé "Repos".

MFC sur cette même plage avec format personnalisé [<3]"M";[<5]"S";"N"

Bonne journée.

Bonsoir job75, le forum,

c'est se que je cherchais, pour se qui est pour choisir l'année en fonction de 28 et 29 jours en Février je ne vois pas du tout comment le modifier afin que quand je rentre une année dans une cellule?

Bonne soirée
 

GALOUGALOU

XLDnaute Accro
bonjour thunder23 bonjour le forum
a défaut d'avoir la solution pour le 29 février je te propose de contourner le problème
dans le fichier ci-joint pour les années non bissextile le 29 fevrier l'écriture est masquée par une mfc
tu peux modifier la date dans la cellule b1 la formule en place =aujourd'hui
attention la cellule b2 est nécessaire au fonctionnement de la mfc ne pas détruire la formule
la liste des années bissextile en colonne v
les cellules w1 x1 y1 sont utilte à la mfc
cordialement
galougalou
 

Pièces jointes

  • Copie de test planningv3.xlsx
    15.8 KB · Affichages: 7

job75

XLDnaute Barbatruc
pour se qui est pour choisir l'année en fonction de 28 et 29 jours en Février je ne vois pas du tout comment le modifier afin que quand je rentre une année dans une cellule?
C'est pourtant très simple, fichier (3) avec en C35 la formule :
Code:
=SI(MOIS(DATE(C4;2;29))=2;MOD(C34;10)+1;"")
l'année devant être entrée en C4.
 

Pièces jointes

  • test planning(3).xlsx
    15.5 KB · Affichages: 16

thunder23

XLDnaute Occasionnel
Bonjour le forum,

Je remets se sujet à jour car j'ai fait une grosse modification sur mon planning et je n'arrive pas à l'adapter. J'ai mis en pièce-jointe comment c'est mis aujourd'hui mais vraiment privilégier un format texte car je dois l'importer dans un autre tableau.

Merci
 

Pièces jointes

  • testposte.xlsx
    13.9 KB · Affichages: 5

GALOUGALOU

XLDnaute Accro
bonjour thunder 23
dans une colonne pour une date au format texte utiliser cette formule qui fait référence à la cellule contenant la date.
je vous propose 3 solutions.
choisissez ou éditer la mise en forme qui vous convient le mieux.
ensuite pour transposer dans un autre classeur, choisissez copier/coller les valeurs
Enrichi (BBcode):
=TEXTE(A6;"jj/mm/aaaa")

=TEXTE(A6;"jjj  jj/mmm/aaaa")


=TEXTE(A6;"jjjj  jj mmmm aaaa")
cordialement
galougalou
 

job75

XLDnaute Barbatruc
Bonjour thunder23, GALOUGALOU,

Je suis étonné que ni l'un ni l'autre n'avez su adapter la solution de mon post #8.

Voyez le fichier joint avec le format personnalisé et la MFC sur B6:B371.

A+
 

Pièces jointes

  • testposte(1).xlsx
    19.8 KB · Affichages: 6

GALOUGALOU

XLDnaute Accro
bonjour job75
mea culpa je n'ai pas regardé votre fichier, et je n'ai donc pas essayé de l'adapter. mais le demandeur était malgré tout thunder23, à lui de tirer profit de toutes les solutions qu'on lui propose
cordialement
galougalou
ps (il m'a semblé comprendre que thunder23 souhaitait les dates au format texte). mais peut-être, je me suis trompé et votre solution colle à la problèmatique.
 
Dernière édition:

job75

XLDnaute Barbatruc
Cela dit il est en effet plus simple d'utiliser des textes en B6:B371.

Voyez ce fichier (2) avec les formules :

- en B6 =RECHERCHEV("x";G5:I14;3;0)

- en B7 =INDEX(I$5:I$14;MOD(A6-A$6+RECHERCHEV("x";G$5:H$14;2;0);10)+1) à tirer vers le bas.
 

Pièces jointes

  • testposte(2).xlsx
    19.4 KB · Affichages: 8

thunder23

XLDnaute Occasionnel
bonjour job75, bonjour GALOUGALOU, bonjour le forum,

Effectivement GALOUGALOU ce n'était pas les dates mais les postes qui me posait problème.

Désolé Job75 pour le message 8 que je n'ai pas répondu, je pensais que je l'avais fait :oops:
En tout cas le dernier poste me parait plus adapté à se que je recherche ;)

Merci beaucoup :)
 

Discussions similaires