Nommer la dernière ligne d'un tableau dans du code VBA

Bonjour,

Je tiens un tableau de déclaration d'anomalies compléter par les utilisateurs.

Les infos sur l'incident sont renseignées en ligne.

Exemple :

Colonne A : date d'ouverture

Colonne B : déclarant

Colonne C : résumé

...

J'ai créé un bouton ''déclarer l'incident'' avec une macro pour être informé par mail quand un collaborateur a complété le tableau.

J'aimerais savoir comment nommer les Cellules de la dernière ligne pour remonter les infos sur l'incident dans le mail.

Exemple de code :

Sub EnvoiMail()

Dim 0Outlook as outlook.application

Dim NewEmailItem as Outlook.MailItem

Dim SRC as string

Set EmailApp = New Outlook.Application

Set NewEmailItem = EmailApp.CreateItem (0)

NewEmailItem.to = "probleme@probleme.fr"

NewEmailItem.Subject = "Problème"

NewEmailItem.Body = "Bonjour," & vbNewline & vbNewline & "date de l'incident : " &

Et c'est là que je veux afficher ce qu'il y a dernière ligne du tableau, Colonne A. Je ferai pareil avec d'autres colonnes...

Merci par avance pour votre aide.

Je ne peux pas charger mon Exemple malheureusement (bloqué par mon entreprise)

(Je le ferai ce soir de chez moi si besoin)

Bonjour,

Vous pouvez trouver la dernière ligne utilisée d'une colonne comme ceci (colonne A):

DerniereVal = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Value

Ou bien, en supposant que votre tableau commence en A1 et que toutes les lignes sont pleines :

DerniereVal = ActiveSheet.Range("A1").End(xlDown).Value

Range.End property (Excel) | Microsoft Learn

Si vous utilisez un tableau structuré, on peut aussi utiliser (sur le tableau nommé "table1") :

With ActiveSheet.ListObjects("Table1")
  DerniereLigne =.ListRows(.ListRows.Count).Range.Value ' liste des valeurs de la dernière ligne
End With

L'avantage étant que cela permet de récupérer précisément la dernière ligne du tableau, sans se soucier de où il est ou s'il y a un autre tableau en dessous.

Merci pour votre retour. A chaud, je ne vois pas bien comment l'intégrer mais je vais tester à dom et je vous dirais si j'ai réussi

bonjou ricardovince, salut Saboh12627,

Excel2015 n'existe pas, n'est-ce pas Excel2016 (ou excel2013) ?

j'ai crée une fonction personnalisée "Dernier" qui sait quand vous utilisez un tableau structuré ou un tablau ordinair. Vous utilisez cette fonction dans votre macro

voir PJ et vous choississez une des 2 méthodes

Bonjour à tous,

Bon rien à voir avec le sujet mais merci Bart pour m'avoir fait découvrir " [$-fr-fr]" dans les formats de texte. Je trouvais incroyable que ça n'existe pas ! (et en fait si, ça existe) Super !

Bonne journée.