macro et dates

[jopont]

Bonsoir,

Dans le fichier ci-joint j'ai deja une macro qui m'affiche le nombre de personne qui travaillent le lendemain du jour courant.

Je voudrais que dans la macro s'affiche l'effectif (du lendemain)à atteindre en fonction des samedi et dimanche des jours fériés et d'une autre périodes :

Affichage du style : "effectif normal" & x

X = 11 de jour et 9 de nuit si la date est un samedi ou un dimanche ou un jour fériés ( la plage des jours fériés est nommées fériés en feuille 1)

X = 12 de jour et 10 de nuit si la date est comprise entre le 17/10/2009 et le 24/10/2009.

X = 13 de jour et 11 de nuit pour les autres cas

merci

 

[jp14]

Re : macro et dates

Bonsoir

Ci joint le fichier avec la macro demandée.

Pour faciliter la lecture j'ai remplacé le msgbox par un userform.

A tester

JP

 

[jopont]

Re : macro et dates [résolu]

Merci c'est tout à fait ce que je voulais

 

[jopont]

Re : macro et dates

Je viens de voir que dans la macro, seul le dimanche est pris en compte.
Je voudrais également que le samedi et les jours fériés soient également pris en compte.

La liste des jours férié se trouve sur la fuille 1 du classeur et se nomme "fériés"

merci

 

[jp14]

Re : macro et dates

Bonjour

Ci joint le fichier modifié.

A tester et à modifier en fonction des priorités.

JP

 

[jopont]

Re : macro et dates

ça semble fonctionner à présent.
Seulement maintenant dans les effectifs je souhaiterais seulement compter les Item suivant :

"G" "GJ" "GN" CDG, CDN ...

Commetn les intégrer au code du userform

Merci

 

[jopont]

Re : macro et dates

Encore un renseignement comment faire apparaître une image si les effectifs réels sont plus petits

du style :

If Label3.Caption < "13" Then FRM_Info.IMG_Attention.Picture = LoadPicture("C:\Users\john\Desktop\planning_version\attention.jpg")
End If

merci

 

[jopont]

Re : macro et dates

Encore un renseignement comment faire apparaître une image si les effectifs réels sont plus petits

du style :

If .cells.value ( 71,Colonne +2) < 13 Then FRM_Info.IMG_Attention.Picture = LoadPicture("C:\Users\john\Desktop\planning_version\attention.jpg")
End If

merci

merci pour votre aide

 

[jopont]

Re : macro et dates

Jp tu as trouvé une solution
merci

 

[jp14]

Re : macro et dates

Bonjour

ça semble fonctionner à présent.
Seulement maintenant dans les effectifs je souhaiterais seulement compter les Item suivant :

"G" "GJ" "GN" CDG, CDN ...

Commetn les intégrer au code du userform

Merci

Ci joint le fichier avec une solution

A tester

JP

 

[jopont]

Re : macro et dates

je n'ai rien capté.

Est ce que ce code prendrait en compte un item "F" par exemple.

 

[jopont]

Re : macro et dates

je n'ai rien capté.

Est ce que ce code prendrait en compte un item "F" par exemple.

Il n'y a pas plus simple ? je veux juste que dans le nombre afficher il n'y ait que ce que j'ai cité plus haut
merci

 

[jopont]

Re : macro et dates

ça y est j'ai capté un peu.
tu rempli la liste box avec ce que t que tu trouve et tu le compte.
par contre ai pas tout compris dans le language.

Notamment colonneAX et colonen...

 

[jp14]

Re : macro et dates

Bonsoir

ça y est j'ai capté un peu.

Notamment colonneAX et colonen...

La fonction colonneAX transforme le numéro (nombre) de la colonne en valeur alphabétique.
colonne 27 en alpha AA.

Il faut modifier la valeur 20 de la boucle ainsi que la dimension des tableaux, en fonction du nombre d'Item posible.

JP