Calcul nombre de ligne vba

Résolu

Fitz_chev -
Fitz_Chev - 15 sept. 2015 à 10:58

Bonjour à tous,

Pour les besoins d'un travail, j'ai besoin de mettre le nombre de ligne de mon tableau en fin de tableau, j'ai déjà réussi à rajouter mon TOTAL sous ma colonne A mon montant sur ma colonne M et N, mais j'ai besoin de mettre en colonne 2 et 3 le nombre de ligne contenu dans mon tableau. Bien entendu, ce code faisant partie d'une macro plus grande, j'aimerais connaitre le code VBA pour le calcul de mes lignes. En vous remerciant d'avance.

Afficher la suite

A voir également:

Vba compter le nombre de ligne
Vba compter le nombre de ligne non vide - Meilleures réponses
Vba nombre de ligne - Meilleures réponses
Partage de photos en ligne - Guide
Excel compter cellule couleur sans vba - Guide
Nombre de jours entre deux dates excel - Guide
Mètre en ligne - Guide
Ligne occupée - Forum SFR

2 réponses

Réponse 1 / 2

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

En fait, si vous voulez que la macro puisse s'adapter à votre tableau même si celui-ci change, j'aurais personnellement commencé par intégrer une variable donnant la dernière ligne non vide du tableau :

Derniere_Ligne = Cells(Application.Rows.Count, 1).End(xlUp).Row 'A supposer que la colonne 1 soit la plus remplie (le plus loin)

Ensuite, pour les sommes que vous avez déjà faite, je vous invite à vous resservir de ce code, par exemple la somme en A :

Cells(DL + 2, 1).Value = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(DL, 1))

Ensuite, pour avoir le nombre de ligne et bien vous faites par exemple pour la colonne B :

Cells(DL + 2, 2).Value = Cells(Application.Rows.Count, 2).End(xlUp).Row

Ou pour la colonne C :

Range(DL + 2, 3).Value = Cells(Application.Rows.Count, 3).End(xlUp).Row

Cordialement.

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315

bonjour,
s'il n'y a rien en dessous du tableau
par exemple début en A2 avec ent^te en A1
nbre = Application.CountA(Columns("A")) -1

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

Effectivement c'est encore plus simple. Bien vu.

Fitz_Chev

merci pour vos réponses rapide, par contre je ne comprends pas, je suis très néophyte sur le VBA mais mon nouvel employeur m'a demandé de lui optimiser son outils, donc j'essaye. Pour en revenir à mon problème, je comprends ce que vous voulez dire mais je ne vois pas comment l'intégrer sur mon tableau, j'aimerais que mon total arrive sur la ligne au même niveau que mon total et mes deux sommes. Je vous joint mon bout de code concernant cette partie.


Sub Total ()
Dim derlign As Long
    derlign = IIf([A5] = "", 1, [A65536].End(xlUp).Row + 1)
    Range("A" & derlign) = "Total"
Dim derlig As Long
derlig = Range("M65536").End(xlUp).Row
Cells(derlig + 1, 13) = Application.Sum(Range("M2:M" & derlig))
derlig = Range("N65536").End(xlUp).Row
Cells(derlig + 1, 14) = Application.Sum(Range("N2:N" & derlig))
End Sub

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 315 > Fitz_Chev

bonjour,
si j'ai compris ta demande mais...

Dim Derlig As Integer
Derlig = Columns("M:N").Find(what:="*", searchdirection:=xlPrevious).Row
With Application
    Cells(Derlig, "M") = .Sum(Range("M2:M" & Derlig))
   Cells(Derlig, "N") = .Sum(Range("N2:N" & Derlig))
End With
Cells(Derlig - 1, "A") = "TOTAL"
Cells(Derlig, "A") = Cells(Derlig, "M") + Cells(Derlig, "N")

Fitz_Chev

C'est bon j'ai réussi à faire marcher ma macro, voilà mon code en entier pour info. Merci beaucoup

Dim derlign As Long
    derlign = IIf([A5] = "", 1, [A65536].End(xlUp).Row + 1)
    Range("A" & derlign) = "Total"
    Range("F" & derlign) = "Tous les montants sont exprimés en EUR"
Dim derlig As Long
derlig = Range("M65536").End(xlUp).Row
Cells(derlig + 1, 13) = Application.Sum(Range("M2:M" & derlig))
derlig = Range("N65536").End(xlUp).Row
Cells(derlig + 1, 14) = Application.Sum(Range("N2:N" & derlig))
Cells(derlig + 1, "b") = Application.CountA(Columns("A")) - 3
Cells(derlig + 1, "C") = Application.CountA(Columns("A")) - 3

Discussions similaires

EXCEL : Supprimer des lignes vides à la fin

Méthode find dans VBA - Recherche de données sous Excel

[VBA/Excel] macro ordre alphabétique

[VBA/Excel] Tri croissant dans une colonne

[VBA] Trier un tableau excel avec vba

Copie jusqu'à dernière ligne remplie

Votre réponse

Discussions similaires