Bonsoir à tous!
Cela fait 30min que je m'arrache les cheveux sur le code suivant: je ne comprend pas pourquoi il me lance un débeugage au niveau de la ligne soulignée: peut-être que l'argument de sheets ne lui plait pas? Pourtant, la feuille "absence_"&NomMatiere existe vraiment!
Auriez-vous une idée?
Merci!

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
Private Sub CommandButton4_Click()
Dim NomMatiere As Variant
NomMatiere = Rechercher.ListMatiere.Value
'Insérer le nom dans la feuille RechercheM
Sheets("RechercheM").Range("C4").Value = NomMatiere
'Compter et afficher le nombre d'absences
Dim CompteurAbs As Integer
CompteurAbs = 0
For i = 2 To Sheets("options").Range("B4").Value + 1
    CompteurAbs = Sheets("absence_" & NomMatiere).Cells(i, 1).Value + CompteurAbs
Next
Sheets("RechercheM").Range("C9").Value = CompteurAbs
'Compter et afficher le nombre de retards
Dim CompteurRet As Integer
CompteurRet = 0
For i = 2 To Sheets("options").Range("B4").Value + 1
    CompteurRet = CompteurRet + Sheets("retard_" & NomMatiere).Cells(i, 1).Value
Next
Sheets("RechercheM").Range("D9").Value = CompteurRet
End Sub