Discussion :

[huître]

bonjour

j'ai une procédure à faire qui compte le nombre d'heure identique sur une colonne et qui les range directement sur un tableau

la procédure ne marche pas uniquement lorsque je vais chercher la colonne sur une autre feuille, je tiens à préciser que je suis un novice.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub compteur()
Dim derligne As Long
 
derligne = Range("ab65536").End(xlUp).Row
For i = 2 To derligne
For j = 2 To 25
If Sheet("Feuil2").Cells(i, 1) = Cells(5, j) 
Cells(6, j) = Cells(6, j) + 1
End If
Next j
Next i
End Sub

Je voudrais comprendre pourquoi ca bloque lorsque je rajoute sheet

merci d'avance

[dodo69]

Salut l'huitre

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
 Sub compteur()
Dim derligne As Long


derligne = Range("ab65536").End(xlUp).Row
For i = 2 To derligne
For j = 2 To 25
If Sheets("Feuil2").Cells(i, 1) = Cells(5, j) THEN
Cells(6, j) = Cells(6, j) + 1
End If
Next j
Next i
End Sub

merci d'avance

Il manque un "then" déjà a la fin de ton If et un S a ton sheet

Essaye avec ca déjà...

cdt
Dodo