XL 2010 calcul entre 2 date en vba

[racalbuto]

bonsoir a tous.
j ai un classeur ou je calcul le nombre de fois ou il y a la lettre p dans chaque cellule et cela en fonction de 2 date sa fonctionne tres bien toutefois j'aimerai faire exactement la meme chose mais en vba a partir d un clic sur un bouton. c est possible? personnellement j ai tenté mais je n y arrive pas. pouvez vous m'aider???? merci d avance.je dépose le fichier j aimerai vraiment transformer cette formule en vba ..... merciiii

 

[sylvanu]

Bonsoir,
En PJ un essai avec une fonction :

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.

 

[racalbuto]

Bonsoir,
En PJ un essai avec une fonction :

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

 

[racalbuto]

un grand merci a toi trop cool merci

 

[racalbuto]

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

 

[sylvanu]

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.

 

[sylvanu]

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

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.

 

[racalbuto]

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

 

[sylvanu]

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

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

 

[racalbuto]

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

 

[racalbuto]

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