Discussion :

[misc1110]

Bonjour,
je cherche a faire la somme de la colonne F à partir de la cellule "Nominal initial" qui risque de bouger de ligne. et d'intégrer le résultat après la dernière cellule
je ne peux pas intégrer un fichier je suis désolé. j'intègre donc une capture d'écran.
j'ai essayé ce code mais il me renvoie comme résultat "0" :/

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub sommenominal1TARGET()
Dim somme As Double
Dim ligne As Integer
Dim colonne As Integer
 
Dim derniereligne As Long
Dim lignee
 
derniereligne = Range("f" & Rows.Count).End(xlUp).Row + 1
 For lignee = derniereligne To derniereligne
    With Sheets("Risque Client")
    .Range("f" & lignee).Borders.Value = 1
    End With
Next lignee
 
somme = 0
ligne = derniereligne
colonne = 6
 
Do While Cells(ligne, colonne) <> ""
    somme = somme + Cells(ligne, colonne)
    ligne = ligne + 1
Loop
 
Cells(ligne, colonne) = somme
 
End Sub

Merci d'avance

[Invité]

Bonjour,

En passant votre tableau en tableau structuré, vous n'auriez pas besoin de code. Et je mettrais ma fonction Sous.total (et non somme) au dessus de la ligne de titre.

[misc1110]

Bonjour,

En passant votre tableau en tableau structuré, vous n'auriez pas besoin de code. Et je mettrais ma fonction Sous.total (et non somme) au dessus de la ligne de titre.

Merci de votre réponse. il y a d'autre données plus haut qui sont le résultat d'un code. Et le tableau en question est aussi le résultat d'un code vba, j'aurai besoin d'un code qui me permettent de faire las somme de la colonne. Mais je note votre proposition pour un autre fichier.

[Invité]

Et le tableau en question est aussi le résultat d'un code vba, j'aurai besoin d'un code qui me permettent de faire las somme de la colonne.

Une fois passé votre tableau en tableau structuré et mis en place votre fonction Sous.total au dessus de la ligne de titre, vous vous positionnez sur la cellule et dans la fenêtre Exécution (Ctrl-G).
En tapant dans cette fenêtre exécution ? ActiveCell.FormulaR1C1 ou ActiveCell.Formula, vous obtiendrez la syntaxe de la fonction à mettre en place dans votre code.

[misc1110]

Une fois passé votre tableau en tableau structuré et mis en place votre fonction Sous.total au dessus de la ligne de titre, vous vous positionnez sur la cellule et dans la fenêtre Exécution (Ctrl-G).
En tapant dans cette fenêtre exécution ? ActiveCell.FormulaR1C1 ou ActiveCell.Formula, vous obtiendrez la syntaxe de la fonction à mettre en place dans votre code.

Merci de votre proposition. Malheureusement je ne sais pas faire cela je suis débutant. il faut que je reste sur un code VBA sans tableau structuré. Si vous avez une idée pour Améliorer mon code qui me sort un zero
haha je suis preneur