bonjour a tous,
je souhaite calculer le nombre de cases remplies situées à droite d'une cellule définie. Voila le travail effectué:

Code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Function compte_col(i As Integer, j As Integer, a As Worksheets) As Integer
compte_col = 0
Do While a.Cells(i, j) <> ""
j= j + 1
compte_col = compte_col + 1
End Function
C'est pourtant une fonction simple mais quand je l'utilise comme cela par exemple:

Code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox compte_col(2, 1, Worksheets("tache" ))

j'ai une message d'erreur "incompatibilité de type"

Voila si vous pouvez m'aider je vous en remercie!