Calcul à partir d'une date

Question

Bonjour, 

Je ne trouve pas la formule pour mon problème qui est le suivant :

j'ai 4 feuilles identiques ( ACC - SAP - INC - OPD ) dans ces feuilles j'ai la date qui s'inscrit dans la colonne B et le jours dans la colonne C ( grâce à un formulaire de saisie).

Dans une autre feuille j'aimerais compter le nombre de Lundi par exemple sur les feuilles en fonction de la date (colonne B), et par mois.

Voilà merci de votre aide

Configuration: Windows XP / Firefox 3.6.6

lermite222 · Answer

Bonjour,
Il y a moyen de faire cela par formule Excel mais soit la fonction Jour360 est approximative, soit avec la dateserial ça ferait de trop longue formule.
Une formule en VBA ?
Tu tape le code ci-dessous dans un module général.

Option Explicit
'D1 la cellule de la 1ère dates
'D2 la cellule de la 2èm date
'Jour : Le jours à trouver, Lundi = 1, mardi = 2 etc..
Public Function NombreJ(D1 As Range, D2 As Range, Optional Jour As Integer = 1) As Long
Dim DT1 As Long, DT2 As Long, DT3 As Long
    Application.Volatile
    DT1 = DateValue(D1): DT2 = DateValue(D2)
    If DT1 > DT2 Then 'Vérifie si pas d'inversion
        DT3 = DT1: DT1 = DT2: DT2 = DT3
    End If
    If Jour > 7 Then Jour = 7
    If Weekday(D1, 2) <> Jour Then DT1 = DT1 + (8 - Weekday(D1, 2))
    If Weekday(D2, 2) <> Jour Then DT2 = DT2 - (Weekday(D2, 2) - Jour)
    NombreJ = ((DT2 - DT1) / 7) + 1
End Function

Dans la feuille tu met..

=NombreJ(B8;C8;2)

Voir les Rem de la fonction pour les valeurs de D1; D2 et Jour
A+

manuSP · Answer

Bonjour,

Je pensais plus utilisé la fonction NB.SI

lermite222 · Answer

C'est aussi une solution mais tu dois ajouter une colonne avec le N° du jour.
dans cette colonne 
=JOURSEM(C4;2) 'en ajustant l'adresse. Le 2 c'est pour Lundi=1, mardi =2 etc..
Ensuite ru peu employer NB.Si sur cette colonne
A+

manuSP · Answer

Bonjour,

En fait j'ai du mal exprimer ce que j'aimerais.

Dans ma feuille 5 j'ai un tableau :
                          Janvier      Février    .... Décembre
lundi               Cellule B2
mardi
mercredi
....
Dimanche

dans ma cellule B2, il faudrait calculer le nombre de fois qu'apparait le lundi dans mes feuilles 1,2,3 et 4 dans la colonne C, et il faudrait que je compte en fonction des dates qui sont dans la colonne B de mes 4 feuilles. c'est à dire pour l'exemple prendre en compte que les dates de 01/01 au 31/01

C'est plus clair comme ça je pense

lermite222 · Answer

le plus simple, mettre un exemple de ton classeur sans donnée confidentielle sur CiJoint et mettre le lien dans un poste suivant.
Sinon ont risque de tourner en rond encore longtemps.

manuSP · Answer

Bonjour,

Oui tu as raison c'est plus simple, je viens de reproduire rapidement mon classeur avec juste les données qui nous intéresse.
Par contre je ne trouve pas CI joint

manuSP · Answer

Re,

Voici donc le lien


https://www.cjoint.com/?hCm7wjPdPX

lermite222 · Answer

Ton classeur en retour
A+

manuSP · Answer

Merci bcp

Trop fort

manuSP · Answer

Bonjour,

Je me suis avancé trop vite ça fonctionne pas quand je le remets dans mon classeur d'origine

lermite222 · Answer

Oui, change le nom de Feuil5 par Totaux, comme sur le modèle
ou change dans la macro le nom de la feuille
Tu dis

manuSP · Answer

J'avais déja fait ça, mais ça ne fonctionne pas

lermite222 · Answer

Ca ne fonctionne pas. 
Pas façile de t'aider avec TOUT ces renseignements !!!! 
Explique quoi et où ? 
Edit: Tu a bien mis la macros dans un module public ?

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

