Bonjour

Je souhaite compter le nombre de fois où une personne apparait dans une plage d'un planning. Chaque feuille représente 1 semaine.
En fonction du nom de la cellule de la colonne A, je veux qu'il me recherche et me compte cette occurrence pour le placer à côté dans la colonne B

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Dim x, anest_decompte, feuille As Integer
 
For anest_decompte = 2 To 4
     For feuille = 5 To Sheets.Count
             x = Application.CountIf(Sheets(feuille).Range("C2:G5"), Sheets("Décompte").Range("A" & anest_decompte).Value)
 
     Sheets("Décompte").Range("B" & anest_decompte).Value = x
Next
Next
End Sub
Ce code fait planter excel. Je cherche depuis plusieurs heures mais ne trouve pas la source de mon erreur.

Merci par avance pour votre aide