Function DerValCol(Optional Feuille As Variant,
Optional Colonne As Variant)
Application.Volatile
If IsMissing(Feuille) Then Feuille = ActiveSheet.Index
If IsMissing(Colonne) Then Colonne = 1
DerValCol = Sheets(Feuille).Cells(65536, _ Colonne).End(xlUp).Value
End Function
|
'Déclaration de la
fonction utilisant 2 paramètres optionels variant
'permet le recalcul automatique
'Si le 1er paramètre est absent, la feuille concernée est la feuille active
'Si le 2ème paramètre est absent, la colonne concernée est la 1ère
'Cherche la 1ere cellule remplie à partir du bas de la feuille
|