Discussion :

[Bubale]

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

[fring]

Bonsoir,

Difficile à diagnostiquer comme ça à distance, à première vue la syntaxe semble correcte. As-tu vérifié ce que renvoyait la variable NomMatiere ?
Pour la tester, tu peux éventuellement juste avant ta boucle insérer

Code :

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

MsgBox NomMatiere

[Bubale]

Merci Fring, mais finalement, j'ai trouvé l'erreur:c'etait une erreur de redirection!
merci et bonne journée!