aide pour planning

[bercool]

Bonjour,

Je travaille à l'élaboration d'un planning annuel d'équipe et je me heurte à deux problémes(pour l'instant !!!)
- coloration des samedi,dimanche et fériés par macro (je ne veux pas utiliser la MFC)
-numéro de semaine au dessus des dates
Exemple donné sur 1er semaine de janvier.

Merci de me venir en aide car je m'énerve sur cette macro !!!

 

[bercool]

Re : aide pour planning

Ouffffff
J'ai trouvé c'est là:

Sheets(nomfeuille).Cells(6 + (I * 2), 4 + (DateEnCours - DateDeb)).Value
il fallait 5 au lieu de 4 et sa fonctionne super!!!
Encore une étape de franchie grace à vous.......MERCI

Et bien sur à suivre..........


A+++

 

[Compte Supprimé 979]

Re : aide pour planning

Salut BerCool,

Oups, il y'a effectivement un problème !

C'est la mise à jour de la variable "DateEnCours" qui doit se faire au début de la boucle et non pas à la fin !

      If Cel.Value >= DateDeb And Cel.Value <= DateFin Then
        ' A METTRE ICI
        ' Met à jour la date en cours de traitement
        DateEnCours = Cel.Value
 ...
        Next I
        Application.EnableEvents = True
[COLOR=red][B]       ' A SUPPRIMER ICI[/B][/COLOR]
        ' Met à jour la date en cours de traitement
        'DateEnCours = Cel.Value
      End If

Voilà 😉

 

[bercool]

Re : aide pour planning

Non j'ai été trop vite ça marche pas!!!!
Je continu à chercher....

 

[Compte Supprimé 979]

Re : aide pour planning

Tu as regardé mon post précédent !?
Je t'explique ce qui ne va pas !

A+

 

[bercool]

Re : aide pour planning

Oui c'est bon cette fois cela fonctionne à merveille......grace à toi car je ne pense pas que j'aurais trouvé !!!

Encore merci et ......à bientot car mon projet n'est pas encore fini !!!

A+++

 

[Compte Supprimé 979]

Re : aide pour planning

Oui c'est bon cette fois cela fonctionne à merveille......grace à toi car je ne pense pas que j'aurais trouvé !!!

Encore merci et ......à bientot car mon projet n'est pas encore fini !!!

A+++

Pas de problème, nous sommes là pour nous entre-aider !

Tu aurais trouvé la solution, il suffit d'utiliser de petites astuces, comme :
- le déboggage pas à pas
- l'ajout d'espions pour récupérer les valeurs de certain calcul
Etc ...

A+

 

[bercool]

Re : aide pour planning

Bonjour à tous,

Me revoila avec mes problémes :
Je viens de voir qu'aprés l'ajout d'une feuille ma macro de remise a jour suivant l'année(feuille index changement année en D2)ne fonctionne plus elle ne met pas à jour certaines feuilles .....
Je pense que cela viens du module 1 et de sa boucle sur les feuilles mais je cherche à la modifier depuis ce matin sans succcés !!!!
Si vous pouviez regarder cela.....encore merci.

A+++

 

[Compte Supprimé 979]

Re : aide pour planning

Salut Bercool,

Il y'a un soucis dans ton classeur !?

Lorsque tu lances ta sub Semaine() directement de ton Module1, cela fonctionne correctement !

En revanche lorsqu'elle est lancée à partir de ton Worksheet_Change
là, il y'a un soucis et je ne sais pas d'ou ça vient !?

Etrange 🙁

Edit : J'ai testé, cela vient du mode de saisie de ta cellule A2 dans ton classeur Index.

Si tu saisis directement une nouvelle année dans ta cellule, sans passer par la liste déroulante, tout ce passe bien !

Si tu choisis l'année dans la liste déroulante, ça BUG !?

A+

 

[bercool]

Re : aide pour planning

Hello
Merci de t'ocuper de mon cas c'est vrai qu'en executant les macros individuellement ça marche !!!
J'avais par contre une erreur pour la mise a jour des dates dans les différents mois,mais cela ne viens pas de là.
Vraiment je bute sur ce probléme!!!

A+++

 

[Compte Supprimé 979]

Re : aide pour planning

La mise à jour de qu'elle date ?

Sinon voilà le fichier comme il devrait-être modifié.
Tu peux essayé de saisir une date antérieure à 2007 😉

 

[bercool]

Re : aide pour planning

Vraiment merci maintenant cela fonctionne parfaitement.
Pour les dates c'etait la formule du premier jour du mois qui n'etait pas bonne chez moi et donc le premier jour du mois été erroné !!!
A force de modifier j'etais un peu dans les choux ....

J'adapte maintenant avec ajout de feuilles jusqu'en décembre.

Encore un grand merci.

A trés bientot sans doute !!!