Creation de tableaux pour affichage de Nbr de jours ouvrés

[Lone-wolf]

Bonjour à tous,


j'aurais besoin de votre aide afin de créer des tableaux (ou trouver une autre solution), afin d'afficher mois par mois le nombre de jours ouvrés et ce jour par jour dans les différentes cellules en blanc. Les colonnes Début et Fin sont nommées DebAm-FinAm + DebPm-FinPm(de 1 à 12). Vous comprendrez mieux en voyant le fichier.


Merci d'avance



A+ 😎

 

[Staple1600]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Bonjour àtous

Lone-wolf
Ta syntaxe liée au tableaux n'est pas bonne
Ca fonctionne mieux comme cela
(ci-dessous juste un exemple de syntaxe correcte)

Public Deb(1 To 12)
Public i, j, k, lig, n, r, x As Long
Public Jrs As Range

Sub Horaire_Travail()
Deb(1) = 1
Deb(2) = 2
MsgBox Deb(1)
End Sub

EDITION: Bonjour Victor21 😉

 

[Victor21]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Bonjour.

Peut-être :

=NB.JOURS.OUVRES(C13;MAX(C13:C43);feries)

tout simplement.

Edit : Bonjour, JM 🙂

 

[Lone-wolf]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Bonjour Jean-Michel, Victor 🙂

Merci d'avoir répondu.

Desolé de t'embêter, et pour la grosse faute de la demande, que je réitère. Au faite, il faudrais que j'affiche le nombre d'heures totales pour chaque mois et non les jours.


A+ 😎

 

[Staple1600]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Re

Lone-wolf
Et moi je pue de la g_eule ? 🙄 (voir message précédent)
A moins que tu ne m'appelles Jean-Michel 🙄

Desolé de t'embêter, et pour la grosse faute de la demande, que je réitère

Personne ne ta dit que tu embêtais qui ce soit au passage 😉

Quand à la faute (si tu parles de la syntaxe des tableaux), il suffit d'y remédier et tes tableaux* devraient se remplir correctement.
*: je parle des Arrays.

 

[Lone-wolf]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Re Staple 😀

Lone-wolf

Et moi je pue de la g_eule ? (voir message précédent)
A moins que tu ne m'appelles Jean-Michel

Pourquoi tu dis des choses pareilles voyons?! Et beiiiinnn...si tu veux je peux t'appeler PAPA! 😉


Trève de plaisenteries.


J'ai compris plus ou moins ce que tu m'a montré. Mais, j'ai ceci dans la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
lig = Range("h65536").End(xlUp).Row
n = 0
For j = 8 To 75 Step 6
n = n + 1
For c = 13 To lig
If Not Intersect(Target, Cells(c, n)) Is Nothing Then
r = 0
For k = 1 To 12
r = r + 1
If Target.Offset(, 0).Value <> "" Then
 For i = Deb * 1 To Fin * 1
  If Weekday(i, vbMonday) < 6 Then x = x + 1
JoursOuvres = x
Next i
End If
Next k
End If
Next c
Next j
Application.EnableEvents = True
End Sub

Et je ne sais pas comment l'adapter.



A+ 😎

 

[Staple1600]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Re

Lone-wolf
Désolé, j'avais pas vu le code dans la feuille
PS: Moi c'est pas Jean-Michel mais Jean-Marie voilà le pourquoi du précédent message 😉

Bonjour Jean-Michel, Victor 🙂

 

[Lone-wolf]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Pardon Jean-Marie, désolé pour le quack 😱

En PJ, un exemple de ce que j'aimerais faire.



A+ 😎

 

[david84]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Bonjour à tous,
peut-être comme cela :

=(((C4-C3)+(F4-F3))*NB.JOURS.OUVRES(B3;E3))*24

 

[Lone-wolf]

Re : Creation de tableaux pour affichage de Nbr de jours ouvrés

Bonjour david84, 🙂

Merci à toi aussi d'avoir répondu.

Là tu fais référence au classeur ("Classe2"), mais ce n'ai pas le bon fichier. J'aimerais faire celà par macro, avec le fichier du post1.

Edit: @ david84 le classeur Classe2 est fait avec une macro.




A+ 😎