Obtenir la dernière valeur d’une colonne avec Excel VBA

Dans l’exercice suivant, une fonction doit être créée qui utilise la table et la colonne spécifiées pour afficher la dernière valeur d’une colonne spécifiée dans la table. La fonction de cette tâche est:

Function DerniereValeur(s As String, Colonne As Integer)
LetzterWert = Worksheets(s).Columns(Colonne) _
.SpecialCells(xlCellTypeLastCell).Value
End Function
Sub DerniereCelluleColonne()
MsgBox DerniereValeur("Feuil6", 2)
End Sub

Commentaires:
 Appelez la fonction LastLine dans la macro. Dans le premier argument, vous passez à cette fonction le nom de la table dans laquelle vous voulez trouver le contenu de la dernière ligne. Dans le deuxième argument, vous spécifiez la colonne souhaitée dans laquelle la dernière cellule remplie doit être recherchée.

 À l’aide de la méthode SpecialCells, à laquelle vous affectez la constante xlCellTypeLastCell, vous pouvez déterminer la dernière cellule remplie.

 Étant donné que vous avez précédemment spécifié la colonne, cette recherche de la dernière cellule est limitée à la colonne spécifiée. Utilisez la propriété Value pour obtenir la valeur de cette cellule.
Si vous préférez connaître l’adresse de la cellule au lieu de la dernière valeur d’une colonne, utilisez la fonction suivante:

Function AdresseDerniereValeur(s As String, _
Colonne As Integer)
AdresseDerniereValeur = Worksheets(s).Columns(Colonne). _
SpecialCells(xlCellTypeLastCell).Address
End Function
Sub AdresseDernièreLigne()
MsgBox AdresseDerniereValeur("Feuil6", 2)
End Sub

Commentaires:
 Utilisez la méthode SpecialCells, à laquelle vous affectez la constante xlCellTypeLast Cell, pour déterminer la dernière cellule remplie.

En spécifiant au préalable la colonne, cette recherche de la dernière cellule est uniquement limitée à la colonne spécifiée. Vous pouvez accéder aux coordonnées exactes des cellules à l’aide de la propriété Address.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x