J'essaie de faire une fonction qui compte le nombre le ligne d'un fichier Excel qui à 51 colonnes.
mon prog ressemble à ça, mais ya un pb au niveau du Votre texte ici
erreur = l'entrée dépasse la fin du fichier

Open fich For Input As f
Do While EOF(f) = False
nb = nb + 1
For i = 1 To 51
Input #f, Votre texte ici
Next i
Loop

Merci

Désolé, petite erreur de ma part!! je rectifie le tir et ça donne :


J'essaie de faire une fonction qui compte le nombre le ligne d'un fichier Excel qui à 51 colonnes.

mon prog ressemble à ça, mais ya un pb au niveau du tableau
erreur = l'entrée dépasse la fin du fichier

Open fich For Input As f
Do While EOF(f) = False
nb = nb + 1
For i = 1 To 51
Input #f, T(i)
Next i
Loop

Salut

En VBA c'est :

ActiveSheet.UsedRange.Rows.count
si tu n'a pas de filtres ou que tu veux toutes les lignes malgré les filtres

ou

Application.Subtotal(3, [A:A]) - 1
Pour n'avoir que les lignes affichées.


Bonne chance

Eh ben merci bien ça marche!!
dire que je me galère à faire des trucs compliqués alors qu'il y en a qui connaissent des trucs hyper simples

Bye