Discussion :

[zeralium]

Bonjour,

Je fait la recherche de date dans une feuille avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
colonne = 2
Do Until SHprog.Cells(1, colonne) = "Total"
    d = SHprog.Cells(1, colonne)
    datecalcul = SHprog.Cells(8, 1)
    Sheets(d).Cells(1, 16).FormulaR1C1 = "=COUNTIF(C13," & datecalcul & ")"
    c = Sheets(d).Cells(1, 16)
    SHprog.Cells(8, colonne) = c
    colonne = colonne + 1
Loop

Mon soucis vient du fait que lorsque je regarde la formule sur la feuille "d" la valeur de "datecalcul" est 23/9/2008. Or dans ma colonne de recherche la date est de la forme 23/09/2008.
Pourtant dans la feuille SHprog.cells(8,1) et dans la colonne de recherche les format des dates sont du meme type jj/mm/aaaa.
Pourquoi je me retrouve avec une forme 23/9/2008 dans ma formule??? Car je pense que mon probleme vient de là.

En fait je souhaite compter le nombre de fois qu'une date est presente dans une colonne.

[youn1096]

essayes comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
colonne = 2
Do Until SHprog.Cells(1, colonne) = "Total"
    d = SHprog.Cells(1, colonne)
    datecalcul = SHprog.Cells(8, 1)
    Sheets(d).Cells(1, 16).FormulaR1C1 = "=COUNTIF(C13," & format(datecalcul,"dd/mm/yyyy") & ")"
    c = Sheets(d).Cells(1, 16)
    SHprog.Cells(8, colonne) = c
    colonne = colonne + 1
Loop

[zeralium]

Le probleme est toujours la...

[zeralium]

Probleme resolu, voici le 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
colonne = 2
    Do Until SHprog.Cells(1, colonne) = "Total"
        d = SHprog.Cells(1, colonne)
        SHprog.Cells(ligne, 1).NumberFormat = "General"
        datecalcul = SHprog.Cells(ligne, 1)
        Sheets(d).Columns("M:M").NumberFormat = "General"
        Sheets(d).Cells(1, 16).FormulaR1C1 = "=COUNTIF(C13," & datecalcul & ")"
        C = Sheets(d).Cells(1, 16)
        Sheets(d).Cells(1, 16).ClearContents
        Sheets(d).Columns("M:M").NumberFormat = "m/d/yyyy"
        SHprog.Cells(ligne, 1).NumberFormat = "dddd * dd/mm/yyyy"
        SHprog.Cells(ligne, colonne) = C
        colonne = colonne + 1
    Loop

Mais je pense qu'il y a plus simple...