Discussion :

[Nicolas JACQUIN]

bonjour les amis

j'ai créé un code comme j'ai pu, sachant que le nombre de ligne augmente à chaque saisie je rajoute un 1 en colonne F pour connaître le nombre de ligne à additionner,
mais j'ai un bug à la dernière ligne de code pour additionner les cellule sélectionné.

En vous remerciant pour votre aide

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
Sub calcul_plage()
 
Dim derlign As Integer
 
cpt = Application.CountA(Range("F:F"))
d = cpt - 1
derlign = Worksheets("Ndev").Range("F65536").End(xlUp).Row
 
 
Range("O" & derlign - d & ":O" & derlign).Select
 
 
Range("d18").Value = Sum(("O" & derlign - d & ":O" & derlign), , 2)
 
 
End Sub

Pièce jointe 249884

[BENNASR]

Bonjour nicoxlsx, la forum
j'ai pas compris ta requête, mais si tu cherche à sommer une plage variable il existe bq de solution dont :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub calculer()
Dim plage As Range
With Sheets("Ndev")
Set plage = .Range("D2 : D" & .Range("D65536").End(xlUp).Row)
For Each Cell In plage
x = x + Cell.Value
 
Next Cell
.Range("A1") = x
End With
End Sub

[Nicolas JACQUIN]

Merci de votre réponse,
je comprend un peu près votre code, mais il y a une incompatibilité de type

Code :

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

x = x + Cell.Value

[BENNASR]

je suis débutant aussi
mais ce-ci fonctionne chez moi !!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub calculer()
Dim plage As Range
With Sheets("Ndev")
 Set plage = .Range("D2 : D" & .Range("D65536").End(xlUp).Row)
For Each Cell In plage
x = x + Cell.Value
 
Next
.Range("A1") = x
End With
End Sub

[Thautheme]

Bonjour le fil, bonjour le forum,

Il semblerait qu'il manque un Range dans ta dernière ligne et qu'il y ait des arguments en trop :

Code :

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

Range("d18").Value = Sum(Range("O" & derlign - d & ":O" & derlign))

Que j'aurais plutôt écrit :

Code :

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

Range("D18").Value = Application.WorksheetFunction.Sum(Range(Cells(derlign - d, "O"), Cells(derlign, "O")))

[Nicolas JACQUIN]

merci beaucoup ça marche mais je n'y comprend rien avec les cells
y aurait il pas un moyen de facilité mon raisonnement sans prendre en compte la colonne f chaque foit que je rajoute une ligne

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
Sub calcul_plage()
 
Dim derlign As Integer
 
cpt = Application.CountA(Range("F:F")) ' compte le nombre de ligne ajoutées
d = cpt - 1
derlign = Worksheets("Ndev").Range("F65536").End(xlUp).Row 'trouve la dernière ligne ajoutée
 
 
Range("O" & derlign - d & ":O" & derlign).Select 'me sélectionne la plage de cellule à calculer
 
Range("D18").Value = Application.WorksheetFunction.Sum(Range(Cells(derlign - d, "O"), Cells(derlign, "O"))) 'résultat
 
 
End Sub

merci

[Thautheme]

Bonjour le fil, le forum,

Comme je n'ai pas compris où tu voulais en venir avec ton code et une capture d'écran qui n'affiche pas tout, difficile de te venir en aide...

[RyuAutodidacte]

Bonjour,

Sur la capture, en colonnes F je ne vois rien, si je me fie à la colonne O je vois 2 valeurs à additionner.
La somme à faire commence en O19. Si j'ai envie de prendre en compte la dernière ligne, je peux considérer la colonne M "Net à payer" moins 6 lignes,
Comme cela on tombera tjs dans la plage voulu à structure équivalente

Code :

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

1
2
DerL = Range("M" & Rows.Count).End(XlUp).Row - 6
Range("O" & DerL -4").Value = Application.Sum(Range("O19:O" & DerL)) ' - 4 lignes pour arriver à TOTAL HT

si c'est ce que tu cherchais … ?? en 2 lignes c'est fait (à rajouter les déclarations de variables)

EDIT : petite modif dans le code

[Nicolas JACQUIN]

ok j'ai compris merci ça marche, encore merci