Planning d'equipe

B

Bebere

XLDnaute Barbatruc

• 15 Novembre 2013

• #2

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

 

Pièces jointes

• ClasseurEdwen.xls

  81.5 KB · Affichages: 108

Vote positif 0 Vote négatif

E

Edwen

Guest

• 15 Novembre 2013

• #3

Re : Planning d'equipe

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Novembre 2013

• #4

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+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 15 Novembre 2013

• #5

Re : Planning d'equipe

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

 

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 15 Novembre 2013

• #6

Re : Planning d'equipe

Salut à tous,

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

Code:

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é.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 15 Novembre 2013

• #7

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

 

Dernière édition: 15 Novembre 2013

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 15 Novembre 2013

• #8

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.

 

Dernière édition: 15 Novembre 2013

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 15 Novembre 2013

• #9

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

Code:

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

A+

 

Pièces jointes

• exemple planning(Edwen).xlsx

  20.3 KB · Affichages: 91

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 15 Novembre 2013

• #10

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

 

Vote positif 0 Vote négatif