Discussion :

[nono le golfeur]

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

[SfJ5Rpw8]

Voir pour inStr...

pour tester une date... modifie ta ligne par exemple :

Code :

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

 ok2 = (Range("J" & n).Value >= DateSerial(2007, 4, 1) And Range("J" & n).Value <= DateSerial(2007, 6, 30))

[ouskel'n'or]

Regarde aussi la fonction IsDate dans l'aide

[nono le golfeur]

Merci de cette aide, Isdate me parait bien !

J'ai quand même un problême car j'ai créé une liste toute bête de 2 collone pour tester ma macro dans le but de compter uniquement les lignes qui en B sont = à 1 et en C à "win". mais quoique je fasse le MsgBox affiche toujours 0 !

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
Sub comptage()
 
Dim Compteur As Integer
Dim Ok1, Ok2 As Boolean
Dim n As Integer
 
For n = 2 To 50
 
        Ok = False
 
        If InStr("win", Sheets("sheet1").Range("C" & n).Value) > 0 Then Ok1 = True
        If InStr(1, Sheets("sheet1").Range("B" & n).Value) > 0 Then Ok2 = True
        If Ok1 = True & Ok2 = True Then Compteur = Compteur + 1
 
Next n
 
Sheets("sheet1").Range("D21").Value = Compteur
 
End Sub

Y a quelque truc qui me paraisse bizare comme par exemple le ">0" mais quoique je fasse ça ne fonctionne pas...

Je continue à chercher mais c'est bizare ...

Merci @+

[SfJ5Rpw8]

pour le >0 tjrs:

Voir pour inStr...

[nono le golfeur]

BHa jsutement je n'aurais pas pris la peine de poster un message si j'avais compris l'aide !

Je prefère toujours me débrouiller mais là je suis dans l'impasse, surtout que si je créé un code pour une seul collone ca marche bien mais dès qu'il y en à deux ca foire ...

Pour info l'aide me dit ça :

Settings

The compare argument settings are:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based on information in your database.



Return Values

If InStr returns
string1 is zero-length 0
string1 is Null Null
string2 is zero-length start
string2 is Null Null
string2 is not found 0
string2 is found within string1 Position at which match is found
start > string2 0

Et je ne vois pas à quel 0 ça fais référence ...

Enfin pour l'isntant je me suis débrouiller en faisant des IF + IF est si ça affiche 2 c'est que j'ai bien une ligne ave cmes deux conditions donc je fais un coutinf avec comme condition 2 mais bon y a quand même mieux car je dois le faire pour beaucoup de fichier !

@+

[SfJ5Rpw8]

et bien InStr te donne la position d'une chaîne de caractère dans une autre ...elle retourne 0 si la chaîne cherchée n'existe pas ...

I-E. Renvoyer la position de la première occurrence d'une chaîne dans une autre chaîne

[nono le golfeur]

MERCI !! c'ets vrai que toute de suite c'est plus claire !!

Donc mon erreur est ailleurs, c'est déjà une avancée maitenant il ne me reste plus qu'à savoir l' trouver,

merci bbil