Macro VBA

Bonjour, j'ai besoin d'aide SVP. j'essaie de faire la somme de la colonne p et afficher le résultat dans la première cellules Q1. MERCI

Sub GetSum()

Dim firstraw As Double

Dim lastrow As Long

firstrow = WorksheetFunction.Sum(Range("q1"))

lastrowrow = ThisWorkbook.Sheets("Feuil1").Cells(Rows.Count, 17).End(xlUp).Row

ThisWorkbook.Sheets("Feuil1").Range("o" & lastrow + 1) = "Total:"

ThisWorkbook.Sheets("Feuil1").Range("p" & lastrow + 1) = Application.WorksheetFunction.Sum(ThisWorkbook.Sheets("Feuil1").Range("p2:p" & lastrow))

ThisWorkbook.Sheets("Feuil1").Range("q" & firstrow).Font.Bold = True

End Sub

Bonjour Cédric,

Je te propose ce fichier Excel :

Si besoin, tu peux demander une adaptation.

Merci de me donner ton avis.

dhany

Merci beaucoup pour l'aide, ça fonctionne très bien ton code. Je vais essayé de l'adapter au mien.

Thx

Bonjour, en fait est-ce qu'il y a moyen d'afficher le formule de la somme des cellules dans la barre fx ?

genre dans le fx on veut voir =somme(p2:p6). merci !

Bonjour Cédric,

Voici la nouvelle version qui affiche la formule :

Il y a même maint'nant 2 formules :

● une formule sous le dernier nombre de la colonne P

● une formule en Q1

dhany

Je viens de l'adapter au mien et ça fonctionne très bien. Merci tu es un Génie.

Puis j'ai une autre question pour toi, Est- ce que tu pourrais m'expliquer qu'est ce que cette instruction veut dire ?

je suis nouveau dans le domaine. Merci pour ton aide

Voilà le fichier Excel qui fait ce que tu as demandé :

Je dois sortir ➯ je n'peux pas t'aider plus ce soir.

dhany

Ok parfait c'est très gentille de ta part. Je vais m'arranger avec ce que tu ma envoyer merci.