Bonjour,

Je souhaiterais utiliser le même code que dans cette discussion mais il y a quelque chose qui bloque car je souhaiterais que la condition soit sous forme de date et non de texte ...

En gros, désolé pour la dégradation du code :

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
Public Sub Command4_Click()
 
Dim Compteur As Integer
Dim Ok1, Ok2, Ok3 As Boolean
Dim n As Integer
 
Compteur = 0
 
For n = 2 To 1000
 
        Ok = False
 
        If InStr("win", Range("I" & n).Value) > 0 Then Ok1 = True
        If InStr( 'Entre le 01/04/2007 et le 31/06/2007' , Range("J" & n).Value) > 0 Then Ok2 = True
         If Ok1 = True & Ok2 = True Then Compteur = Compteur + 1
 
Next n
 
MsgBox (Compteur)
 
End Sub
Merci d'avance mais je sais pas si c'ets possible ...

Arnaud