F
frans
Guest
Bonjour à tous,
Voilà, je cherche à programmer une petite procédure, qui à partir d'une feuille, me donnerai le numéro de ligne de la dernière cellule d'une autre page.
Voilà comment je m'y suis pris :
Function derligne(feuille, nderligne)
'Dim nderligne As Integer
'Dim feuille As String
Sheets(feuille).Activate
Sheets(feuille).Range("A1").Select
On Error GoTo fin
nderligne = Cells.Find("*", [A1], , , 1, 2).Row
'Sheets(feuille).Deactivate
Sheets("interface").Activate
fin:
nderligne = 1
End Function
Ca marche, mais le seul problème c'est que je suis obligé d'activer la feuille cible, puis de réactiver la feuille que j'utilise comme interface.
Cela se traduit pas un clignotement de cette feuille interface.
Peut on faire autrement ? Sans devoir activer la feuille cible?
Je débute sur VBA, tous les conseils sont les bienvenus.
Merci d'avance
François
Voilà, je cherche à programmer une petite procédure, qui à partir d'une feuille, me donnerai le numéro de ligne de la dernière cellule d'une autre page.
Voilà comment je m'y suis pris :
Function derligne(feuille, nderligne)
'Dim nderligne As Integer
'Dim feuille As String
Sheets(feuille).Activate
Sheets(feuille).Range("A1").Select
On Error GoTo fin
nderligne = Cells.Find("*", [A1], , , 1, 2).Row
'Sheets(feuille).Deactivate
Sheets("interface").Activate
fin:
nderligne = 1
End Function
Ca marche, mais le seul problème c'est que je suis obligé d'activer la feuille cible, puis de réactiver la feuille que j'utilise comme interface.
Cela se traduit pas un clignotement de cette feuille interface.
Peut on faire autrement ? Sans devoir activer la feuille cible?
Je débute sur VBA, tous les conseils sont les bienvenus.
Merci d'avance
François