Discussion :

[sebforever]

Voila j'ai deja posté un message sur le forum pour un probleme different sur ce petit bout de code:

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

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

Do While Worksheets("a").Cells(i, j) <> ""

Ce n'est vraiment pas compliqué mais ca me bloque. . .

[pgz]

Bonsoir.

Soit a est la feuille et :

Code :

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

Do While a.Cells(i, j) <> ""

Soit a est le nom de la feuille et

Code :

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

Function compte_lig(i As Integer, j As Integer, a As String) As Integer

Bon courage,

PGZ

[AlainTech]

As-tu vérifié (en mode pas à pas) les valeurs de i et j?
Elles ne peuvent jamais être inférieures à 1 ni supérieures à 65535 (Excel < 2007).

[Singular]

pgz a très certainement cerné le prob

Soit a est la feuille et :

Code :

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

Do While a.Cells(i, j) <> ""