Bonjour,
Je développe actuellement des petites fonctions basiques dans un module que je pourrais réutiliser à loisir dans mes prochains développements. Une de ces fonctions « compte_ligne » me permet de compter les lignes dans la colonne « A » de la feuille active. La fonction est la suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Function compte_ligne()
i = Range("A65536").End(xlUp).Row + 1  '--> Compte le nombre de ligne dans la colonne A
End Function
En testant cette fonction seule, après avoir ajouté une msgbox pour me renvoyer le résultat, pas de problème. Si j’ai 10 lignes dans la colonne, la msgbox me dit de me positionner sur la 11eme ligne.
Cela se complique lorsque j’appelle cette fonction via une procédure « test_compte_ligne » .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub test_compte_ligne()
Dim i  As Integer
i = compte_ligne
MsgBox i
End Sub
La msgbox me renvoie le résultat 0.

1) Comment puis-je renvoyer le résultat de la fonction « compte_ligne » à la procédure «test_compte_ligne » ? Pour faire un traitement supplémentaire par exemple.

2) Quelle différence entre fonction et procédure ?

Je compte améliorer cette fonction en lui passant en argument, la feuille et la colonne.
Je vous remercie par avance pour vos réponses.