Discussion :

[winieloursonaub]

Bonjour à tous,

Je suis pas une grande professionnelle en excel vba mais j'aimerais savoir comment l'on fait pour compter le nombre de donné d'après deux dates choisis.

Je joint un fichier exemple pour comprendre mieux.

Merci à tous ceux qui m'apporteront leur aide.

winie

[aA189]

Peux - tu préciser stp ..

Le mieux serait que tu postes un exemple concret des calculs que tu effectues à la main .Quel résultat ? Et dans quelle case ?
Voire quelques exemples manuels afin que l'on repère plus facilement ce qui est répétitif (donc à faire excécuter par un prog)

[SilkyRoad]

bonjour

tu peux essayer cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim DateDebut As Date, DateFin As Date
Dim x As Integer, Resultat As Integer
Dim Ws As Worksheet
Dim Cell As Range
 
'Spécifie les dates de début et de fin à contrôler
DateDebut = #9/1/2006#   ' /!\ Attention au format: mm/jj/aaaa
DateFin = #9/4/2006# ' /!\ Attention au format: mm/jj/aaaa
 
'Specifie la feuille contenant les données
Set Ws = Sheets("Feuil1")
'recherche la derniere cellule non vide dans la colonneB
'(qui contient les dates)
x = Ws.Range("B65536").End(xlUp).Row
 
'boucle sur les cellules pour verifier compter les dates contenues
'dans la palge
For Each Cell In Ws.Range("B2:B" & x)
    If Cell >= DateDebut And Cell <= DateFin Then _
            Resultat = Resultat + 1
Next Cell
 
MsgBox Resultat

michel