Sommaire
Excel Perfectionnement
Excel Graphique
Divers Excel
Excel Vba début
Complément VBA
Utilitaires
Gestion
(philosophie)
Gestion
(techniques)
Liens
Utilitaires en Vrac
Gfc Windows

écrivrez-moi !














 

 

Fonctions Personnalisées

 

 

Fonction DerValCol : trouver la dernière valeur d'une colonne d'une feuille

 

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

début                                         Sommaire

 

 

Mesurez votre audience