2 lignes apres derniere ligne tableau
t
Bonjour, je veux insérer un résultat deux lignes en dessous de la dernière ligne d'un tableau. J'ai utilisé rows.count sans succès.
Ci joint, le problème
Merci pour vos réponses
m
Salut treerrttyt,
essaie comme ca
Sub exercice_61()
' Declaration des variables
Dim sht As Worksheet
Dim Derligne As Long
' Definir la feuille
Set sht = ActiveSheet
' calculer la dernière ligne de la colonne F
Derligne = sht.Cells(sht.Rows.Count, 6).End(xlUp).Row
' insérer la somme dans la céllule souhaitée
sht.Cells(Derligne + 2, 6).Value = Application.Sum(sht.Range(sht.Cells(2, 6), sht.Cells(Derligne, 6)))
' formater la céllule
sht.Cells(Derligne + 2, 6).NumberFormat = "[$€-2] #,##0.00"
End Sub