Vbafonction

Macro	Commentaires
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
Remarques : Optional est pratique de façon à traiter les cas les plus courants par défaut. Il convient d'attribuer les valeurs par défaut avec les lignes IfMissing Application.Volatile permet le recalcul automatique de la fonction La recherche de la 1ère cellule différente (i.e. remplie) par le bas cells(65536,...).end(xlup) évite de s'arrêter sur des lignes intémédiaires vides
Utilisation : DerValCol() donne la dernière valeur de la colonne A de la feuille active DerValCol(;3) donne la dernière valeur de la colonne C de la feuille active DervalCol(3;) donne la dernière valeur de la colonne A de la 3ème feuille DerValCol(3;3) donne la dernière valeur de la colonne C de la 3ème feuille