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.