XL 2010 calcul entre 2 date en vba

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2020

• #2

Bonsoir,
En PJ un essai avec une fonction :

VB:

Function NbP(PlageDate As Range, PlageP As Range, DateDébut As Date, DateFin As Date)
    NbP = Application.CountIfs(PlageP, "p", PlageDate, ">=" & CLng(DateDébut), PlageDate, "<=" & CLng(DateFin))
End Function

Qui peut évidemment être utilisée en macro comme dans l'exemple.

 

Pièces jointes

• testdate.xlsm

  19.2 KB · Affichages: 4

Vote positif 0 Vote négatif

R

racalbuto

XLDnaute Nouveau

• 15 Octobre 2020

• #3

sylvanu à dit:

Bonsoir,
En PJ un essai avec une fonction :

VB:

Function NbP(PlageDate As Range, PlageP As Range, DateDébut As Date, DateFin As Date)
    NbP = Application.CountIfs(PlageP, "p", PlageDate, ">=" & CLng(DateDébut), PlageDate, "<=" & CLng(DateFin))
End Function

Qui peut évidemment être utilisée en macro comme dans l'exemple.

un grand merci a toi trop cool

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

racalbuto

XLDnaute Nouveau

• 15 Octobre 2020

• #4

un grand merci a toi trop cool merci

 

Vote positif 0 Vote négatif

R

racalbuto

XLDnaute Nouveau

• 15 Octobre 2020

• #5

Ha je pensais pouvoir élargir ma plage b4:n4 en mettant b4:n24 mais il me met erreur tu sais pourquoi?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2020

• #6

Parce que B4:N4 est une ligne et B4:N24 est une plage.
Dans ce cas il faut revoir la macro, ce ne sera pas aussi simple.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Octobre 2020

• #7

Effectivement c'était moins simple.
En PJ un ex avec :

VB:

Function NbP(CellD, CellF, DateDébut As Date, DateFin As Date)
    Application.Volatile
    LigD = CellD.Row: ColD = CellD.Column
    LigF = CellF.Row: ColF = CellF.Column
    NbP = 0
    For i = LigD + 1 To LigF
        NbP = NbP + Application.CountIfs(Range(Cells(i, ColD), Cells(i, ColF)), "p", _
        Range(Cells(LigD, ColD), Cells(LigD, ColF)), ">=" & CLng(DateDébut), _
        Range(Cells(LigD, ColD), Cells(LigD, ColF)), "<=" & CLng(DateFin))
    Next i
End Function

Par contre la syntaxe a changé. Voir dans le fichier.
( La ligne 25 ne sert qu'à la vérif )

Je pense qu'il y a plus simple mais j'ai buté sur la syntaxe du Sommeprod.

 

Pièces jointes

• testdate4.xlsm

  19.6 KB · Affichages: 7

Vote positif 0 Vote négatif

R

racalbuto

XLDnaute Nouveau

• 16 Octobre 2020

• #8

Salut,
holala je n'aurai jamais trouvé. vraiment merci beaucoup.. je vais me pencher sur le code pour bien comprendre.. encore merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Octobre 2020

• #9

Bonsoir,
Le même avec les commentaires qui manquaient un peu.

VB:

Function NbP(CellD, CellF, DateDébut As Date, DateFin As Date)
    ' On refera le calcul à chaque recalcul de la feuille
    Application.Volatile
    ' On extrait ligne et colonne de la première cellule du tableau
    LigD = CellD.Row: ColD = CellD.Column
    ' On extrait ligne et colonne de la dernière cellule du tableau
    LigF = CellF.Row: ColF = CellF.Column
    ' Nbp sera le nombre de "p" trouvés. On l'initialise à 0.
    NbP = 0
    ' Pour toutes les lignes du tableau
    For i = LigD + 1 To LigF
        ' On compte les "p" si la date en ligne LigD est compris entre les dates DateDébut et DateFin
        NbP = NbP + Application.CountIfs(Range(Cells(i, ColD), Cells(i, ColF)), "p", _
        Range(Cells(LigD, ColD), Cells(LigD, ColF)), ">=" & CLng(DateDébut), _
        Range(Cells(LigD, ColD), Cells(LigD, ColF)), "<=" & CLng(DateFin))
    Next i
End Function

 

Vote positif 0 Vote négatif

Solution

R

racalbuto

XLDnaute Nouveau

• 19 Octobre 2020

• #10

salut..
merci beaucoup ca va bien m'aider pour la suite merciiiii.....

 

Vote positif 0 Vote négatif

R

racalbuto

XLDnaute Nouveau

• 24 Octobre 2020

• #11

Bonjour at tous
j aimerai votre aide svp merci...
j ai une sub qui me place les jours et dates du mois de janvier et j aimerai une boucle qui me trouve tous les lundi et remonte une ligne avec offset -1 pour me placer le numéro de la semaine puis qu' elle passe à la sheets février et ainsi de suite. merci d'avance .....

 

Pièces jointes

• TESTSEM.xlsm

  29.8 KB · Affichages: 3

Vote positif 0 Vote négatif