Discussion :

[lilp1]

Bonjour le forum,
Voila encore un nouveau probleme.
j'aimerais calculer la somme de ma colonne 'l' et afficher le résultat apres la derniere ligne non vide.
Voici le code que j'ai :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub btn_calcul_Click()
Dim dl As Long, nomclasseur As String, nomfeuille As String
    nomclasseur = ActiveWorkbooks.Name
    nomfeuille = ActiveSheet.Name
    dl = cells("a" & Rows.Count).End(xlUp).Row
    Cells(dl + 1, 12).Activate
    ActiveCell.FormulaR1C1 = "=SUM(C[3])"
End Sub

Simplement il m'indique incompatibilité de type sur la ligne en jaune.

[aalex_38]

Fait une recherche dans les tutoriaux ou sur le forum, il y a de nombreux exemples pour créer des boutons dynamiquement, en fait ça consiste à créér le bouton et écrire le code par macro, je n'ai pas les liens sous la mains notamment des explications données par SilkyRoad.


Edit : Cette réponse a eu lieu avant le modification du post précédent

[lilp1]

Yep, dsl sa fait un 'up' mais c'est que j'ai modifier le nom de la discussion, jpense que c'est mieux que de la fermer et d'en rouvrir une direct aps

[Gorfael]

Salut lilp1 et le forum
évite les couleurs claires pour signaler sur le forum, ça éclate les yeux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dl = Cells("a" & Rows.Count).End(xlUp).Row

Faut arrêter de boire
essaie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dl = range("a" & Rows.Count).End(xlUp).Row

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dl = Cells(Rows.Count,"A").End(xlUp).Row

A+

[lilp1]

Merci, mais mon probleme en faite n'est pas sur le calcul de la derniere ligne non vide, mais sur le calcul de la somme, chose bizarre d'ailleurs, ar je pensais y arrive sans probleme. mais il ne me calcul pas le bonne colonne, j'aimerais qu'il me calcul la somme de la colonne 'l' a partir de L2 car en L1 il y a du texte, mais avec le code :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=SUM(C[3])"

Il me fait le calcul de la colonne 'o' j'ai l'impression car le résultat donner est '0' alors que j'ai bien des nombres dans ma colonne 'l', j'ai obtenue ce code en faisant 'créer une nouvelle maccro' et en recuperant le code

[laetitia]

bonjour lilp1 Gorfael aalex le forum un ex:a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
Range("a" & Cells.Find("*", , , , , xlPrevious).Row + 1) = Application.Sum(Range("i1").EntireColumn)
End Sub

[lilp1]

Merci bien pour ta réponse laetitia, sa marche parfaitement.