Voila j'ai deja posté un message sur le forum pour un probleme different sur ce petit bout de code:
j'ai l'erreur:"Erreur definie par l'application ou par l'objet" pour la ligne suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Function compte_lig(i As Integer, j As Integer, a As Worksheet) As Integer compte_lig = 0 Do While Worksheets("a").Cells(i, j) <> "" i = i + 1 compte_lig = compte_lig + 1 Loop End Function
Ce n'est vraiment pas compliqué mais ca me bloque. . .
Code : Sélectionner tout - Visualiser dans une fenêtre à part Do While Worksheets("a").Cells(i, j) <> ""
Partager