Planning glissant

JNP

XLDnaute Barbatruc

• 6 Novembre 2010

• #2

Re : Planning glissant

Bonjour Mmaatella et bienvenue 🙂,
Techniquement, il me parait dangereux d'avoir d'un côté des entêtes en formules basées sur AUJOURDHUI et de l'autre des données en dur 😱...
Une solution serait de se baser sur une date en dur, et par macro, modifier cette date sur demande, supprimer le premier mois et prolonger le planning d'un mois 😉.
A te lire 😛.
Bon WE 😎

 

Vote positif 0 Vote négatif

M

mmaatella

Guest

• 8 Novembre 2010

• #3

Re : Planning glissant

Merci pour ta réponse JNP.

Est ce qu'on pourrait techniquement éviter le lancement manuelle de la macro pour que la mise à jour se fasse automatiquement en fonction de la date du jour ? (par exemple dès qu'on ouvre le fichier la macro se lance toute seule...comme une grande)

Sinon l'idée de supprimer le premier mois et prolonger le planning d'un mois est exactement ce que je veux faire.... mais comment ??

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Novembre 2010

• #4

Re : Planning glissant

Re 🙂,

mmaatella à dit:

Est ce qu'on pourrait techniquement éviter le lancement manuelle de la macro pour que la mise à jour se fasse automatiquement en fonction de la date du jour ? (par exemple dès qu'on ouvre le fichier la macro se lance toute seule...comme une grande)

Sinon l'idée de supprimer le premier mois et prolonger le planning d'un mois est exactement ce que je veux faire.... mais comment ??

Cliquez pour agrandir...

Oui, c'est faisable puisque l'on va pouvoir faire un double test à l'ouverture du fichier : quelle est la date d'aujourd'hui et le planning a-t'il déjà été glissé.
Dans un premier temps, utilise l'enregistreur de macro pour récupérer le code de la suppression des colonnes devant et la copie des colonnes derrières, on verra après comment améliorer le code 😉.
N'oublie pas avant de faire référence à une cellule fixe pour les dates. Logiquement, les formules devraient glisser, et il n'y aura que la première à modifier via la macro.
Bon courage 😎

 

Vote positif 0 Vote négatif

M

mmaatella

Guest

• 8 Novembre 2010

• #5

Re : Planning glissant

Merci pour ta réactivité !

J'ai bien générer le code : supprimer les données du premier mois + couper/coller le reste des données et les avancer d'un mois (cf. pj).
J'ai aussi mis un mois fixe au départ correspondant au M-2 et glissé le reste des formules.
Par contre je ne sais pas comment intégrer à la macro le "quelle est la date d'aujourd'hui et le planning a-t'il déjà été glissé" pour donner de la cohérence aux entêtes...

 

Pièces jointes

• planning glissant v1.zip

  13.7 KB · Affichages: 106

Dernière modification par un modérateur: 8 Novembre 2010

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Novembre 2010

• #6

Re : Planning glissant

Re 🙂,
Quelque chose comme ceci, peut-être 😉...

Code:

If Now() - Range("C4") > 30 Then
Range("C4") = DateAdd("m", 1, Range("C4"))
Range("C8:DC26").Value = Range("H8:DH26").Value
End If

Bon courage 😎

 

Vote positif 0 Vote négatif

M

mmaatella

Guest

• 8 Novembre 2010

• #7

Re : Planning glissant

Merci beaucoup JNP ! ça marche !

J'ai appelé cette macro Decaler() pour pouvoir la lancer à l'ouverture du fichier en l'insérant dans ThisWorkbook (avec l'option Workbook à la place de général dans le menu déroulant) :
Private Sub Workbook_Open()
Feuil1.Decaler()
End Sub

En effet, je dois spécifier que cette macro se situe bien dans la feuil1 car j'ai plusieurs feuilles dans mon fichier d'origine.... ça m'envoi un beug... (normal car je ne suis pas familier avec la syntaxe VBA)

D'avance merci pour ton aide (promis c'est la dernière question)

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Novembre 2010

• #8

Re : Planning glissant

Re 🙂,
Il faut que tu mettes ta sub dans un module (clic droit -> Insertion -> Module dans le VBAProject. Par sécurité, il faut sélectionner la feuil1

Code:

Sub Decaler()
[COLOR=red]Sheets("Feuil1").Select
[/COLOR]If Now() - Range("C4") > 30 Then
Range("C4") = DateAdd("m", 1, Range("C4"))
Range("C8:DC26").Value = Range("H8:DH26").Value
End If
End Sub

et dans ThisWorkbook

Code:

Private Sub Workbook_Open()
Call Decaler
End Sub

Bon courage 😎

 

Vote positif 0 Vote négatif

M

mmaatella

Guest

• 9 Novembre 2010

• #9

Re : Planning glissant

reBonjour !

J'ai copié collé ton code et ça m'envoi le même message d'erreur (numero 9) que j'ai eu... apparement lié à la selection de la feuil1... 😕

A te lire

 

Pièces jointes

• planning glissant v2.zip

  14.3 KB · Affichages: 111

Vote positif 0 Vote négatif

fnony

XLDnaute Occasionnel

• 9 Novembre 2010

• #10

Re : Planning glissant

Bonjour

peut-être il serait interessant de voir la solution DDGanttProjet qui est proposée dans l'accueil du site? cela te permetrait d'avoir une meilleure vision.
Pour le calcul des ressources, je ne sais pas si ça marche.

 

Vote positif 0 Vote négatif

M

mmaatella

Guest

• 9 Novembre 2010

• #11

Re : Planning glissant

Bonjour fnony,

Ce genre de logiciel propose plusieurs fonctionnalités avancées de planification projet que je n'utiliserai surment pas. Adepte du juste besoin (glissement d'un tableau de données en fonction de la date), je pense que Excel fera l'affaire.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 9 Novembre 2010

• #12

Re : Planning glissant

Re 🙂

mmaatella à dit:

J'ai copié collé ton code et ça m'envoi le même message d'erreur (numero 9) que j'ai eu... apparement lié à la selection de la feuil1... 😕

Cliquez pour agrandir...

Y a des baffes qui se perdent 😛...
Je sens que tu vas rougir jusqu'au trognon 😀...
Dans la macro, tu fais référence à Sheets("Sous-traitance"), mais ton onglet se nomme "Sous-traitance " avec un espace après Sous-traitance 😱...
Bon courage 😎

 

Vote positif 0 Vote négatif

M

mmaatella

Guest

• 9 Novembre 2010

• #13

Re : Planning glissant

Effectivement j'ai bien rougi.... no comment...
En tous cas, merci beaucoup JNP, tu m'as fait gagné un temps fou !!
A plus

 

Vote positif 0 Vote négatif