manuSP · Answer

oui c'est vrai c'est pas très explicite...
Donc, ma feuille 10 (Totaux) dans les cases j'ai =Sommefeuille() qui me donne un défaut "#VALEUR!"
Dans la macro de cette feuille j'ai inscrit " OPTION EXPLICIT", et j'ai donc crée un module de classe ou j'ai fait un copier coller de ce que tu m'avais envoyé.

manuSP · Answer

Bonjour,

As tu trouvé la solution ?

lermite222 · Answer

Apparement la réponse que j'ai mis avant hier est pas passée... 
Tu ne dois pas mettre la fonction dans un module de classe mais dans un module public.. par exemple Module1 

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

manuSP · Answer

c'est ce que j'ai fais. Insérer un module

lermite222 · Answer

Tu dis...
 et j'ai donc crée un module de classe ou j'ai fait un copier coller de ce que tu m'avais envoyé.
Quel est le nom du module ?

lermite222 · Answer

Oups,, pas bien réagit  à ton explication. 
Pour que ça fonctionne, 
1°) Le tableau doit être aux mêmes coordonnées que sur ton modèle. 
2°) Les données doivent aussi êtres sur les mêmes colonnes que sur ton modèle. 
Si l'un ou l'autre de ces point est différent dis où se trouve Lundi dans ton tableau (actuellement sur A2) 
Et les dates dans les autres feuilles sur la colonne B ?  
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

manuSP · Answer

Donc, j'ai bien fait un copier coller sur un module.
Les coordonnées du tableaux sont identiques.
Le lundi se trouve en A2
et les dates sur les colonnes B.

La seule différence se situe au niveau de la ligne, dans mes 4 feuilles de recueil d'infos je commence sur la ligne 3 et non sur la 2.

lermite222 · Answer

Beh voilà...
Tu change le 2 de
For L = 2 To Sheets(S)....
par un 3
Tu dis..

manuSP · Answer

c'est fait, ça me marque tjs #VALEUR!

lermite222 · Answer

Comme ça, sans le classeur c'est pas possible de continuer.
Eventuellement mettre le classeur sur Cjoint et me communiquer le lien par MP

manuSP · Answer

ok merci c'est sympa je vais t'envoyer ça

lermite222 · Answer

Modifie la macro..
Public Function SommeFeuille() As Long
Dim Jour As Integer, Mois As Integer, Total As Long, S As Integer
Dim TB, Ch As String, L As Long, Nom As String
    Application.Volatile
    TB = Array(" ", "LUNDI", "MARDI", "MERCREDI", "JEUDI", "VENDREDI", "SAMEDI", "DIMANCHE")
    Jour = Application.Caller.Row - 1 '1 = Lundi, 2 = mardi, etc..
    Mois = Application.Caller.Column - 2 '1=janvier
    Ch = TB(Jour)
    For S = 1 To Sheets.Count
        Nom = Sheets(S).Name
        If Nom = "ACC" Or Nom = "OPD" Or Nom = "SAP" Or Nom = "INC" Then
            For L = 3 To Sheets(S).Range("C65535").End(xlUp).Row
                If Month(Sheets(S).Cells(L, 2)) = Mois Then
                    If UCase(Sheets(S).Cells(L, 3)) = Ch Then Total = Total + 1
                End If
            Next L
        End If
    Next S
    SommeFeuille = Total
End Function
J'ai tester sur ton classeur et ça fonctionne, comme quoi.. les exemple sont pas toujours conforme à la réalité.
A+

manuSP · Answer

Merci pour ton aide, c'est très sympa...

Peux tu me rendre un dernier service ? j'aimerais savoir comment faire pour que se soit ma page d'accueil qui s'affiche tjs en 1er ?

lermite222 · Answer

VBA >>
Dans l'explorateur de projet double clic sur ThisWorkBook.
Dans la fenêtre qui s'ouvre tu colle...
Option Explicit
Private Sub Workbook_Open()
    Sheets("Acceuil").Activate
End Sub
Adapter le nom de la feuille.
A+

Calcul à partir d'une date

27 réponses

Discussions similaires

Newsletters