Discussion :

[glaine]

Bonjour à tous,
Merci avant tout pour toutes aides éventuellement apportées.
J'ai commencé à écrire un programme dont le but de comptabiliser les occurrences distinctes d'une colonne et de placer le résultat dans une autre colonne.

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
Sub nbre_de_joursaisie()
Dim vListe1Début As String, vListe2Début As String
Dim vcellule
Sheets(1).Select
vListe1Début = "L2"
vListe2Début = "K2"
For Each vcellule In Range(Sheets(1).Range(vListe1Début), Sheets(1).Range(vListe1Début).End(xlDown))
    If vcellule < 1 / 1 / 2009 Then
     Sheets(1).Range(vListe2Début).Select
     ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(1/COUNTIF(RC[1]:R[2827]C[1],RC[1]:R[2827]C[1]))"
     Else
     MsgBox (" c'est faux ")
     Exit Sub
    End If
Next
End Sub

Mon problème est que dès que je lance le programme, Excel plante et je ne vois pas trop comment réécrire mon programme pour que moins de ressources soient sollicitées et où éventuellement, j'ai pu commettre une erreur.
Merci encore pour vos éclairages.

[HAL-9000]

Code :

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

1
2
Dim vListe1Début As String, vListe2Début As String
Dim vcellule

Pas plutôt :

Code :

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

Dim vListe1Début, vListe2Début, vcellule As String

Code :

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

1
2
Each vcellule In Range(Sheets(1).Range(vListe1Début), Sheets(1).Range(vListe1Début).End(xlDown))
    If vcellule < "1 / 1 / 2009" Then

Un petit coup d'oeil sur les déclarations et types de variables sous VBA peut-être ?

[glaine]

Merci à toi pour ton excellente réponse. Comme tu l'avais deviné, il s'agit bien d'une date, ma bévue était tellement énorme qu'évidemment, je ne l'avais pas vue. Néanmoins, j'ai corrigé ma macro rapidement et la saturation reste là. Je pense que le problème est lié à ma fonction de calcul sommeprod. Merci encore.
Cordialement