Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Calculer un total sur un nombre variable de cellule

Calculer un total sur un nombre variable de cellule

3 réponses
Avatar
Mark
Je voudrai faire apparaitre un message Nombre de cellules à calculer.
Puis le calcul automatique de la somme se ferait sur le nombre de cellule
indiqué.
J'ai rentré la macro suivante mais cela ne fonctionne pas :
Sub Macro2()
'
' Macro1 Macro
' Macro enregistrée le 11/12/2006
'

'
Range("A1").Select
Dim y As Integer
y = InputBox("Nbre cellules :")
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[y])"
Range("A1").Select
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Je hais ce type de syntaxe
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[y])"


Je te propose ceci :
Dim y As Integer
y = InputBox("Nbre cellules :")
Range("G1").Formula = "=Sum(A1:A" & y & ")"



"Mark" a écrit dans le message de news:

Je voudrai faire apparaitre un message Nombre de cellules à calculer.
Puis le calcul automatique de la somme se ferait sur le nombre de cellule
indiqué.
J'ai rentré la macro suivante mais cela ne fonctionne pas :
Sub Macro2()
'
' Macro1 Macro
' Macro enregistrée le 11/12/2006
'

'
Range("A1").Select
Dim y As Integer
y = InputBox("Nbre cellules :")
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[y])"
Range("A1").Select
End Sub
Avatar
MichDenis
Il y a ceci :

y1 = 2
y2 = 5

Range("G1").Formula = "=Sum(" & Cells(y1, 5).Address & _
":" & Cells(y2, 5).Address & ")"

Dans la cellule tu auras : =SOMME($E$2:$E$5)




"Mark" a écrit dans le message de news:

Merci, mais mes chiffres sont en colonnes pas en ligne !


Je hais ce type de syntaxe
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[y])"


Je te propose ceci :
Dim y As Integer
y = InputBox("Nbre cellules :")
Range("G1").Formula = "=Sum(A1:A" & y & ")"


Avatar
Jacky
Bonsoir,

Essaie avec:
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[" & y & "])"

Salutations
JJ

"Mark" a écrit dans le message de news:

Je voudrai faire apparaitre un message Nombre de cellules à calculer.
Puis le calcul automatique de la somme se ferait sur le nombre de cellule
indiqué.
J'ai rentré la macro suivante mais cela ne fonctionne pas :
Sub Macro2()
'
' Macro1 Macro
' Macro enregistrée le 11/12/2006
'

'
Range("A1").Select
Dim y As Integer
y = InputBox("Nbre cellules :")
ActiveCell.FormulaR1C1 = "=SUM(RC[1]:RC[y])"
Range("A1").Select
End Sub