Planning d'equipe

[Edwen]

Bonjours à tous,

Je suis entrain de crée un planning pour mon travail
- 1er page calendrier annuel
- Suivie de 52pages pour chaque semaine de l’année

Sur la 1er page calendrier annuel je suis, chaque année, obligé de supprimer les liens hypertextes, les fusions des semaines, réaffecter les liens hypertextes

Ma question est : Y a-t-il une solution via une macro pour réalisé ceci en automatique en changent simplement l’année (cellule B2 feuille Calendrier)

Via un exemple du planning en question

Merci d’avance

Cédric

 

[Bebere]

Re : Planning d'equipe

bonjour Edwen
bienvenue
dans feuille essai résultat du code
mis un mot dans feuille bdd
code module1, sub Planning
les jous fériés et samedi,dimanche sont colorés
tu contrôles si c'est bon et tu me dis ce qu'il faut améliorer

 

[Edwen]

Re : Planning d'equipe

Désoler mai la macro "plante" chez moi. 😕

 

[Guest]

Re : Planning d'equipe

Bonjour Edwen,

d'abord dire BONJOUR et ensuite MERCI Bebere qui n'est qu'un bénévole qui tente de t'aider et non soumis à obligation de résultats! Et encore dire la macro 'plante' sans donner plus de détails (sur quelles lignes, avec quel message) etc... ne l'aidera pas à résoudre ton problème.

Un petit tour du côté de la Lien suppriméserait bienvenu.

A+

 

[Bebere]

Re : Planning d'equipe

bonjour Hasco
Edwen as tu fait le copier coller de la ligne Fr
Ne veut dire néerlandais

 

[sourcier08]

Re : Planning d'equipe

Salut à tous,

J'ai testé aussi et ça plante aussi.
Bebere, voici 2 choses que j'ai vu :

Dim TblBdd, i As Date, MaDateDepart As Date, MaDateFin As Date

Cells(Li, Col + 2).Value = TblBdd(2, DebutCycle)

TblBdd(2, DebutCycle) = <l'indice n'appartient pas à la sélection>

Pour la première ligne, je me demande seulement si TblBdd est bien déclaré.

 

[Bebere]

Re : Planning d'equipe

bonjour Sourcier
içi pas de problème
tblbdd est bon la boucle c ne donne pas d'erreur
quel valeur a DebutCycle au moment de l'erreur
edit:Sourcier tu as 2007 et moi 2003,regarde dans l'aide comment il faut déclarer le tableau

 

[sourcier08]

Re : Planning d'equipe

Debutcycle a 0 comme valeur au moment de l'erreur.
Ok, je vais regarder les tableaux. Merci bien pour l'info.

 

[fenec]

Re : Planning d'equipe

Bonsoir le forum,

Ue variante sans macro si bien compris ton besoin

Bebere,
j'ai testé aussi mais je bloque sur,suis sous 2003

Cells(Li, Col + 2).Value = TblBdd(2, DebutCycle)

A+

 

[Bebere]

Re : Planning d'equipe

Il faut que les abréviations des jours correspondent

' x = Format(MaDateDepart, "ddd")'décocher pour voir ce que donne le format
If UCase(TblBdd(1, c)) = UCase(Format(MaDateDepart, "ddd")) Then'içi la comparaison

mon excel est en flamand pour le moment(changement de pc en cours)

Dans Bdd il faut copier B7:AC7 (Fr) et coller les valeurs en B4